Satırları otomatik olarak numaralandırma

[heavysmoker]

Merhabalar, Satırları otomatik olarak numaralandırma derken örneğin elimdeki aralıklar doğrultusunda satırlara numara yazdırmak istiyorum.

örneğin elimdeki başlangıç ve bitiş numaraları bulunmaktadır.
başlangıç : 354147 bitiş : 361198 fark : 7051

istediğim olay bu iki aralığı satır olarak yazdırmak
354147
354148
354149
354150
354151
…
…
361198


konu ile ilgili yardımcı olursanız sevinirim güzel günler dilerim.

 

[hoguz2]

merhaba

B1 e kucuk sayiyi C1 e buyuk sayiyi yazip kodu calistirin


Sub Aralik_SAY()

Dim say As Long
Dim kucuksayi, buyuksayi As Long
Dim i, fark As Long
kucuksayi = Cells(1, 2)
buyuksayi = Cells(1, 3)
fark = buyuksayi - kucuksayi
say = WorksheetFunction.CountA(Range("A1:A65000"))
i = 1
Do
Cells(say + i, 1).Value = kucuksayi - 1 + i
i = i + 1
Loop While i <= fark + 1
End Sub