makroların boş satıra kadar tekrarlaması

[numan şamil]

Merhaba arkadaşlar
ekli dosyada Aktar sayfasındaki "TÜMÜ" adlı düğmeye bastığımda bu düğmeye atanan makroların boş satıra kadar tekrar etmesini istiyorum.
Not: Oluşturulan kitapların hepsini (sormadan) masaüstüne bulunan ("oluşturulan klosör")adlı bir klosöre atmasını istiyorum
iyi çalışmalar.

 

[numan şamil]

Galiba olmayacak birşey istedim.
("TÜMÜ" dümesine atanan makroların dolu satırlar bitip boş satıra kadar tekrar etmesi eğer bu olmayacaksa belli bir satır sayısına kadar işlemlerin otomatik tekrarı bu sayıyı değer değiştirici ile bizim belirleyeceğimiz şekilde yapabilirmiyiz)
Arkadaşlar bu konudu bir fikri olan yokmu?

 

[numan şamil]

Yardım lütfen!

 

[quesh]

For i = 1 To 65000
Do Until Cells(i, 1) = ""
i = i + 1
Loop
Next

 

[numan şamil]

Sayın Guesh
göndermiş olduğunuz kodları ben dosyama uyarlıyamadım.
ekte göndermiş olduğum dosyaya (modül 5) uyarlıya bilirmisiniz
iyi çalışmalar
Not: excel 2003 türkçe

 

[numan şamil]

Korhan hocam "oluşturulan dosyayı sormadan masa üstüne atması" başlığı altında sorunumu çözdü
herkese iyi çalışmalar