Makro İle Sıra Numarası Vermek

[ormann]

İyi günler ;
Ekli dosyada DİKİLİ GİRİŞİ sayfasında G19:G65000 hücre aralığına veri girdiğimde sırasıyla E19:E65000 hücre aralığına makro ile sıra numarası verdirebilir miyiz ?
http://dosya.co/xwls1uyse9nf/6-N.rar.html

 

[çıtır]

DİKİLİ GİRİŞİ Sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Long, No As Long
If Intersect(Target, Range("G19:G65000")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    On Error Resume Next
    For X = 19 To Selection.SpecialCells(xlCellTypeLastCell).Row
        If Cells(X, "E").MergeArea.Count = 1 Then
            If Cells(X, "G") <> "" Then
                No = No + 1
                Cells(X, "E") = No
            Else
                If Target = "" Then
                    Cells(X, "E") = Empty
                End If
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[hamitcan]

Farklı bir çözüm.

Sub SiraNo()
    [g19].Select
    i = 19
      Do While Not IsEmpty(Cells(i, "g"))
     
        Cells(i, "e") = i - 18
         i = i + 1
    Loop
End Sub

 

[ormann]

Çok teşekkür ederim.Sayın Çıtır ve Hamit bey