Metin Formatını Tarih Formatına Çevirmek

[ECYavuz]

İyi günler; Metin Formatında alınan aşağıdaki örneklerde ki Tarihleri Excel Hücre Tarih Formatına dönüştürecek bir KTF yapılabilirmi? Veya VBA kodu da olabilir.

Pazar 05 EKIM 2008
Pazar 05 EKIM 2008
Pazartesi 06 EKIM 2008
Pazartesi 06 EKIM 2008
Salı 07 EKIM 2008
Salı 07 EKIM 2008
Çarşamba 08 EKIM 2008
Çarşamba 08 EKIM 2008
Perşembe 09 EKIM 2008
Perşembe 09 EKIM 2008
Cuma 10 EKIM 2008
Cuma 10 EKIM 2008

Saygılarımla...

 

[hamitcan]

=METNEÇEVİR(C2;"GGGG GG AAAA YYYY") şeklinde dener misiniz ?

 

[Necdet]

Merhaba,

Çalakalem birşeyler yapmaya çalıştım, dener misiniz?

Sub TariheCevir()
Dim Ay As Integer
Range("b:b").ClearContents
For i = 1 To [a65536].End(3).Row
    a = Split(Cells(i, "A"), " ")
    If a(2) = "OCAK" Then
        Ay = 1
    ElseIf a(2) = "SUBAT" Then
        Ay = 2
    ElseIf a(2) = "MART" Then
        Ay = 3
    ElseIf a(2) = "NISAN" Then
        Ay = 4
    ElseIf a(2) = "MAYIS" Then
        Ay = 5
    ElseIf a(2) = "HAZIRAN" Then
        Ay = 6
    ElseIf a(2) = "TEMMUZ" Then
        Ay = 7
    ElseIf a(2) = "AGUSTOS" Then
        Ay = 8
    ElseIf a(2) = "EYLUL" Then
        Ay = 9
    ElseIf a(2) = "EKIM" Then
        Ay = 10
    ElseIf a(2) = "KASIM" Then
        Ay = 11
    Else
        Ay = 12
    End If
    
    Cells(i, "B") = DateSerial(a(3), Ay, a(1))
Next i
End Sub

 

[uzmanamele]

merhaba
syn ECYavuz,
bu kodu sizin yazabileceğinizden eminim, benim için biraz zaman alır, çok pratik değilim.

gün adlarını boşverin.
ilk boşlukdan sonra 2 karakter al,
2.boşluk ile 3.boşluk arasındaki ay adlarını al, bunu ay listesinde (düşeyara olabilir) kaçıncı ay olduğunu bul
son 4 karakteri al,
bunları yanyana getirerek araya "." koy, hücreyi tarih formatında yazdır.

 

[ECYavuz]

merhaba
syn ECYavuz,
bu kodu sizin yazabileceğinizden eminim, benim için biraz zaman alır, çok pratik değilim.

gün adlarını boşverin.
ilk boşlukdan sonra 2 karakter al,
3.boşluk ile 3.boşluk arasındaki ay adlarını al, bunu ay listesinde (düşeyara olabilir) kaçıncı ay olduğunu bul
son 4 karakteri al,
bunları yanyana getirerek araya "." koy, hücreyi tarih formatında yazdır.

Harikasın sevgili Dostum... Sağol....İnan çok güldüm açıklamana...

Diğer Uzman dostlara da çok teşekkürler...

 

[uzmanamele]

merhaba

ben yemek tarifini verene kadar syn Necdet hocam çokdan servis yapmış bile. :bravo: