Çözüldü Kimlik Numarası Maskeleme Hakkında.

[yesimgurol]

Merhaba,
Çalışma sayfamda bulunan "ÖZET LİSTE" isimli sayfamda "H" sütununda (H2'den itibaren) kimlik numaralarının maskelenmesi için forumda örnek bir kod buldum. İstediğim eylemi yapıyor yalnız kendi sayfa ismime göre uyarlamaya çalıştım ve maalesef olmadı:-(

Option Explicit

Sub Test()
    Dim WF As WorksheetFunction
    Set WF = WorksheetFunction
    [Sayfa1!B10] = WF.Replace([Sayfa1!B10], 5, 5, WF.Rept("*", 5))
    Set WF = Nothing
End Sub

Bu kodu ; ÖZET LİSTE sayfasında H sütunu (H2'den itibaren) için revize etmek gerekiyor.

 

[dEdE]

Dener misiniz?
DİKKAT: Bu kod karakterleri değiştirir. Yani kimlik numaralarını tekrar göremezsiniz.

Sub Test()
    Dim WF As WorksheetFunction

    Set WF = WorksheetFunction
    Set s1 = Sheets("ÖZET LİSTE")
    ss = s1.Cells(Rows.Count, "H").End(3).Row
 
    For i = 2 To ss
        s1.Cells(i, "H") = WF.Replace(s1.Cells(i, "H"), 5, 5, WF.Rept("*", 5))
    Next
 
    Set WF = Nothing
    Set s1 = Nothing
End Sub

 

[Necdet]

Merhaba,

Sub Test()

Dim wf  As WorksheetFunction
Dim sh  As Worksheet
Dim i   As Long

Set wf = WorksheetFunction
Set sh = Sheets("ÖZET LİSTE")

For i = 2 To sh.Cells(Rows.Count, "H").End(3).Row
    sh.Cells(i, "H") = wf.Replace(sh.Cells(i, "H"), 5, 5, wf.Rept("*", 5))
Next i

Set wf = Nothing
    
End Sub

 

[Necdet]

yine geç kaldım

 

[yesimgurol]

Merhabalar ,
Sayın "dEdE" ve Necdet bey,
Her zamanki gibi harikasınız, tam istediğim şekilde olmuş, emeğinize sağlık, Çok teşekkür ederim. Saygılarımı sunuyorum.