kelime ile tarihi ayırmak

[sdegirmenci]

Merhaba,
Kelime ile tarihi ayırmak istiyorum.Ekteki dosyamda modül 1 üzerinde Sayın Evren GİZLEN Hocamızın yazdığı "kelime ile sayıyı ayırma" kodu var. Acaba bir değişiklik ile bunu "kelimeyi tarihten ayırma" yapabilirmiyiz. Yardımlarınız için şimdiden çok teşekkür ederim. Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Function TARİH_AYIR(Hücre As Range) As Date
    Dim VERİ() As String, X As Byte
    
    Application.Volatile True
    
    VERİ = Split(Hücre, " ")
    
    For X = 0 To UBound(VERİ)
        If IsDate(VERİ(X)) Then
            TARİH_AYIR = Format(VERİ(X), "dd.mm.yyyy")
        Exit For
        End If
    Next
End Function

 

[sdegirmenci]

Hocam ilginize çok teşekkür ederim,
Modül üzerine ekledim ama nasıl kullanacağımı anlayamadım, cahilliğime verin lütfen,

 

[Ali]

Verileriniz hep bu formatta ise makrosuzda yapılır.

Kelime için

=YERİNEKOY(D1;METNEÇEVİR(ARA(9,99999999999999E+307;--SAĞDAN(D1;SATIR(A1:A1024)));"gg.aa.yyyy");"")

Tarih için

=METNEÇEVİR(ARA(9,99999999999999E+307;--SAĞDAN(D1;SATIR(A1:A1024)));"gg.aa.yyyy")

.

 

[sdegirmenci]

Sayın Ali;
İlginize çok teşekkür ederim. Bu şekilde de olabilir tabi. İşlerinizin kolay gelmesi dileğiyle hoşçakalın.

 

[Korhan Ayhan]

Selamlar,

Evren beyin önerdikleri gibi kullanacaksınız. Bir farkı yok.

[B][COLOR=blue]=TARİH_AYIR(A1)[/COLOR][/B]