Tek bir satırda yazılı olan ad soyad isimleri gizleme formülü

[cirakli]

Hasan Ali Hüseyin ALTIN YILDIZ
ÜÇ İSİM VE ÇİFT SOY İSİMLERİ GİZLEMEK İÇİN GEREKLİ FORMÜL YAZABİLİR MİSİNİZ
Ha*** Al* Hü***** AL*** YI***
formülü gerekli teşekkür ederim

 

[ÖmerFaruk]

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

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

 

[cirakli]

hocam kodu makro girdim ama hata veriyor
excell de A1 hücresine yazdım
bir adet excell sayfasına makroyu ekleyip yollayabilir misiniz hocam

 

[cirakli]

Hasan Ali Hüseyin ALTIN YILDIZ
ÜÇ İSİM VE ÇİFT SOY İSİMLERİ GİZLEMEK İÇİN GEREKLİ FORMÜL YADA MAKRO YAZABİLİR MİSİNİZ
Ha*** Al* Hü***** AL*** YI***
excell A1 hücresine yazdım makroyu yazıp yollayabilir misiniz hocam

 

[ÖmerFaruk]

Harici link..silinebilir.

 

[cirakli]

Harici link..silinebilir.

teşekkürler hocam

 

[iceburn]

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

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

Ekli dosyayı görüntüle 233273

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.