Makro ile tarih formatını değştirirken yaşanan sorun

[karakaçan]

Arkadaşlar ekte sunduğum dosyadaki A sütunundaki tarih değerleri programdan alııp excele aktarılan verilerdir. B sütunundaki değerler ise A sütunundaki değerlerde bulunan / yerine . konulmuş halidir.(makro ile)
Csütunundaki değerler ise A sütunundaki değerlerin ctrl F yapılarak / yerine . konulmuş halidir. Sorun şu makro ile bulunan değerlerin biçimi tarih olmasına rağmen genel görünmesi. Crll f yapınca sorun yok ama makro ile yapınca sorun var. kullandığım makro ise

Dim sat As Integer
Application.ScreenUpdating = False
For sat = 2 To Cells(65536, "a").End(xlUp).Row
Cells(sat, "a") = Replace(Cells(sat, "a"), "/", ".")
Next
Application.ScreenUpdating = True
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Tarih()
 
    Dim i As Long
 
    For i = 3 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "B") = CDate(Cells(i, "A"))
    Next i
 
End Sub

 

[Seyit Tiken]

Aşağıdaki örnek kodu bir deneyiniz.

[A1:A20].NumberFormat = "mm/dd/yyyy"

 

[karakaçan]

teşekkür ederim deneyeceğim inşaallah