Listeye atlayarak sıra numarası vermek

[EKREM1661]

Değerli Arkadaşlar..!
Satır5'den başlayarak, her 5 satırda bir sıra numarası nasıl verilir.. Yani, 5.satıra 1 vermiş olsa, 10.satıra 2 ve 15.satıra 3...diye devam edecek.. Tabii ki sağındaki B sütununda yer aalan en son veriye kadar..

 

[Saban Sertkaya]

Merhabalar, deneyiniz...

For a = 5 to [B65536].End(xlUp).row step 5
cells(a,1) = a
Next

 

[EKREM1661]

Şaban bey, 5-10-15-20...şeklinde yazıyor. Bu şekil değil de, 1-2-3-4-5...şeklinde, fakat her 5 satırda bir atlayarak yazacak..

 

[Saban Sertkaya]

Pardon, düzeltelim.

For a = 5 to [B65536].End(xlUp).row step 5
b = b +1
cells(a,1) = b
Next

 

[EKREM1661]

Saban20152015 bey..! Güzel olmuş eline sağlık, ziyadesiyle teşekkürler..