Soru Otomatik Kayıt Numarası Alma_Sayfanın Kod Kısmına

[TiOr]

Merhabalar,
B1 hücresine sıra gelen kayıtlarda (alt alta) A1 hücresinin altına doğru otomatik kayıt numarasını vermesi için sayfanın kodu kısmına kod talebim bulunmaktadır.
Kıymetli desteklerinizi talep eder, saygılarımı sunarım.
İyi çalışmalar..

 

[TiOr]

Çözüldü

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("B2:B1000000")) Is Nothing Then Exit Sub
For i = 2 To Range("B1000000").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub