Başka Hücredeki tarihleri yazdırma

[excellkurdu]

Merhaba Arkadaşlar,
Farklı hücredeki eski yazılarımın içindeki tarih leri nasıl çekebilirim? Şöyle ki;
B2 Hücresindeki "ev - Ali günther tahtakurusu Telefon: xxx00149xxx2 söğütlü çatı kat 23.8.12 sorun çözülemedi" cümlesindeki 23.08.2012 tarihini nasıl A2 ye yazdırabilirim. Tarih Cümlenin herhangi bir yerinde olabilir.
Bu şekilde 1500 e yakın hücrem var. tek tek yapmak zaman alıyor. Bunu yapabilen formül var mı? Parçaal ile denedim beceremedim.
Şimdiden teşekkür ederim.

 

[adsoft]

bunu yapmak için sabit birşey lazım eğer cümle içinde noktayı sadece tarihte kullanıyorsak
a2 hücresine aşağıdaki formülü yapıştır

=ORTAB(B2;(MBUL(".";B2;1)-2);2)&".0"&ORTAB(B2;(MBUL(".";B2;1)+1);2)&"20"&ORTAB(B2;(MBUL(".";B2;1)+3);2)

 

[excellkurdu]

Haklısınız hocam mantığı anladım. Maalesef sabit bir yazım şekli yok. Formülde bazı hücrelerde istediğim tarihi vermese de işin büyük kısmını yaptı gibi. Şimdilik A sütünündaki görüntü bu şeklide;
25.07.2012
24.07.2012
ok.0 e20vc
ah.0 C20em
27.07.2012
28.07.2012
pt.0 120 n
üd.0 P20ul

Teşekkür ederim.

 

[adsoft]

eger surekli ayni şeyi yapıyorsan bir yöntem daha var onu deneyebilirim

 

[excellkurdu]

eger surekli ayni şeyi yapıyorsan bir yöntem daha var onu deneyebilirim

Çok eski kayıtlarım var onların formatını değişmede ve eskiye ait istatistik değerlendirmelerin de kullanacağım. Sizi uzun süre yormayacaksa, memnun olurum.

 

[adsoft]

şimdiki formül işine yarayacaktır ama sadece ay tek basamaklı olursa işine yarayacaktır yani 10, 11, 12 aylarda saçmalayacaktır umarım işine yarar

=EĞER(VE(ESAYIYSA(MBUL(".";B2;1)+1);YADA(ORTAB(B2;MBUL(".";B2;1)+2;1)=".";ESAYIYSA(ORTAB(B2;MBUL(".";B2;1)+2;1)=".")));ORTAB(B2;(MBUL(".";B2;1)-2);2)&".0"&ORTAB(B2;(MBUL(".";B2;1)+1);2)&"20"&ORTAB(B2;(MBUL(".";B2;1)+3);2);ORTAB(B2;(MBUL(".";B2;MBUL(".";B2;1)+1)-2);2)&".0"&ORTAB(B2;(MBUL(".";B2;MBUL(".";B2;1)+1)+1);2)&"20"&ORTAB(B2;(MBUL(".";B2;MBUL(".";B2;1)+1)+3);2))

not: bu formül ilk bulunan noktanın tarih olup olmadığına bakıyor, eğer tarih değilse bir sonraki noktayı buluyor onu kesin tarih olurak kabul ediyor umarım işine yarar.

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak ekteki örnek dosyayı inceleyiniz.

Kullanılan kod;

Function TARİH_AL(Veri As Range, Optional Kriter As String = " ") As Date
    Dim Data, X
    
    Application.Volatile True
    
    Data = Split(Veri.Text, Kriter)
    
    For X = 0 To UBound(Data)
        If IsDate(Data(X)) Then
            TARİH_AL = Format(CDate(Data(X)), "dd.mm.yyyy")
            Exit Function
        End If
    Next
End Function