DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
teşekkürler hocam
Elleriniz dert görmesin. Makro veya Modül kullanmayı bilmiyordum ama kısacık bir araştırmayla çözebildim. Belki sizin için küçük bir iş ama bizim için çok önemli bir çözüm oldu, zaman kazandırdınız. Özellikle 3-4-5 isimli yabancı uyruklu insanların isimlerini maskelemek adına.Merhaba, formülle yapmak o kadar uzun ve uğraştırıcı ki formülü 2ci isimde bile yazarken beynim karışıyor.
Bunun yerine Kullanıcı Tanımlı Fonksiyonla kolaylıkla hallledebilirsiniz.
Aşağıdaki kodu VBA penceresinde boş bir modüle ekleyin.
Excel sayfanızda =ilk2karakter yazarak çalıştırabilrisiniz
Ekli dosyayı görüntüle 233273C++: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