tarih karşılaştırıp o sayfaya gitme makrosu hakkında yardım

[ahmetozbey]

sorum ekdedir ilgilenirseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu bir modül içine uyguladıktan sonra sayfadaki GİT butonuna bağlayıp denermisiniz.

Sub GİT()
On Error GoTo Hata
Kriter = Sheets("GİRİŞ").Range("F8")
For X = 4 To Worksheets.Count
If Sheets(X).[J3] = Kriter Then GoTo Son
Next
Sheets("GİRİŞ").Select
Hata: MsgBox "ARADIĞINIZ SAYFA BULUNAMADI...", vbExclamation
Exit Sub
Son: Sheets(X).Select
End Sub

 

[ahmetozbey]

elinize sağlık teşekkür ederim.