Bintang
Altın Üye
- Katılım
- 31 Ekim 2006
- Mesajlar
- 363
- Excel Vers. ve Dili
- Microsoft Office Professional Plus 2019,Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=ilk2karakter(A1)
Function ilk2karakter(kaynak As Range)
dizi = Split(Trim(kaynak.Value), " ")
For i = LBound(dizi) To UBound(dizi)
dizi(i) = Left(dizi(i), 2) & WorksheetFunction.Rept("*", Len(dizi(i)) - Len(Left(dizi(i), 2)))
Next i
ilk2karakter = Join(dizi, " ")
End Function
Acaba benim excelimde bir sıkıntı olabilir mi gönderdiğiniz örnekleri denedim olmadı. Son kez sizden ricam acaba benim dosyamın üzerinde bu modülü ekleyip gönderebilirmisiniz birde öyle denemek istiyorum şimdiden ilgi ve alakanız için teşekkür ederim.Merhaba,
Bunun için daha önce forumdan bulduğum ve kullandığım kullanıcı tanımlı fonsiyonlu excel dosyasını paylaşıyorum.
A1 Hücresinde Örneğin Ali VELİOĞLU yazıyorsa AL* VE**** yapar.
Kod:=ilk2karakter(A1)
Aşağıdaki kodu kullanacağınız kendi dosyanıza da bir modüle ekleyip istediğiniz dosyada kullanabilirsiniz.
Umarım işinize yarar.
Kod:Function ilk2karakter(kaynak As Range) dizi = Split(Trim(kaynak.Value), " ") For i = LBound(dizi) To UBound(dizi) dizi(i) = Left(dizi(i), 2) & WorksheetFunction.Rept("*", Len(dizi(i)) - Len(Left(dizi(i), 2))) Next i ilk2karakter = Join(dizi, " ") End Function
Üstadım çok teşekkür ederim. Tam istediğim gibi olmuş elinize kolunuza sağlık. İyiki varsınız.Merhaba,
Dosyanız ektedir.