Belli Aralıklarla Sıra No verdirme

[gertt]

Merhaba.
A5:A500 arasında F1 hücresinde belirlenen sayı kadar 3 satır atlayarak sıra numarasını makroyla nasıl yazdırabiliriz?
Örneğin;F1 hücresindeki sayı 6 olsun.
A5'e 1, A8'e 2, A11'e 3, A14'e 4, A17'ye 5, A20'ye 6 sayısı,........... gibi.
Teşekkürler...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub SayiVer()
 
    Dim son As Long, say As Long, i As Long
   
    On Error GoTo bitir
    Range("A5:A" & Rows.Count).ClearContents
    
    son = Range("F1") * 3 + 2
    
    say = 1
    For i = 5 To son Step 3
        Cells(i, "A") = say
        say = say + 1
    Next i
        
    Exit Sub
bitir:
    MsgBox "F1 Değeri Hatalı"
    
End Sub

.

 

[gertt]

Ömer Bey,çok teşekkür ederim.Elinize sağlık.Harika olmuş.