Merhaba.
Excelde Çözücü eklentisini aktifleştirdim. Çözücü eklentisi çalışıyor. Bu eklentiyi aşağıdaki kodlar ile çalıştırdığımda hata alıyorum.
If Intersect(Target, [V1]) Is Nothing Then Exit Sub
'// Agi Hariç \\
SolverReset
Deger = CDbl(Range("V1").Value)
For i = 4 To 15 Step 1
'SolverReset
SolverOk SetCell:="$V$" & i, MaxMinVal:=3, ValueOf:=Deger, ByChange:="$B$" & i, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$V$" & i, MaxMinVal:=3, ValueOf:=Deger, ByChange:="$B$" & i, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve userFinish:=True
Next i
SolverOk kısmı hep hata veriyor. Nerede hata yapıyorum. Yardımlarınız için teşekkürler.
V1 Hücresinde AgiHariç rakamı girince döngü oluşturacak ve V Sütunundkai değerler bu rakama eşit olana kadar B Sütununu değiştirecek. Çözücü eklentisini her satırda tek tek çalıştırınca oluyor. Makro kodları ile yapınca hata alıyorum.
Excelde Çözücü eklentisini aktifleştirdim. Çözücü eklentisi çalışıyor. Bu eklentiyi aşağıdaki kodlar ile çalıştırdığımda hata alıyorum.
If Intersect(Target, [V1]) Is Nothing Then Exit Sub
'// Agi Hariç \\
SolverReset
Deger = CDbl(Range("V1").Value)
For i = 4 To 15 Step 1
'SolverReset
SolverOk SetCell:="$V$" & i, MaxMinVal:=3, ValueOf:=Deger, ByChange:="$B$" & i, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$V$" & i, MaxMinVal:=3, ValueOf:=Deger, ByChange:="$B$" & i, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve userFinish:=True
Next i
SolverOk kısmı hep hata veriyor. Nerede hata yapıyorum. Yardımlarınız için teşekkürler.
V1 Hücresinde AgiHariç rakamı girince döngü oluşturacak ve V Sütunundkai değerler bu rakama eşit olana kadar B Sütununu değiştirecek. Çözücü eklentisini her satırda tek tek çalıştırınca oluyor. Makro kodları ile yapınca hata alıyorum.
