Düşeyara komutunda hata

[Myazar78Anestezi]

Sayfa1 k15 hücresinde tc kimlik no girisi var
Sayfa1 k17 hücresinde sifre girisi var
J20 hücresine tıkladığımda eğer sayfa1 k15 hücresine girilen tc ve ile sayfa2 f ve g sutununda de bulunan daha önceden kayıtlı bulunan sifre ile eslesiyorsa sayfa3 e gecmesini istiyorum.

Sub worksheet_selectionchange(byVal target as excel.range)
if target.adress = "$J$20" then
tc = worksheets(1).range("k15"))
sifre = application.worksheetfunction.Vlookup(tc, Sayfa2.range("f2:g100"), 2 , False)
if (sifre = worksheets(1).range("k17")) then
Sheets("Sayfa3").select
End if
End if
End sub

Sadece yapamadiğim girilen tc numarasi kayitlar arasinda yoksa
"Vlookup özelliği alınamiyor" diye bi hata veriyor.
Böyle bir hata vermeden tekrar sayfa1 e yönlendirmesini istiyorum
Sorum biraz karısık ve anlatma seklim dogrumu onu da bilmiyorum ama lütfen yardimci olabilirseniz çok sevinirim.

 

[işsiz123]

Keske örnek dosya ekleseydiniz .Aşağıdaki kod ile hatayı yok sayabilirsiniz.

Sub worksheet_selectionchange(ByVal target As Excel.Range)
On Error GoTo hata

If target.adress = "$J$20" Then
tc = Worksheets(1).Range("k15")
sifre = Application.WorksheetFunction.VLookup(tc, Sayfa2.Range("f2:g100"), 2, False)
If (sifre = Worksheets(1).Range("k17")) Then
Sheets("Sayfa3").Select
End If
End If
hata:
Sheets("Sayfa1").Select
End Sub

 

[Myazar78Anestezi]

Keske örnek dosya ekleseydiniz .Aşağıdaki kod ile hatayı yok sayabilirsiniz.

Sub worksheet_selectionchange(ByVal target As Excel.Range)
On Error GoTo hata

If target.adress = "$J$20" Then
tc = Worksheets(1).Range("k15")
sifre = Application.WorksheetFunction.VLookup(tc, Sayfa2.Range("f2:g100"), 2, False)
If (sifre = Worksheets(1).Range("k17")) Then
Sheets("Sayfa3").Select
End If
End If
hata:
Sheets("Sayfa1").Select
End Sub

Çok teşekkür ederim aradığım buydu sağolun????

 

[işsiz123]

Rica ederim İyi çalışmalar.