parça al sağdan

[mozbaykal]

arkadaşlar,

1940 ÇEŞME İSTİKBAL MAİL OR 03.05.2017 12010083T01


yukarıdaki metinden sadece tarih olan kısmı almak için yardımcı olabilirmisiniz.

teşekkür ederim.

 

[Orion1]

KTF yi bir modüle kopyalayın.
Kullanımı:Bir hücreye =tarihal(A1) yazın verinin A1 hücresinde olduğu kabul edilmiştir.

KTF:

Function tarihal(ByVal txt As Range) As Date
Dim tarih As Date, i As Byte, deg
deg = Split(txt.Value, " ")
tarih = deg(UBound(deg) - 1)
tarihal = tarih
End Function

 

[Tevfik_Kursun]

Teşekkürler Evren Hocam,
KTF muhteşem
Saygılarımla

 

[Orion1]

Teşekkürler Evren Hocam,
KTF muhteşem
Saygılarımla

Bilmukabele.

 

[mehmetuca]

Verinin A1 hücresinde olduğunu düşünürsek, B1 hücresine formülü yapıştırın.

=parçaal(a1;mbul("!";yerinekoy(a1;" ";"!";5));11)

 

[mozbaykal]

Verinin A1 hücresinde olduğunu düşünürsek, B1 hücresine formülü yapıştırın.

=parçaal(a1;mbul("!";yerinekoy(a1;" ";"!";5));11)

gecikmiş teşekkürü kabul edin