Makro İle Çözücü Eklentisini Kullanma

[KarıncaZ]

Merhaba.

Excelde Çözücü Eklentisini Kullanıyorum. Makro kaydet ile yaptığım işlemi kaydediyorum.

Sub Makro1()
'
' Makro1 Makro
'
' Klavye Kısayolu: Ctrl+i
'
SolverOk SetCell:="$M$21", MaxMinVal:=3, ValueOf:=1300, ByChange:="$M$10", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$M$21", MaxMinVal:=3, ValueOf:=1300, ByChange:="$M$10", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub

Ancak makro çalışmıyor. Kaydedilen makroda hiçbir değişiklik yapmadan çalıştırmak istiyorum çalışmıyor.

Bu makroyu çalıştırmanın bir yolu varmı?

Yardımlarınız için şimdiden teşekkürler.

 

[Merhum İdris SERDAR]

.

Tools > References'te Solver'ı seçin.

.

 

[KarıncaZ]

Merhaba.

Öncelikle ilginiz için teşekkür ederim.

Linkteki çalışmamı inceleye bilir misiniz.

Çözücü eklentisini ekledim makro bazen çalışıyor bazen çalışmıyor. Birde her çözücü işleminden sonra çözücü ekranı çıkıyor. Bunu nasıl engelleye biliriz.

Yatay Bordroda iki buton var bu butonlara basınca ilgili sütunda belirtilen ( T1 ve U1 ) ücrete göre E hücrelerini değiştiriyor. Çalışıyor ama yavaş hesaplıyor.

Silindir butonu ise Çözücü eklentisini makroyla çalıştırıyor ama oda bazen hesaplıyor bazen hesaplamıyor. Birde bazı hücrelerde hesaplıyor bazılarını hesaplamıyor.

http://www.dosya.tc/server5/eh5zvt/UCRET_HESAPLAMA.xls.html

Esenlikler dilerim.

 

[Merhum İdris SERDAR]

.

Konunuza vakıf olmadığım için ne yapılması gerektiğini bilmiyorum. Ancak Solver ile ne yaptığınızı makro ile kaydederseniz, onun üzerinden gidebiliriz.

.

 

[KarıncaZ]

Merhaba İdris Bey.

solver maksorsu orjinaliyle aynı ben sadece değişkenleri ekledim.

Yapmak istediğim gönderdiğim Excel kitabında YatayBordro sayfasında Kazanç hücresini değiştirecek. Koşul olarakta Agi hariç ücreti T1 hücresinde yazdığım tutara eşitleyecek.

Yani T3 hücresi belirttiğim tutara ulaşıncaya kadar E3 ü değiştirecek. Sonra T4 belirttiğim tutara eşitlenene denk E4 ü değiştirecek böyle sırayla gidecek.

Çözücü eklentisini kaydettiğimde oluşan makro aşağıda
Sub Makro1()
'
' Makro1 Makro
'
' Klavye Kısayolu: Ctrl+i
'
SolverOk SetCell:="$T$3", MaxMinVal:=3, ValueOf:=1125.45, ByChange:="$E$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$T$3", MaxMinVal:=3, ValueOf:=1125.45, ByChange:="$E$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub

İlginiz için teşekkürler.