metini tarih formatına çevirmek

[efekara]

Sayın üyeler,
bir veri tabanından tarihleri excel dosyası şeklinde kaydettim, ancak excel bunları metin olarak algılıyor. Hücreleri seçip-------> hücre biçimlendir---->tarih demekle bu durum değişmiyor. Forumda arayıp bulabildiğim tek çözüm hücrelerin üzerine çift tıklamak. Ancak bunu yaklaşık 3000 hücre için yapmak zor. Daha kolay bir yolu varmı?

 

[S.Yiğit]

Merhaba,

Küçük bir örnek eklerseniz üzerinden gidilebilir..

 

[efekara]

Dosyayı ekte gönderiyorum. Buradaki tarihleri excel tarih olarak algılamıyor.
Bu verileri koppyala-yapıştır ile SPSS istatistik programına aktarmam gerekiyor.
Ancak bunları excel de tarih formatına getiremeyince SPSS kabul etmiyor.

 

[uzmanamele]

merhaba
herhangi bir hücreye 1 yazıp kopyalayın,
tarihlerin bulunduğu alanı seçin,
sağ tuş / özel yapıştır / çarp
aynı alanı seçip tarih formatında biçimlendirin

 

[S.Yiğit]

Gönderdiğiniz tarihlerde sorun yok gibi yani A2'deki tarih 01/08/2005 tarihi için B2 hücresine =A2+3 yazdığımızda sonuç olarak 04.08.2008 veryor.
isterseniz Düzen>Değiştir ile aranan bölümüne / yeni değer bölümüne . tümünü değiştir. Diyebilirsiniz.

 

[efekara]

Sayın uzmanamele ve Serkan Yiğit ilginiz için çok teşekkür ederim.

Serkan Yiğit'in söylediği doğru, ifade ettiği şekilde bir işlem yapınca o hücredeki değere tarih muamelesi yapıyor, ancak aslında o hücredeki değeri hala tarih olarak görmüyor (yani hücreyi seçip başka bir tarih formatına çevirmek isteyince herhangi bir değişiklik olmuyor)

uzmanamele'nin ise çözüm önerisi problemimi çözdü.

Her ikisine de teşekkürler

 

[alirali24]

Merhaba,
Her bir hucrede
29Aug19 16:30
18Apr19 17:40
seklindeki 1000lerce veri var ve bunlar "metin". Bunlari gg.aa.yy ss:dd sekline nasil cevirebilirim?

Tesekkurler

 

[Korhan Ayhan]

Hücreleri seçip aşağıdaki makroyu çalıştırın.

Option Explicit

Sub Secili_Alani_Tarih_Yap()
    Dim Alan As Range, Veri As Range, Eski_Ay As Variant, Yeni_Ay As Variant, X As Byte
    
    Set Alan = Selection
    
    Eski_Ay = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
    Yeni_Ay = Array(".01.", ".02.", ".03.", ".04.", ".05.", ".06.", ".07.", ".08.", ".09.", ".10.", ".11.", ".12.")

    For Each Veri In Alan
        If Veri.Value <> "" Then
            For X = 0 To UBound(Eski_Ay)
                Veri.Replace Eski_Ay(X), Yeni_Ay(X), xlPart
            Next
            Veri.Value = CDate(Veri.Value)
        End If
    Next
    
    Alan.EntireColumn.AutoFit
    
    Set Alan = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[alirali24]

Hücreleri seçip aşağıdaki makroyu çalıştırın.

Option Explicit

Sub Secili_Alani_Tarih_Yap()
    Dim Alan As Range, Veri As Range, Eski_Ay As Variant, Yeni_Ay As Variant, X As Byte
   
    Set Alan = Selection
   
    Eski_Ay = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
    Yeni_Ay = Array(".01.", ".02.", ".03.", ".04.", ".05.", ".06.", ".07.", ".08.", ".09.", ".10.", ".11.", ".12.")

    For Each Veri In Alan
        If Veri.Value <> "" Then
            For X = 0 To UBound(Eski_Ay)
                Veri.Replace Eski_Ay(X), Yeni_Ay(X), xlPart
            Next
            Veri.Value = CDate(Veri.Value)
        End If
    Next
   
    Alan.EntireColumn.AutoFit
   
    Set Alan = Nothing
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Korhan Bey geç cevabım için özür diler, yardımlarınız için teşekkür ederim

iyi akşamlar.