4 satırda bir 1 sayı arttırma

[aacanakova]

Hocam bir ricam var . Aradım formlarda bulamadım

ekteki listenin en sağındaki listede 4 satırda bir bir sayı arttırmak istiyorum .
şimdiden teşekkür ederim yardımcı olacak üstadlarıma

yani
1001
1001
1001
1001
1002
1002
1002
1002
1003
1003
1003
1003

diye otomatik sayı vermek istiyorum

 

[Orion1]

Dosyanız ektedir.

Sub dortsayi59()
Dim i As Long, j As Long, sayi As Long
sayi = 1001: sat = 2
Range("F2:F" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For i = 1001 To 1057
    For j = 1 To 4
        Cells(sat, "F").Value = i
        'sayi = sayi + 1
        sat = sat + 1
    Next j
Next i
Application.ScreenUpdating = True
MsgBox "bitti" & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[aacanakova]

Eyvallah kardeşim teşekkür ederim ellerine sağlık