A Sütununa Sıra numaraı vermek

[Mesafe]

A Sütununa A2 hücresinden başlayarak aşağıya doğru sıra numarası verecek bir makro koduna ihtiyacım var. Bu işlemi B sütunundaki son dolu hücreye kadar yapacak.

 

[Necdet]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

Sub SiraNoVer()
    
    Dim i As Long
    i = Cells(Rows.Count, "B").End(3).Row
    Range("A2") = 1
    Range("A2:A" & i).DataSeries
    
End Sub

 

[Mesafe]

Hocam, çok teşekkür ederim.