Yardım tarih biçim değişikliği

J sütununda 2021.11.23 2021.11.24 vb.. olan tarihlerim var arkadaşlar. Bunları macro ile 23.11.2021 ve 24.11.2021 şekline nasıl dönüştürebilirim? Aşağıda export.xls dosyasından verileri çekerek getiren macrom var onu bu macronun içine adapte edeceğim.

Teşekkürler..


Private Sub CommandButton1_Click()
Set Con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
yol = "C:\Users\ufuk\Desktop\"
Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "export.xlsx" & _
";extended properties=""Excel 8.0;hdr=yes"""
Sorgu = "SELECT * FROM [Sheet1$]"
rs.Open Sorgu, Con, 1, 1
Range("a1").CopyFromRecordset rs
rs.Close: Con.Close
Set Con = Nothing: Set rs = Nothing
End Sub

Merhaba aşağıdaki gibi deneyebilirsiniz.

Private Sub CommandButton1_Click()
Set Con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
yol = "C:\Users\ufuk\Desktop\"
Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "export.xlsx" & _
";extended properties=""Excel 8.0;hdr=yes"""
Sorgu = "SELECT * FROM [Sheet1$]"
rs.Open Sorgu, Con, 1, 1
Range("a1").CopyFromRecordset rs
rs.Close: Con.Close
Set Con = Nothing: Set rs = Nothing

Columns("J:J").Select
Selection.NumberFormat = "m/d/yyyy"

End Sub