Makro kayıt F2 özellik

[igultekin2000]

iyi günler , şablon sayfasında iki hücre formülle oluşturuluyor, makro ile

Sub kayit()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Set ag = Sheets("ANAGİRİŞ"): Set s = Sheets("SABLON"): Set g = Sheets("GIRIS")
agsat = ag.Cells(Rows.Count, "B").End(xlUp).Row + 1
s.Range("A2:L2").Copy
ag.Cells(agsat, 2).PasteSpecial Paste:=xlPasteValues
ag.Range("A2:R" & Rows.Count).Sort Key1:=ag.Range("C1"), Order1:=xlAscending
g.Range("H2:K2").ClearContents
g.Activate: g.Range("B2").Activate
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

kaydediliyor. kayıtla ilgili sayfaya aktarılan " TARİH " kısmını otomatik algılanmıyor. ilgili sayfaya gelip tarih kayıtlara F2 uyguladığım zaman tarih olarak algılıyor. bunun kolay yolunu bulamadım.