tüm bağlantıları bir kerede silme

[mrpeace0365]

arkadaşlar şöyle bir makrom var:

ActiveWorkbook.Connections("Bağlantı").Delete
ActiveWorkbook.Connections("Bağlantı1").Delete
ActiveWorkbook.Connections("Bağlantı2").Delete
ActiveWorkbook.Connections("Bağlantı5").Delete
ActiveWorkbook.Connections("Bağlantı6").Delete
ActiveWorkbook.Connections("Bağlantı8").Delete
...
ActiveWorkbook.Connections("Bağlantı78").Delete
ActiveWorkbook.Connections("Bağlantı81").Delete

diyelim ki elimde toplam adedi belirsiz ve sıra sayısı da düzensiz bağlantılarım var...
bu bağlantıları tek tek silmek yerine nasıl bir kerede tümünü silebilirim?

teşekkürler...

 

[janveljan]

Merhaba bu kod ilki hariç hepsini siler

For i=1 To 81
ActiveWorkbook.Connections("Bağlantı" & i).Delete
Next

 

[mrpeace0365]

sayın janveljan,
cevap için teşekkür ederim ama bağlantı sayısı her zaman 81 değil maalesef bu artadabilir azaladabilir..
ayrıca arada olmayan bağlantı numaraları da var...

 

[janveljan]

Örnek dosya ekleyebilirsen, daha net cevap verebiliriz.

 

[Necdet]

Merhaba,

Sayın janveljan'ın kodlarını aşağıdaki şekilde dener misiniz?

Sub BaglantiSil()
For i = ActiveWorkbook.Connections.Count To 1 Step -1
    ActiveWorkbook.Connections("Bağlantı" & i).Delete
Next i
End Sub

 

[mrpeace0365]

sayın janveljan ve necdet yeşertener,
tam olarak çözüm bu...
her ikinizinde ellerine sağlık ve teşekkürler...