Tarih Yazdırma Yardım

[sosorry]

Arkadaşlar ekteki dosya için yardımınızı bekliyorum.

Teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Sayfa1'in kod kısmına aşağıdaki kodu ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("A5:T28"), Target) Is Nothing Then
        Worksheets.Add
        ActiveSheet.Range("A1") = Target.Text
        ActiveSheet.Range("B1") = Now
        Activate
    End If
End Sub