Hücrelere koşullu sayı yazma

[kadir78]

İyi günler. Hücrelere sayıları alt alta yazma işleminde

örnek:

A3 - 2017 / 1
A7 - 2017 / 2
A11 - 2017 / 3
A15 - 2017 / 4
A19 - 2017 / 5
A23 - 2017 / 6
A27 - 2017 / 7
A31 - 2017 / 8
A35 - 2017 / 9
A39 - 2017 / 10
A46 - 2017 / 11
A50 - 2017 / 12 vb.

Bu şekilde bir yazma işlemini makro kodları ile yazmak istiyorum. Yardımcı olur musunuz.

 

[çıtır]

Sub yaz()
x = 1
For i = 3 To 100 Step 4
Cells(i, 1) = " 2017 / " & x
x = x + 1
Next i
End Sub

 

[kadir78]

Çok teşekkür ederim. Elinize, emeğinize sağlık.

 

[çıtır]

Çok teşekkür ederim. Elinize, emeğinize sağlık.

Rica ederim.Kolay gelsin.

 

[kadir78]

Küçük bir sorum daha olacaktı. Bu kodlarla yazma işlemi oluyor. Sadece 2017 / 1 den 2017 / 10
kadar yazdıktan sonra 7 satır aşağıdaki hücreden devam etmesini sağlayabilir misiniz.

A3 - 2017 / 1
A7 - 2017 / 2
A11 - 2017 / 3
A15 - 2017 / 4
A19 - 2017 / 5
A23 - 2017 / 6
A27 - 2017 / 7
A31 - 2017 / 8
A35 - 2017 / 9
A39 - 2017 / 10
A46 - 2017 / 11
A50 - 2017 / 12
A54 - 2017 / 13 vb

 

[çıtır]

Sub yaz1()
x = 1
For i = 3 To 39 Step 4
Cells(i, 1) = " 2017 / " & x
x = x + 1
Next i
x = 11
For i = 46 To 100 Step 4
Cells(i, 1) = " 2017 / " & x
x = x + 1
Next i
End Sub

 

[kadir78]

Çok sağolun.