• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

cümle içerisinden kelime alma

Katılım
10 Kasım 2006
Mesajlar
1,288
Excel Vers. ve Dili
Excel-2016
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..
 
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..
 
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
 
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
 
Merhaba.
Aşağıdaki kodları bir modüle yapıştırıp çalıştırıp inceleyiniz.:cool:
Kod:
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
 
Merhaba.
Ofisinizi Onarmayı deneyiniz.Şimdilik aklıma bu geliyor.:cool:
 
Geri
Üst