• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İSİM VE SOYİSMİ GİZLEME

Bintang

Altın Üye
Katılım
31 Ekim 2006
Mesajlar
363
Excel Vers. ve Dili
Microsoft Office Professional Plus 2019,Türkçe
Merhaba;
Bir borç - alacak takip tablom var. Bu tabloda var olan isim ve soyisimleri gizlemek istiyorum bu konuda yardımcı olmanızı rica ederim. Örnek: ERDAL ARI ise ER***** AR**** gibi
 

Ekli dosyalar

Merhaba,

Faydalı olabilir...

 
Malesef beceremedim. Acaba vaktiniz var ise benim örneğim üzerinde yardımcı olma ihtimaliniz var mı.
 
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
 

Ekli dosyalar

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
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.
 
Rica ederim Ömer Beyin kodları kendisine tekrar teşekkür edebiliriz.

 
Geri
Üst