Tarih problemi

[memodino]

Başka bir programdan excele aktardığım veriler de Tarih sutununda gelen bilgiler (12/27/2018 12:00:00 AM) şeklinde bunu 27.12.2018 şekline dönüştürmek istiyorum
ek dosya da mevcut. A sütunundaki tarihleri dönüştürmek istiyorum.Sayfanın formatını dosyayı aktardığım programdan aldığım gibidir.Başka bir sayfada mı yapmam gerekiyor.
Teşekküre ederim.
2019 hayalinizdeki yıl olsun...

 

[askm]

Aşağıdaki kodları kullanabilirsiniz. Eğer değerler A sütununda olmasını istiyorsanız,
Cells(i, 2) = Format(DateSerial(yil, ay, gün), "dd.mm.yyyy") satırındaki cells(i,2) değerini cells(i,1) olara değiştiriniz.

Sub askm()
Dim son As Long
son = Range("A" & Rows.Count).End(3).Row
Application.ScreenUpdating = False
For i = 4 To son
    deger = Split(Cells(i, 1).Value, "/")
    yil = Left(deger(2), 4)
    ay = deger(0)
    gün = deger(1)
    Cells(i, 2) = Format(DateSerial(yil, ay, gün), "dd.mm.yyyy")
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation
End Sub

 

[Korhan Ayhan]

Alternatif;

Hücreleri seçip Veri-Metni Sütunlara Dönüştür seçeneğini kullanabilirsiniz.

 

[çıtır]

Formülle oluşturulmuş çözüm.

 

[Ömer BARAN]

Merhaba.
Alternatif olsun. (Umarım yanlış düşünmedim)

Sub TARIHE_CEVIR()
    [A4:A36].NumberFormat = "dd/mm/yyyy"
    [A4:A36].Value = [A4:A36].Value
End Sub

 

[memodino]

Aşağıdaki kodları kullanabilirsiniz. Eğer değerler A sütununda olmasını istiyorsanız,
Cells(i, 2) = Format(DateSerial(yil, ay, gün), "dd.mm.yyyy") satırındaki cells(i,2) değerini cells(i,1) olara değiştiriniz.

Sub askm()
Dim son As Long
son = Range("A" & Rows.Count).End(3).Row
Application.ScreenUpdating = False
For i = 4 To son
    deger = Split(Cells(i, 1).Value, "/")
    yil = Left(deger(2), 4)
    ay = deger(0)
    gün = deger(1)
    Cells(i, 2) = Format(DateSerial(yil, ay, gün), "dd.mm.yyyy")
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation
End Sub

Merhaba.
Alternatif olsun. (Umarım yanlış düşünmedim)

Sub TARIHE_CEVIR()
    [A4:A36].NumberFormat = "dd/mm/yyyy"
    [A4:A36].Value = [A4:A36].Value
End Sub

Teşekkürler ,emeğinize sağlık

 

[memodino]

Alternatif;

Hücreleri seçip Veri-Metni Sütunlara Dönüştür seçeneğini kullanabilirsiniz.

Teşekkürler ,

 

[memodino]

Formülle oluşturulmuş çözüm.

Dosyada formül yok. İlginz için teşekkürler

 

[çıtır]

Dosyada formül yok. İlginz için teşekkürler

Sayfa2 B sütunda formülle yapılmış çözüm var.

 

[memodino]

Çok teşekkürler ..emeğinize sağlık

 

[çıtır]

Çok teşekkürler ..emeğinize sağlık

Rica ederim.Dönüş yaptığınız için teşekkür ederim.