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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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
 
Katılım
9 Eylül 2004
Mesajlar
243
Excel Vers. ve Dili
Office2003Trk
elinize sağlık teşekkür ederim.
 
Üst