bir metinden ilk iki kelimeyi almak hk.yardım

[mecnun24_]

bir metinden ilk iki kelimeyi almak mümkünmüdür.böyle bir fonksiyon yada kod varmıdır.yardım edebilirmisiniz..

 

[Orion1]

Metin 2 kelimemi?
Arada boşluk veya başka bir karakter varmı?
Vs,vs,vs.

 

[mecnun24_]

evren hocam mesela dinçer tekstil ltd.şti. bunun ilk iki kelimesi olan dinçer tekstil almak istiyorum.tşkrler.

 

[Necdet]

Merhaba,

=EĞER(EHATALIYSA(BUL(" ";A1;BUL(" ";A1;2)+1));A1;SOLDAN(A1;BUL(" ";A1;BUL(" ";A1;2)+1)))

 

[sinbade]

Bunu da deneyin...
A1'de cümlenizin ... B1'e de aşağıdaki formülün yazıldığını varsayıyorum

Not: Kelimeler arasında tek boşluk olsun.

=PARÇAAL(A1;1;BUL(" ";A1;BUL(" ";A1)+1))

Kolay gelsin

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub kelime_al()
Dim kelime As String, kelimeler() As String, adet As String
Dim msj As String, i As Long
kelime = InputBox("Kelimeyi giriniz : ", "KELİME ALMA")
adet = InputBox("Kaç kelime alınacak ? ", "KELİME SAYISI")
If kelime = "" Then Exit Sub
If Not IsNumeric(adet) Then
    MsgBox "Adetini sayısal bir değer giriniz..!!", vbCritical, "UYARI"
    Exit Sub
End If
kelimeler = Split(kelime, " ")
If UBound(kelimeler) + 1 < CLng(adet) Then
    MsgBox "Adet çok fazla girilmiştir..!!", vbCritical, "FAZLA ADET"
    Exit Sub
End If
For i = 0 To CLng(adet) - 1
    msj = msj & vbLf & kelimeler(i)
Next
MsgBox msj

End Sub

 

[mecnun24_]

eksik olmayın..

hocam hepiniz mükemmelsiniz ya.kodların hepsi işimi gördü.çok çok tşkrler.allah razı olsun.eksik olmayın..

 

[canercan02]

Ekli dosyayı inceleyiniz.

Sub kelime_al()
Dim kelime As String, kelimeler() As String, adet As String
Dim msj As String, i As Long
kelime = InputBox("Kelimeyi giriniz : ", "KELİME ALMA")
adet = InputBox("Kaç kelime alınacak ? ", "KELİME SAYISI")
If kelime = "" Then Exit Sub
If Not IsNumeric(adet) Then
    MsgBox "Adetini sayısal bir değer giriniz..!!", vbCritical, "UYARI"
    Exit Sub
End If
kelimeler = Split(kelime, " ")
If UBound(kelimeler) + 1 < CLng(adet) Then
    MsgBox "Adet çok fazla girilmiştir..!!", vbCritical, "FAZLA ADET"
    Exit Sub
End If
For i = 0 To CLng(adet) - 1
    msj = msj & vbLf & kelimeler(i)
Next
MsgBox msj

End Sub

hocam aynı kodlarla hücre içerisindeki 2 kelimeyi bir yazdırabilir miyiz=

 

[Orion1]

Eski kodlarda ilgili yeri değiştiriniz.
2nci kelimeden başlar.

For i = 1 To CLng(adet)
    msj = msj & vbLf & kelimeler(i)
Next