Çözüldü Solver'ı Makroya kaydetme (Gezgin Satıcı Problemi)

[matrakkisi]

Merhabalar,
Gezgin Satıcı Problemi olarak adlandırılan bir problemi Record Macro ile koda döküp belirli ölçüde UserForm üzerinde CommandButton ve ComboBox yardımıyla kullanmak istiyorum. Ancak bazı problemler yaşadım. Gezgin satıcı problemi, belirli şehirler arasındaki en kısa mesafeyi bulup ona göre çözümü gerçekleştiren bir problem. Solver yardımıyla problemimi yazdım ancak Recording kısmında sorunla karşılaşıyorum.

bu örnekte From kısmı nereden başlayacağımızı gösteriyor. En sonunda yine başlangıç noktasına dönüyoruz. İzmir 0 olmak üzere Van'a doğru 4 olarak sıralandırdım.
Mesela Bu çözümde 1. ilden yani Ankara'dan başlamışız ve dönene kadar en kısa mesafeyi Solver yardımıyla bulmuşuz.
Yani yukarıdaki "from" kısmına yazdığım 0-1-2-3-4 sayıları hangi ilden başladığımı belirliyor. H3 hücresine denk gelen kısımdan yapıyoruz seçimimizi ve çözüyor
.
Böyle bir UserForm oluşturdum. Yukarıdaki ComboBox'a illerimiz gelsin istiyorum ancak başaramadım. İzmir'i seçince H3 hücresi 0 olsun Ankara'yı seçince 1 Mersin için 2 ve İstanbul 3 Van 4. Böylelikle solverdaki çözümüm de değişir. CommandButton'ın içine ise Solverdaki Record Macroyu eklemek istiyorum. Solver'ı açmadan bu çözüm CommandButton'a tıklanıp yapılsın ancak başaramadım.
Yardımlarınızı beklerim, çok teşekkür ederim şimdiden emeğinize elinize sağlık.

 

[Patron]

Deneyiniz.

 

[matrakkisi]

Teşekkür ederim ellerinize, emeğinize sağlık çok güzel olmuş ancak benim problem yapısında yukarıdaki durumun korunması gerekiyor.
Problem 2 şehir arası mesafeyi ölçmüyor. Bir dağıtım aracı problemi esasında. İzmir'den çıkan araç tüm şehirleri gezip yine İzmir'e dönüyor. Tüm şehirleri gezmeli ve bir kez uğradığı ili tekrar ziyaret etmemeli. Bu yapı Solver'da AllDifferent ile yapıldı. Ancak ben UserForm üzerine kod yazmak istiyorum CommandButton'a basınca yapılsın bu işlem. O yüzünden Record Macro deyip Solver'ı açıp Solve diyorum. Ancak kaydedilen Macroyu açtıktan sonra çalıştırılmıyor. SolverOk kısmında hata alıyorum. (Aşağıda hatayı attım.) İnternette arattığım zaman solver eklentisinin yüklü olamayabileceği söyleniyor ancak yüklü olmasa zaten Solver'ı açamam. Bu noktada yardımlarınızı beklerim, teşekkür ederim çok sağ olun ellerinize sağlık.

 

[matrakkisi]

Deneyiniz.

Patron kusura bakmayın sanırım böyle cevaplamam gerekiyordu. Tekrardan yardımlarınızı beklerim. Teşekkür ederim

 

[Patron]

excel sayfsında arama kutusuna eklentiler yazıp aratın

VBA sayfasında tool>references tıklayıp solveri işaretleyin.

kodunuzu çalıştırın
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[matrakkisi]

excel sayfsında arama kutusuna eklentiler yazıp aratın
Ekli dosyayı görüntüle 22009
VBA sayfasında tool>references tıklayıp solveri işaretleyin.
Ekli dosyayı görüntüle 22010
kodunuzu çalıştırın
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Teşekkür ederim çok sağ olun kolay bir durummuş iyi günler dilerim.