Cümle içersindeki kelimelerin ilk harfini versin

[Levent Menteşoğlu]

Sizin önerdiğiniz kullanıcı tanımlı fonksiyona Sn falconia gerekli ilaveleri...............gibi yapabilir sanırım.

Sn Ali bey ilave için teşekkür ederim. Bu işaretler kelimenin her zaman sonuna geldiği ve bitişik yazıldığı için gerek görmemiştim. Ayrıca gözden kaçırdığım bir durumda gerekli ilavelerin ben veya sizler tarafından yapılarak geliştirileceğini bildiğim içinde bu şekilde bırakmıştım.

Not: Yazım hatalarına karşı yinede bu ilaveli yapmak daha doğru.

 

[Recep İpek]

Şimdi olay çözüldü.Bu mesajı atlamışım.

 

[veyselemre]

Function ilkHarfleriAl(giris)
Set regEx = CreateObject("vbscript.RegExp")
regEx.Pattern = "[,.?!*:;]"
regEx.Global = True
giris = regEx.Replace(giris, " ")

Set regEx = Nothing
a = Split(giris, " ")
For Each elem In a
    son = son & Left(elem, 1)
Next
ilkHarfleriAl = son
End Function

 

[Recep İpek]

Sanırım bu defa oldu.

Function BÜYÜKHARFBUL(Hücre As Range)
If Hücre = "" Then Exit Function
'******************************
hata = Array("?", ".", ":", ",", ">", "<", "/", "*", "\", "-", "(", ")", "&", "[", "]", "!", "%", "@", "$", "€", "+")
For k = 1 To Len(Hücre)
r = 0
    g = Mid(Hücre.Value, k, 1)
        For t = 0 To 20
            If hata(t) = g Then r = 1
        Next t
        If r = 0 Then s = s & g
Next k
'******************************
x = Replace(Replace(StrConv(s, vbProperCase), "I", "ı"), "İ", "i")
data = Array("A", "B", "C", "Ç", "D", "E", "F", "G", "Ğ", "H", "I", "İ", "J", "K", "L", "M", "N", "O", "Ö", "P", "R", "S", "Ş", "T", "U", "Ü", "V", "Y", "Z")
    For i = 1 To Len(x)
    a = Mid(x, i, 1)
        For j = 0 To 28
            If data(j) = a Then b = b & a
        Next j
    Next i
BÜYÜKHARFBUL = b
End Function

 

[xlsx]

örn dosya

slm arkadaşlar
kodlarla yapamadım,ancak bir örnek dosya eklemeniz mümkün mü?

 

[xlsx]

olmadı

A1 hücresinde yazılı olan cümlede eğer noktadan sonra bir harf geliyorsa onu almıyor. ama noktadan sonra boşluk bırakılırsa ilk harfi alıyor.
Büyükharfbul kullanıcı tanımlı formül ile denediğimde yapamadım.
Yine de çok başarılı oldu.Tşk.

 

[xlsx]

kod yardımı

slm arkadaşlar
son sorduğum sorunla ilgili kodlarda nasıl bir değişiklik yapmak gerekecek.
bu haliyle de işe yara olacak ama noktalı olanlarda extra bir işlem için zaman kaybı oluşturuyor.