Son kelimeyi alan excel'deki fonksiyon nasıl makrolaştırÃ

[bezl]

A1 = Turgut Reis Cd. No: 5/5 Tandoğan / ANKARA

{=RIGHT(A1;LEN(A1)-MAX(ROW(INDIRECT("1:"&LEN(A1))) *(MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)=" ")))}

ANKARA
formülü makro ile nasıl son(hucre) şeklinde function yapılabilir. Kod için yardımcı olursanız. sevinirim.

 

[Necdet]

Sayın bezl,

Basit bir düşünce ile yapılmış kullanıcı fonksiyonunu ekliyorum, umarım işinize yarar

 

[veyselemre]

[vb:1:66a441ee21]Function sonkelime(giris)
kelimeler = Split(Trim(giris), " ")
sonkelime = kelimeler(UBound(kelimeler))
End Function[/vb:1:66a441ee21]

 

[bezl]

çok teşekkürler veyselemre,
peki ilk kelime için ne yapabiliriz.

 

[veyselemre]

[vb:1:a13e8f0271]Function ilkkelime(giris)
kelimeler = Split(Trim(giris), " ")
ilkkelime = kelimeler(LBound(kelimeler))
End Function[/vb:1:a13e8f0271]

 

[bezl]

teşekkürler...

kelimeler = Split(Trim(giris), " ")

aynı işi yapıyor gibi geldi bana, birde bu ubound ve lbound fonksiyonları ne olaki vbasic editorunde arattım böyle bir şey bulamadım.

 

[veyselemre]

split ile girilen veriyi boşlukları dikkate alarak kelimeler dizisine atıyoruz, lbound kelimeler dizisinin ilk indeks sayısını, ubound son indeks sayısını veriyor. Yani girdiğimiz veri 5 kelimeden oluşuyorsa kelimeler(lbound(kelimeler)), kelimeler(0) le eşit oluyor, kelimeler(ubound(kelimeler)), kelimeler(4) le eşit oluyor

 

[bezl]

teşekkürler veyselemre

 

[Haluk]

Sayın veyselemre,

Sadece bu mesajdaki soru değil, genelde forumdaki sorulara hazırladığınız pratik ve işlevsel çözümleriniz çok güzel.

Lütfen tebriklerimi kabul ediniz.

 

[veyselemre]

Sayın Haluk

Sizin gibi bir üstadın, bu güzel sözlerinize muhatab olmak çok güzel, ama bu forumdan öğrendiklerimi, tekrar foruma vermekten başka bir şey değil, tekrar teşekkür eder, saygılar sunarım.

 

[Levent Menteşoğlu]

Sn Haluk beye aynen katılıyorum. Bugüne kadarki katkılarınız nedeniyle bende hem tebrik hemde teşekkür ediyorum.

 

[veyselemre]

Sayın Levent Bey, size de çok teşekkür ederim, asıl sizin yaptığınız olağanüstü bir performans, bu kadar soruya yetişmek, bu kadar cevap yazmak, anlatmak, zoru başarıyorsunuz...