makroda if else

[leylaz]

Arkadaşlar aşağıdaki kodu indirdiğim bir çalışmadan baktım. Kod ile herhangi bir hücreye tıklayınca hücrede yazılı isimden bir çalışma sayfası varsa direk onu açıyor. Hücre boşsa tepki vermiyor. Fakat hücrede çalışma kitabının adı dışında bilgi yazınca vba hatası veriyor. Aşağıdaki koda elseif ile hücredeki isimle eşleşmezse pop up ile bu içerik kayıtlı değil şeklinde uyarı ekleyebilir miyiz?

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Sayfa = Target.Value
    If Sayfa <> "" Then Sheets(Sayfa).Select
son:
End Sub

 

[Levent Menteşoğlu]

Kullandığınız prosedürü aşağıdaki gibi düzenleyin.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo son:
    Sayfa = Target.Value
    If Sayfa <> "" Then Sheets(Sayfa).Select
Exit Sub
son: MsgBox "Yazdığınız sayfa adı mevcut değildir.", 32, "Uyarı!"
End Sub

 

[leylaz]

Teşekkürler. Sorunuzu sayenizde çözdüm.