DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a2:a100]) Is Nothing Then Exit Sub
If IsDate(Target) Then
Target.Value = Day(Target) & Month(Target) & Year(Target)
Target.NumberFormat = "@"
End If
End Sub