metin içerisinde en sondaki boşluktan sonrasını almak

[pNouma]

Kıymetli Hocalarım merhaba,

Hücre içinde "en son boşluktan sonra gelen" değeri almak istiyorum;
Hücre içinde aşağıdaki bir metin olsun, burada son boşluktan sonraki veriyi (10) almak istiyorum;

xxxxxxxxxxx yyyyyyyyyyyy zzzzzzzzz 10

Özetle cümledeki en son kelimeyi alacak

xxxxxxxxxxx zzzzzzzzz 23

böyle bir metinde 23 sonucunu alacak


yardımlarınız için şimdiden teşekkürler,
iyi akşamlar dilerim.

 

[mustafa1205]

Sub SonKelimeAl
Dim ws As Worksheet
Dim i As Long
Dim arr() As String

' Sayfa1'i hedef al
Set ws = ThisWorkbook.Sheets("Sayfa1")

For i = 1 To 500
If ws.Cells(i, 1).Value <> "" Then
arr = Split(ws.Cells(i, 1).Value, " ")
ws.Cells(i, 2).Value = arr(UBound(arr))
End If
Next i
End Sub

Deneyiniz..
Sayfa1 de A1:A500 Arasında bulunan hücre içerisinde bulunan son boşluktan sonraki kelimeyi karşılığı olan B sütunundaki hücreye yazar

 

[mustafa1205]

=EĞER(KIRP(A1)="";"";EĞER(UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))=0;KIRP(A1);PARÇAAL(KIRP(A1);BUL("§";YERİNEKOY(KIRP(A1);" ";"§";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))))+1;UZUNLUK(KIRP(A1)))))

Buda Formül ile çözüm. Hangisi işinizi görürse kullanabilirsiniz...

 

[Korhan Ayhan]

Formülle alternatif...

=EĞERHATA(SAĞDAN(A1;(UZUNLUK(A1)-BUL("|";YERİNEKOY(A1;" ";"|";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))));A1)

 

[mustafa1205]

Elinize Sağlık Korhan Hocam. Kısa, öz net bir formül.

 

[Ali]

Alternatif

=KIRP(SAĞDAN(YERİNEKOY(A1;" ";YİNELE(" ";100));100))

 

[pNouma]

Formülle alternatif...

=EĞERHATA(SAĞDAN(A1;(UZUNLUK(A1)-BUL("|";YERİNEKOY(A1;" ";"|";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))));A1)

Korhan Hocam çok teşekkür ederim, kısa ve net bir formül olmuş
iyi Çalışmalar.