Döngü Kullanarak Çıktı Almak

[x-files]

Merhaba,

Bir excel tablom var, verileri farklı bir sayfadan düşey ara ile çekiyorum sıra numaralarına göre.
AA4 hücresinde 1 dediğim zaman 1. kayıt, 2 dediğim zaman 2. kayıt çıkmakta yazdır butonuna tıkladığım da.

Kod: Tümünü seç

Sub YAZDIR()
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$w$31"
.Orientation = xlLandscape
.Zoom = 90
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut
End Sub

Bu komutu çalıştırarak.

Ama ben şunu yapmak istiyorum. Yazdır dediğim zaman toplam döngüde kaç belirtiysem örnek 10 yada 100 dönecek sayı 1 den başlayıp 10 dediysem 10 kadar 100 dediysem 100 kadar dönecek sayıyı değiştirerek yazdırtmak istiyorum.

Bunu döngü ile nasıl yapabilirim, teşekkürler.

[x-files]

Şu şekilde işlemimi tamamladım teşekkürler.

Kod: Tümünü seç

Sub YAZDIR()

Dim dongu As Integer
dongu = ActiveSheet.Range("AA5")

For i = 1 To dongu

Range("AA4").Value = i

With ActiveSheet.PageSetup
.PrintArea = "$A$1:$W$31"
.Orientation = xlLandscape
.Zoom = 90
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut
Next i

End Sub