Döngü

[soykan]

Değerli üstatlar aşağıdaki gibi bir makrom var

Sheets("AlFtr").Range("B1:B8").Copy
ypfatalan = [B50000].End(3).Row
Range("N" & ypfatalan - Sheets("AlFtr").Range("o2")).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Burada bir döngü kurup sayfada belirlediğim(formulle) bir sayı var sözgelimi 10
yukarıdaki makro işlemini 10 kere tekrarlasın istiyorum nasıl yapabilirim?

Teşekkürler.

 

[zafer]

Merhaba

Donsay=Range("a2") ' döngünün sayısını aldığı hücre

i=1 to donsay

kodlar

Cells(i,3)=..........
...
...

next


Örnek tablo eklerseniz ve açıklamalarınızı daha geniş tutarsanız daha iyi sonuç alırsınız.