Hücreye girilen verinin yanına otomatik tarih

[oornek1]

merhaba arkadaslar ekteki örnekte "b5" hücresine veri yazıldıgında "f2" hücresine numaralandırıyor "b5" hücresine yazdıgım "g2" hücresine alt alta sıralanıyor benim istediğim ise "b5" hücresine giriş yapıldıgında "g2" ye veri alt alta yazılsın her yazılan verinin karsısına yani "h2" hücresine işlemin yapıldıgı tarih atması bu konuda siz değerli ustalarımdan yardım istiyorum

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B5]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target <> "" Then
    SATIR = IIf([G65536].End(3) = "", [G65536].End(3).Row, [G65536].End(3).Row + 1)
    Cells(SATIR, "F") = WorksheetFunction.Max([F:F]) + 1
    Cells(SATIR, "G") = Target
   [B][COLOR="Red"] Cells(SATIR, "H").Value = Date[/COLOR][/B]
    [B][COLOR="Red"]Cells(SATIR, "H").NumberFormat = "dd.mm.yyyy"[/COLOR][/B]    
End If
End Sub

 

[oornek1]

teşekkürler hocam

 

[Orion1]

teşekkürler hocam

Rica ederim.
İyi çalışmalar.