Kayıt ve değişiklik tarihleri kod yardımı

[Believing]

Değerli Arkadaşlar,

Aşağıdaki kodlar ile "K" sütununa kayıt tarihi, "L" sütununa ise değişiklik tarihi yazdırıyorum. Tablomdaki 1 satırda başlık bulunması nedeniyle, bu tarihleri kullanacağım alan ile sınırlandırmak istiyorum. 2. satır ile 500 satır aralığına göre nasıl düzenleyebilirim.

Saygılarımla,

Private Sub Worksheet_Change(ByVal Target As Range)
        
        Cells(Target.Row, "L") = Format(Now, "dd.mm.yyyy - hh:mm")
        If Cells(Target.Row, "K") = "" Then
        Cells(Target.Row, "K") = Format(Now, "dd.mm.yyyy - hh:mm")
        End If
        
        sa = Target.Row
        
        If WorksheetFunction.CountA(Range("B" & sa & ":J" & sa)) = 0 Then
        Cells(Target.Row, "K") = ""
        Cells(Target.Row, "L") = ""
        End If

End Sub

 

[Ömer]

Merhaba,

İlk satırdan sonra ekleyin.

If Target.Row < 2 Or Target.Row > 500 Then Exit Sub

.

 

[Believing]

Sayın Ömer bey,

Yardımınız için çok teşekkür ederim.

Saygılarımla