VB Tablo Değeri Dolduğunda Başa Dönmek

[myefsane]

Merhaba bir 10 satırlık bir tabloyu makro ile doldurduktan sonra tekrar 1 den devam etmesini nasıl sağlarız?

Örnek olarak A1 hücresini 1. satıra A10 10. satıra yazdık. A11 değerini tekrar 1. satıra nasıl yazarız.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim X As Long, Y As Long, Satir As Long
    
    For X = 1 To 30 Step 10
        Satir = 1
        For Y = 0 To 9
            Cells(Satir + Y, 2) = Cells(X + Y, 1)
        Next
    Next
End Sub