For döngüsü ile 1 den 50 'ye kadar yazdırma

[NEMAKSAN]

Selamlar;

A1'den E10'a kadar 1-2-3 diye 50'kadar sıralı olarak nasıl yazdırabilirim

 

[meslan]

Merhaba

Sub Test()
For y = 1 To 5
For i = 1 To 10
s = s + 1
Cells(i, y) = s
Next
Next
End Sub

 

[NEMAKSAN]

Sayın meslan;

çok teşekkür ederim