• DİKKAT

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

Müşteri İsimlerini Maskeleme

Katılım
14 Ekim 2005
Mesajlar
187
Excel Vers. ve Dili
Office 365 for Business
Merhaba,

Elimdeki müşteri datalarını bir raporda kullanmam lazım ancak müşteri bilgilerinin açıkça gözükmesini istemiyorum. Ekte örnek olarak verdiğim gibi sol tarafta bulunan isimlerin sağ taraftaki gibi maskelenmesini istiyorum. Kaç adet boşluklu isim varsa ilk iki harfleri gelsin ismin geri kalanı *** olarak gelsin. *** sayıların maskelenen harf kadar olsa da olur standart olarak *** olsa da olur o çok büyük dert değil.

Bu konuda yardım edebilecek olan var mı?

Teşekkür ederim.
 

Ekli dosyalar

Merhaba,
Bu konu yakın zamanda işlendi, forumda arama yaparsanız bulabilirsiniz.

 
"RegEx" ile alternatif,

C#:
Sub Test()
'   Haluk - 04/02/2022
'   sa4truss@gmail.com
    Dim regExp As Object, NoA As Integer, i As Integer
   
    Set regExp = CreateObject("VBScript.RegExp")
  
    regExp.Global = True
    regExp.Pattern = "([a-zığüşöç])"
   
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    Range("B2:B" & NoA) = ""

    For i = 2 To NoA
        myStr = Evaluate("proper(A" & i & ")")
        Range("B" & i) = regExp.Replace(myStr, "*")
    Next
   
    Set regExp = Nothing
End Sub

.
 
Son düzenleme:
Evet aslında arama yaptım ama denk gelmedi. Maskeleme özelinde gittiğim için olsa gerek. Çok teşekkür ederim ilginize.
 
"Libre Office" ile alternatif;


Capture.PNG




Capture.PNG


.
 
Son düzenleme:
Geri
Üst