cümle içerisinden kelime alma

[EKREM1661]

selamlar..

Ne zamandır tasarlıyorum..Hani sağdan/soldan formülleri ile kelimeden belirtildiği kadar karakter alınabiliyordu. Hatta forumdan aldım,

=YAZIM.DÜZENİ(SOLDAN(A1;BUL("/";YERİNEKOY(A1;" ";"/";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))-1))
formülü ile sadece ismi,

=BÜYÜKHARF(SAĞDAN(A1;UZUNLUK(A1)-BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))))
formülü ile de sadece soyadı alabiliyorduk. Bu formüller çok yerde işimizi gördü.

Acaba bir cümle içerisinden 3.ncü, 4.ncü, hatta belirtilen sıradaki kelime alınabilirmi.
(A1 hücresi içerisindeki cümlenin, soldan 4.ncü kelimesi..gibi)

Bu formül ile çok karmaşık olabilir..Makro koduyla böyle bir kalıp düzenlenemezmi..
Böyle bir buluşun çok arkadaşımıza faydası olacağı kanısındayım..

 

[Ali]

Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/showthread.php?t=17261&page=2

 

[EKREM1661]

sayın Ali..! verdiğiniz link kendi adıma önemli bir aşama oldu..gerçekten teşekkür ediyorum..
sağlık ve afiyet diliyorum, hayırlı çalışmalar..

 

[baydeniro]

Teşekkürler

Sayın Ali, paylaşımınız için çok teşekkürler. Bir de şunlar nasıl yapılabilir :

Serdar Okan Cemre : 2. a (soldan) = 10
Serdar Okan Cemre : 3. r (sağdan) = 15

 

[baknediycem]

Muhtesem!

Tesekkurler!!!!

 

[veyselemre]

Sayın Ali, paylaşımınız için çok teşekkürler. Bir de şunlar nasıl yapılabilir :

Serdar Okan Cemre : 2. a (soldan) = 10
Serdar Okan Cemre : 3. r (sağdan) = 15

Ekteki örneği inceleyin.

 

[Tarkan VURAL]

Selam

Textbox içindeki ilk 30 veriyi nasıl aldırabiliriz ? Sonrasında da 45'ten başlayarak bir 30 daha? Veriyi nereye alacağımız önemli değil msgbox olur [a1]olur vb.. Önemli olan len ile ilgili kodları. Yardımcı olabilir misiniz ?

Tarkan

 

[Orion1]

Merhaba.
Aşağıdaki kodları bir modüle yapıştırıp çalıştırıp inceleyiniz.

Sub Parca_al()
Dim isim As String
isim = InputBox("Bir İsim Giriniz :", "E V R E N")
If isim = "" Then Exit Sub
On Error GoTo Hata
soldan_ilk30 = Left(isim, 30)
Parcaal = Mid(isim, 45, 30)
On Error GoTo Hata
MsgBox "SOLDAN İLK 30 KARAKTER : " & soldan_ilk30 & vbLf & _
"SOLDAN 45 KARAKTERDEN SONRA 30 KARAKTER :" & Parcaal
Hata:
End Sub

 

[Tarkan VURAL]

Mid 'de hata veriyor. Kütüphanede bulamıyor.

 

[Orion1]

Merhaba.
Ofisinizi Onarmayı deneyiniz.Şimdilik aklıma bu geliyor.