İşlem tarihi

[alperalper]

ilgili dosyaya bakabilirmisiniz.....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu Sayfa1 in kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D6:M6]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target <> "" Then Target.Offset(1, 0) = Date
End Sub