A Sutununa B Sutunundaki veriler kadar sayi siralama

[lapot]

Merhaba arkadaslar

Dosyanda A sutunu bos B sutununda degisken veriler var, A2 sutunundan baslayarak B deki veriler kadar sayilari nasil siralandiririm? Yani A2 den baslsyip asagiya dogru 1,2,3,4,5 vs... diye dolduracak Bstunundaki veriler kadar..

Yardimlariniz icin tesekkurler

Saygilar sunuyorum

 

[asi_kral]

Merhaba
Bu kodu kullanabilirsiniz.

Option Explicit
Sub Sıra()
Dim STR As Long
STR = Range("B" & Rows.Count).End(xlUp).Row
Range("A2") = 1: Range("A3") = 2
Range("A2:A" & STR).DataSeries xlColumns, xlAutoFill, xlDay, , , False
End Sub

 

[lapot]

Merhaba
Bu kodu kullanabilirsiniz.

Option Explicit
Sub Sıra()
Dim STR As Long
STR = Range("B" & Rows.Count).End(xlUp).Row
Range("A2") = 1: Range("A3") = 2
Range("A2:A" & STR).DataSeries xlColumns, xlAutoFill, xlDay, , , False
End Sub

harikasin asi_kral , super calisti. Cok cok tesekur ediyorum