Alternatifleri Çıkaran Makro

[ataniyazi]

Arkadaşlar Merhaba, Çok sıkıntıdayım inşallah bir çözüm önerirsiniz. Ekdeki dosyada HAT_NO KENAR_NO dan oluşan bir toplam liste var burdan alternatifleri nasıl çıkarırız yardımınızı bekliyorum. Örnek Bir permütasyon sorusuna benziyor. Örneğin ankaradan istanbula eskişehirden gidersin yada bursadana o zaman ankara,eskişehir,ist bir alternatiftir, 2. alternatif ise ankara bursa ist, bakarsanız çok sevinirim. Saygılar.

 

[ataniyazi]

Arkadaşlar yardımlarınızı Bekliyorum.

 

[janveljan]

Örnekten tam olarak anlayamadım, verdiğiniz örnekte istediğiniz hususları daha net anlatırsanız daha fazla yardımcı olabiliriz. Bu arada aşağıda 5 in 3 lü permütasyonunu veren örnek kodlar var.

Sub permutasyon()
Dim a(1 To 5)
a(1) = 1
a(2) = 2
a(3) = 3
a(4) = 4
a(5) = 5
For i = 1 To 5
For j = 1 To 5
If j = i Then GoTo nextj
For k = 1 To 5
If k = j Or k = i Then GoTo nextk
MsgBox i & j & k
nextk:
Next
nextj:
Next
Next
End Sub