kod yardımı

[cihangirkara]

arkadaşlar aşağıdaki kodda b1:b65536 aralığını saydırıyorum ama daima sayfa1 olmasını nasıl sağlarım teşekkürler



For suz = 2 To WorksheetFunction.CountA([b1:b65536])
alan = UCase(Replace(Replace(Sayfa1.Range("b" & suz), "j", "J"), "k", "K"))
veri = UCase(Replace(Replace(TextBox1, "j", "J"), "k", "K"))
If alan Like "*" & veri & "*" Then

 

[Recep İpek]

Anladığım kadarıyla aşağıdaki değişikliği yaparak deneyiniz.

For suz = 2 To WorksheetFunction.CountA(Sayfa1.Range([b1:b65536]))