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

Bintang

Altın Üye
Katılım
31 Ekim 2006
Mesajlar
322
Excel Vers. ve Dili
Microsoft Office Professional Plus 2019,Türkçe
Altın Üyelik Bitiş Tarihi
05-09-2029
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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,156
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Faydalı olabilir...

 

Bintang

Altın Üye
Katılım
31 Ekim 2006
Mesajlar
322
Excel Vers. ve Dili
Microsoft Office Professional Plus 2019,Türkçe
Altın Üyelik Bitiş Tarihi
05-09-2029
Malesef beceremedim. Acaba vaktiniz var ise benim örneğim üzerinde yardımcı olma ihtimaliniz var mı.
 

ccuneyt13

Altın Üye
Katılım
20 Ocak 2011
Mesajlar
360
Excel Vers. ve Dili
Office 365 Türkçe
Altın Üyelik Bitiş Tarihi
01-11-2026
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

Bintang

Altın Üye
Katılım
31 Ekim 2006
Mesajlar
322
Excel Vers. ve Dili
Microsoft Office Professional Plus 2019,Türkçe
Altın Üyelik Bitiş Tarihi
05-09-2029
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.
 

ccuneyt13

Altın Üye
Katılım
20 Ocak 2011
Mesajlar
360
Excel Vers. ve Dili
Office 365 Türkçe
Altın Üyelik Bitiş Tarihi
01-11-2026
Rica ederim Ömer Beyin kodları kendisine tekrar teşekkür edebiliriz.

 
Üst