Soru tarih biçim değişikliği

[incsoft]

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

 

[Muzaffer Ali]

Merhaba.
Kodlarınızın en son satırına aşağıdaki satırı ekleyin.

Range("J:J").NumberFormat = "dd/mm/yyyy"

 

[incsoft]

Merhaba.
Kodlarınızın en son satırına aşağıdaki satırı ekleyin.

Range("J:J").NumberFormat = "dd/mm/yyyy"

O komut yapmıyor hocam ona benzer 1 komut denemiştim.

 

[incsoft]

Önceden Metni sütunlara dönüştür diyerek komutu yaparsam oluyor

 

[incsoft]

Merhaba.
Kodlarınızın en son satırına aşağıdaki satırı ekleyin.

Range("J:J").NumberFormat = "dd/mm/yyyy"

Macro kaydederek deneyim dedim yine olmuyor hocam


Private Sub CommandButton2_Click()
Range("J:J").NumberFormat = "dd/mm/yyyy"
Columns("J:J").Select
Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

End Sub

 

[Muzaffer Ali]

Dosyayı paylaşır mısınız kontrol edelim.

 

[incsoft]

Dosyayı paylaşır mısınız kontrol edelim.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu çalıştırınız.

Sub test()
    Dim Say As Long
    Columns("K:K").Insert
    Say = Cells(Rows.Count, "J").End(xlUp).Row
    Range("K1:K" & Say).Formula = "=datevalue(j1)"
    Range("K1:K" & Say).Copy
    Range("J1").PasteSpecial xlPasteValues
    Columns("K:K").Delete
End Sub