[Yardım]  İterasyon, Çözücü, Bütün Satırlara Makro,

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

İterasyon, Çözücü, Bütün Satırlara Makro,

İleti#1)  CAGLAR06 » 19 Kas 2021 20:49

Değerli excelvba kullanıcıları benim sorum şu, makro kaydediciyi açtım ve çözücü ile işlemlerimi yaptım. Denklemi mi çözdürdüm. Ancak bunu tek bir satır için yaptım. Ben istiyorum ki baştan sona tüm satırlara sırası ile bu işlemleri uygulasın ve otomasyon şekilde devam etsin. Son satırdan sonra bitti yazsın.
Ek bilgiler;
Excel de satırlarım 5. satırdan başlıyor. Sonsuza doğru gidiyor(Dosya dosya satır uzunluğu değiştiği için kesin birşey yazamıyorum.)
Ayrıca her satırda rakam yok. Bu sebeple bu satırlarda #SAYI! hatası var. Buna denk gelirse direkt geçsin istiyorum. Diğer taraftan bir satıra denk geldi çözdü ancak optimum çözüm bulamadı takılmadan diğer satıra devam etmesini istiyorum. Sizlere makro kaydedici tarafından verilen kodları yazıyorum. Verdiğim bu bilgilere göre çözüm için başlangıç kodlarını yazar mısınız? Şimdiden teşekkür ederim.

Sub caglaryeni()
'
' caglaryeni Makro
'

'
SolverOk SetCell:="$HJ$150", MaxMinVal:=1, ValueOf:=0, ByChange:="$BO$150", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$BO$150", Relation:=1, FormulaText:="$BO$150+10"
SolverAdd CellRef:="$BO$150", Relation:=3, FormulaText:="$BO$150-10"
SolverOk SetCell:="$HJ$150", MaxMinVal:=1, ValueOf:=0, ByChange:="$BO$150", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$HI$150", Relation:=2, FormulaText:="$HJ$150"
SolverOk SetCell:="$HJ$150", MaxMinVal:=1, ValueOf:=0, ByChange:="$BO$150", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$HJ$150", MaxMinVal:=1, ValueOf:=0, ByChange:="$BO$150", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub
...............................................................
Sub çöz2()
'
On Error Resume Next

Dim i As Long
Dim son_satir As Long
son_satir = Range("HI1000000").End(xlUp).Row
For i = 5 To son_satir
Range("HI" & i).Select
If IsError(Range("HI" & i)) Then
GoTo siradaki
End If
Range("HI" & i).Select
SolverOk SetCell:="$HI$" & i, MaxMinVal:=1, ValueOf:=0, ByChange:="$BO$" & i, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$HJ$150", MaxMinVal:=1, ValueOf:=0, ByChange:="$BO$150", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$BO$150", Relation:=1, FormulaText:="$BO$150+10"
SolverAdd CellRef:="$BO$150", Relation:=3, FormulaText:="$BO$150-10"
SolverOk SetCell:="$HJ$150", MaxMinVal:=1, ValueOf:=0, ByChange:="$BO$150", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$HI$150", Relation:=2, FormulaText:="$HJ$150"
SolverOk SetCell:="$HJ$150", MaxMinVal:=1, ValueOf:=0, ByChange:="$BO$150", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$HJ$150", MaxMinVal:=1, ValueOf:=0, ByChange:="$BO$150", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
siradaki:
Next
End Sub
......................................................
Kullanıcı avatarı
CAGLAR06
 
Kayıt: 11 Kas 2021 03:40
Meslek: Mühendis
Yaş: 33
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe