Verilerin ilk kelimesini almak

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyada açıkladım.

Saygılar

 

[Ali]

=SOLDAN(A1;BUL(" ";A1;1))

olarak kullanınız

 

[Mahmut Bayram]

Syn. komutan dosyanıza bakmadım ama şöyle bir şeyin işinizi göreceği kanaatindeyim.
Textboxta yazılan bir cümlenini ilk kelimesini alıyor.

Private Sub CommandButton1_Click()
MsgBox al(TextBox1)
End Sub

Function al(kelime)
  For I = 0 To Len(kelime) - 1
    sbt = sbt & Mid(kelime, _
    Len(kelime) - I, 1)
  Next I

  al = Left(kelime, InStr(1, _
  sbt, " ", 0))
End Function

 

[Mdemir63]

=SOLDAN(A1;BUL(" ";A1;1))

olarak kullanınız

Selamlar,
Hocam öncelikle teşekkür ederim. Sağdaki kelimeleri aldırmak için formüldeki SOLDAN yerine SAĞDAN yazdım fakat olmadı.

Saygılar

 

[Ali]

Selamlar,
Hocam öncelikle teşekkür ederim. Sağdaki kelimeleri aldırmak için formüldeki SOLDAN yerine SAĞDAN yazdım fakat olmadı.

Saygılar

Sağdan son kelimeyi almak için aşağıdaki fonksiyonu deneyiniz.

=SAĞDAN(A1;UZUNLUK(A1)-BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";"")))))

 

[Mdemir63]

Selamlar,

Ali Hocam çok teşekkür ederim. Ellerinize sağlık.

Saygılar