tarih makrosu yardım

[asilme]

arkadaşlar A1 hücresine değer girdiğimde aynı satırdaki " D " hücresine o günün tarihi otomatik gelmesi için hangi makroyu yazmam gerekiyor bir kaç gün sonra açınca tarih güncellemeyecek d hücresine attığı tarih sabit kalacak yardım edermisiniz

 

[ZorBey_]

Dosyanız Ektedir

 

[asilme]

Dosyanız Ektedir

sayfanın kodunda
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Set sh = Sheets("KAYIT")
Set st = Sheets("GEREĞİ YAPILANLAR")
If Target.Column = 8 Then
If sh.Range("H" & Target.Row).Value = "YAPILDI" Then
sonstr = st.[A65536].End(3).Row + 1
shson = Target.Row
sh.Rows(Target.Row & ":" & Target.Row).Select
Selection.Copy
Sheets("GEREĞİ YAPILANLAR").Activate
st.Range("A" & sonstr).Select
ActiveSheet.Paste
st.Cells(sonstr, "i").Value = Format(Now, "dd.mm.yyyy") 'tarihi yazmak için
Sheets("KAYIT").Activate
sh.Rows(Target.Row & ":" & Target.Row).Select
Selection.Delete Shift:=xlUp
sh.Range("A" & shson).Select
MsgBox "İşlem Tamam !" & vbLf & " İyi Günler !", vbCritical, "MESAJ"

End If
End If
Application.CutCopyMode = False
End Sub


böyle bir kod var altına ekleyince çalışmıyor bu kayıt sayfasının kod bölümünde yazıyor altına eklenmiyor

AYRICA a hücresindeki sayıyı silince veya şuan üzerindeki makro ile diğer sayfaya taşıyınca tarih otomatik silinmiyor

 

[asilme]

Dosyanız Ektedir[/Q

hocam 2 nolu mesajdaki dosyayı 3 nolu mesajdaki günlü evrak takip dosyasındaki kayıt sayfasına uygulayabilirmisiniz