Gizli sayfada mükerrer giriş kontrolü

[fedeal]

aşagıdaki kodla sütunda mükerrer giriş kontrolü yapıyorum.sayfa gizli olunca normal olarak hata veriyor.bu kodları selecti kaldırıp sayfa adresi vererek nasıl düzenliyebilirim. yardımlarınız için şimdiden teşekkürler.

Sheets("KAYIT").Select
For A = 2 To [F65536].End(3).Row
eski = Cells(A, "F")
If WorksheetFunction.CountIf([F:F], eski) > 1 Then

 

[Orion1]

Deneyiniz.

For A = 2 To [KAYIT!F65536].End(3).Row
eski = Sheets("KAYIT").Cells(A, "F")
If WorksheetFunction.CountIf([KAYIT!F:F], eski) > 1 Then

 

[fedeal]

Çok teşekkürler Evren bey sizden öğrenecegimiz cok sey var. Saygılar.