Metinlerden istenilen kelimeyi ayırma.

[sert_unsuz]

Merhaba.
Benim isteğim bir cümledeki örneğin 3.kelimeyi bulmak. Kaçıncı kelimeyi istediğini kullanıcı yazacak, formülde getirecek.

Bu istediğim formülü yerleşik fonksiyonlarla ve dizi formülü olmadan yapabilirmiyiz?

Teşekkür ederim.

 

[mersilen]

Merhaba
kısmen işinize yarayabilir, KTF olarak

Function bull(alan As Range, harf As String, sira As Integer) As String
Dim i As Integer
bull = ""
a = alan 'aranacak tümce
If a = "" Then Exit Function
say = 0
For i = 1 To Len(a)
If sira = say And Left(Mid(a, i, Len(a)), 1) = harf Then GoTo son
If sira = say Then
bull = bull + Left(Mid(a, i, Len(a)), 1)
End If
s = Left(Mid(a, i, Len(a)), 1)
If harf = s Then
say = say + 1
End If
Next i
son:
End Function

formülü aşağıdaki şekilde kullanabilirsin, yalnız "," ve "." işaretlerinide alıyor

=bull(A2;" ";1)

linkide inceleyebilirsin
http://www.excel.web.tr/f14/yinelenme-sayysy-t105153.html

 

[sert_unsuz]

Teşekkürler

Cevabınız için çok teşekkür ederim. Ama ben yerleşik ve dizi olmayan formüllerle çözmek istiyorum..

 

[sert_unsuz]

Sayın uzmanlarımız varmı bir tavsiyeniz?

 

[sert_unsuz]

Merhaba.
İlgili sorumun cevabını kendim hallettim.
İlgilenen arkadaşlara çok teşekkür ederim.
İlgili dosya ektedir.

 

[Ömer]

Merhaba.
Benim isteğim bir cümledeki örneğin 3.kelimeyi bulmak. Kaçıncı kelimeyi istediğini kullanıcı yazacak, formülde getirecek.

Bu istediğim formülü yerleşik fonksiyonlarla ve dizi formülü olmadan yapabilirmiyiz?

Teşekkür ederim.

Merhaba,

=EĞER(YADA(B2<1;B2>UZUNLUK(KIRP(A2))-UZUNLUK(YERİNEKOY(KIRP(A2);" ";""))+1)
 ;"Değer "&UZUNLUK(KIRP(A2))-UZUNLUK(YERİNEKOY(KIRP(A2);" ";""))+1&" Kelimedir"
  ;PARÇAAL(A2;EĞER(B2=1;1;BUL("*";YERİNEKOY(A2;" ";"*";B2-1))+1)
 ;EĞER(EHATALIYSA(BUL("*";YERİNEKOY(A2;" ";"*";B2)));256;BUL("*"
;YERİNEKOY(A2;" ";"*";B2)))-EĞER(B2=1;1;BUL("*";YERİNEKOY(A2;" ";"*";B2-1))+1)))

Bu şekilde deneyin.

.

 

[sert_unsuz]

Hocam çok teşekkür ederim.
Formülünüz çok güzel olmuş.