Farklı sayfalarda Bulunan Kimlik Numarası Maskeleme

[mars2]

İyi Günler;

Çalışma kitabımın iki farklı sayfasında aynı formu kullanmaktayım. Aşağıdaki kod ile "Zarf" sayfasının L13 ve L45 hücrelerindeki kimlik numarasını maskelerken "zarf1" sayfasındaki L13 ve L45 hücresindeki kimlik numarasını maskelemiyor. Hata nereden kaynaklanmakta olup kodda ne gibi düzeltme sonucu iki sayfada da maskeleme yapmasını sağlayabiliriz.

Option Explicit
Sub tcsifre()
Dim WF, WF1 As WorksheetFunction

Set WF = WorksheetFunction
Set WF1 = WorksheetFunction

[zarf!L13] = WF.Replace([zarf!L13], 5, 5, WF.Rept("*", 5))
[zarf!L45] = WF.Replace([zarf!L45], 5, 5, WF.Rept("*", 5))

[zarf1!L13] = WF1.Replace([zarf1!L13], 5, 5, WF1.Rept("*", 5))
[zarf1!L45] = WF1.Replace([zarf1!L45], 5, 5, WF1.Rept("*", 5))

Set WF = Nothing
Set WF1 = Nothing

End Sub

 

[Ali]

Tahmini olarak yazayım

Option Explicit
Sub tcsifre()
    Dim wsZarf As Worksheet
    Dim wsZarf1 As Worksheet
    Dim WF As WorksheetFunction

    Set WF = WorksheetFunction
    Set wsZarf = ThisWorkbook.Worksheets("zarf")
    Set wsZarf1 = ThisWorkbook.Worksheets("zarf1")

    wsZarf.Range("L13").Value = WF.Replace(wsZarf.Range("L13").Value, 5, 5, WF.Rept("*", 5))
    wsZarf.Range("L45").Value = WF.Replace(wsZarf.Range("L45").Value, 5, 5, WF.Rept("*", 5))

    wsZarf1.Range("L13").Value = WF.Replace(wsZarf1.Range("L13").Value, 5, 5, WF.Rept("*", 5))
    wsZarf1.Range("L45").Value = WF.Replace(wsZarf1.Range("L45").Value, 5, 5, WF.Rept("*", 5))

    Set WF = Nothing
    Set wsZarf = Nothing
    Set wsZarf1 = Nothing
End Sub

şeklinde dener misiniz.

 

[mars2]

Sayın Ali;

Kodunuzu uygulamamam sonucunda, talep ettiğim maskeleme işlemi olmuştur. Teşekkürler.