matrakkisi
Yeni Üye
Konuyu Başlatan
Merhabalar,
Elimde 81 şehrin mesafelerinin bulunduğu bir matrix var.
Bu şehirlerin biri başlangıç şehri oluyor ve B1 hücresindeki yazan şehire göre 4 şehir olacak şekilde gidebilieceği iller çıkıyor.
F1 hücresinde bulunan toplam mesafeyi aşmamak gerek.
4 şehirlik bir seyahat, 1. şehir başlangıç şehri ve tüm olabilecek seyahatleri alt alta yazdırmam gerek.
örneğe göre İzmir şehrinden başlanacak ve 750 kilometreye kadar olabilecek seyahatler yazılacak. 4 şehirlik seyahat sürecek ilk şehir başlangıç şehri olmak üzere ve 3 şehire uğramak üzere.
Sheet2 de Şehilerin mesafe matrixi.
Sheet3 te ise şehirlerin plakaları ve isimleri bulunuyor.
Toplam katedilecek mesafeden daha az olması gerek ve bunu bu hücreye bağlı benim elimle değiştirebiliyor olmam gerek.
Başlangıç şehri de yine benim isteğime göre değişebilmeli. O hücreye bağlı şekilde.
Bunu sağlayan bir kod VBA'de nasıl yazılabilir? Gerçekten çok denedim ama sonuca ulaşamadım. Herhangi bir yol doğru olmadığı için de hiç yaptıklarımı atmadım kafa karışıklığı olmaması için.
Şimdiden yardımlarınızı beklerim, emekleriniz, ilginiz ve vaktiniz için teşekkür ederim.
Elimde 81 şehrin mesafelerinin bulunduğu bir matrix var.
Bu şehirlerin biri başlangıç şehri oluyor ve B1 hücresindeki yazan şehire göre 4 şehir olacak şekilde gidebilieceği iller çıkıyor.
F1 hücresinde bulunan toplam mesafeyi aşmamak gerek.
4 şehirlik bir seyahat, 1. şehir başlangıç şehri ve tüm olabilecek seyahatleri alt alta yazdırmam gerek.
örneğe göre İzmir şehrinden başlanacak ve 750 kilometreye kadar olabilecek seyahatler yazılacak. 4 şehirlik seyahat sürecek ilk şehir başlangıç şehri olmak üzere ve 3 şehire uğramak üzere.
Sheet2 de Şehilerin mesafe matrixi.
Sheet3 te ise şehirlerin plakaları ve isimleri bulunuyor.
Toplam katedilecek mesafeden daha az olması gerek ve bunu bu hücreye bağlı benim elimle değiştirebiliyor olmam gerek.
Başlangıç şehri de yine benim isteğime göre değişebilmeli. O hücreye bağlı şekilde.
Bunu sağlayan bir kod VBA'de nasıl yazılabilir? Gerçekten çok denedim ama sonuca ulaşamadım. Herhangi bir yol doğru olmadığı için de hiç yaptıklarımı atmadım kafa karışıklığı olmaması için.
Şimdiden yardımlarınızı beklerim, emekleriniz, ilginiz ve vaktiniz için teşekkür ederim.
