Hücre İçindeki Veride Bulunan Adı ve Soyadı Çekmek

[mustafa1205]

Örnek dosyamda açıklama yapmaya çalıştım. Yüzlerce satırlık banka extresi verisi mevcut. Sadece içinden adı ve soyadını nasıl çekebiliriz acaba ?

 

[Asri]

B2 ye yapıştırıp aşağı doğru çekin.

=TRIM(MID(A2;FIND("nolu";A2;1)+LEN("nolu");(FIND("hesabından";A2;1)-FIND("nolu";A2;1))-LEN("nolu")))

=KIRP(PARÇAAL(A2;BUL("nolu";A2;1)+UZUNLUK("nolu");(BUL("hesabından";A2;1)-BUL("nolu";A2;1))-UZUNLUK("nolu")))

 

[mustafa1205]

Çok teşekkür ederim Sayın Asri Hocam. Elinize sağlık. Biraz geç yazabildim kusura bakmayın. Gayet güzel çalışıyor.

 

[ismailem]

Function veriyigetir(m As String, i As String, s As String)
If s = "" Or s = Empty Then
veriyigetir = Mid(m, InStr(1, m, i, vbTextCompare) + Len(i), Len(m) - InStr(1, m, i, vbTextCompare) - Len(i))
ElseIf i = "" Or i = Empty Then
veriyigetir = Mid(m, 1, InStr(1, m, s, vbTextCompare) - 1)

Else
veriyigetir = Mid(m, InStr(1, m, i, vbTextCompare) + Len(i), InStr(1, m, s, vbTextCompare) - InStr(1, m, i, vbTextCompare) - Len(i))
End If
End Function

Hücrede Kullanımı:
=veriyigetir(A2;"nolu "; " hesabından")

 

[mustafa1205]

Teşekkür ederim sayın ismailem. Ancak kodu çalıştıramadım.

 

[ismailem]

Teşekkür ederim sayın ismailem. Ancak kodu çalıştıramadım.

Function veriyigetir(m As String, i As String, s As String)
If s = "" Or s = Empty Then
veriyigetir = Mid(m, InStr(1, m, i, vbTextCompare) + Len(i), Len(m) - InStr(1, m, i, vbTextCompare) - Len(i))
ElseIf i = "" Or i = Empty Then
veriyigetir = Mid(m, 1, InStr(1, m, s, vbTextCompare) - 1)

Else
veriyigetir = Mid(m, InStr(1, m, i, vbTextCompare) + Len(i), InStr(1, m, s, vbTextCompare) - InStr(1, m, i, vbTextCompare) - Len(i))
End If
End Function

Yukarıdaki kodu excelde bir modüle yapıştır. Sonra hücredeki fonksiyonu uygula

 

[mustafa1205]

Çok teşekkür ederim