Makro İle Sıra Numarası Vermek

[ormann]

İyi günler ekteki linkte bulunan örnek dosyada E33:E5000 arasına veri girildiğinde D335000 hücresine birden başlayarak makro ile sırasıyla sayı numarası verilerlebilr mi?
http://dosya.co/4wllyraml4jp/ÖRNEK-2.xls.html

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("E33:E5000")) Is Nothing Then Exit Sub
    If Target <> "" Then
        Target.Offset(0, -1) = WorksheetFunction.Max(Range("D33:D5000")) + 1
    Else
        Target.Offset(0, -1).ClearContents
    End If
Son:
End Sub