Soru Combobox ile sayfa seçme

[xemdarx]

Selamlar,
Combobox1 ve combobox2 ile gösterilen tarihli sayfayı seçmek istiyorum. Fakat girilen tarihte sayfa yoksa hata veriyor. Bunun yerine "Sayfa Bulunamadı" diye uyarı vermesini istiyorum. Teşekkürler

 

[askm]

Private Sub CommandButton10_Click()
On Error Resume Next
If Me.ComboBox1.Text = "" Then
  MsgBox ("LÜTFEN TC KİMLİK NO BÖLÜMÜNÜ GİRİN"), vbCritical, ("TC KİMLİK NO BÖLÜMÜNÜ")
Me.ComboBox1.SetFocus
Exit Sub
ElseIf Me.ComboBox2.Value = "" Then
MsgBox ("LÜTFEN AD BÖLÜMÜNÜ GİRİN"), vbCritical, ("AD BÖLÜMÜ BOŞ OLMAZ")
Me.ComboBox2.Value.SetFocus
Exit Sub
End If
sayfaadi = ComboBox2.Value & " " & ComboBox1.Value
For i = 1 To ThisWorkbook.Sheets.Count
    If ThisWorkbook.Sheets(i).Name = sayfaadi Then
        Sheets(ComboBox2.Value & " " & ComboBox1.Value).Select
    End If
Next
MsgBox "Sayfa Bulunamadı.", vbCritical

End Sub

 

[xemdarx]

olmadı.

 

[xemdarx]

Userform kapanmasın.

 

[askm]

Userform kapanmıyor.

Private Sub CommandButton10_Click()
On Error Resume Next
If Me.ComboBox1.Text = "" Then
  MsgBox ("LÜTFEN TC KİMLİK NO BÖLÜMÜNÜ GİRİN"), vbCritical, ("TC KİMLİK NO BÖLÜMÜNÜ")
Me.ComboBox1.SetFocus
Exit Sub
ElseIf Me.ComboBox2.Value = "" Then
MsgBox ("LÜTFEN AD BÖLÜMÜNÜ GİRİN"), vbCritical, ("AD BÖLÜMÜ BOŞ OLMAZ")
Me.ComboBox2.Value.SetFocus
Exit Sub
End If
a = 0
sayfaadi = ComboBox2.Value & " " & ComboBox1.Value
For i = 1 To ThisWorkbook.Sheets.Count
    If ThisWorkbook.Sheets(i).Name = sayfaadi Then
        a = a + 1
        Sheets(ComboBox2.Value & " " & ComboBox1.Value).Select
        End
    End If
Next
If a = 0 Then
    MsgBox "Sayfa Bulunamadı.", vbCritical
    Me.ComboBox1.Value.SetFocus
    Exit Sub
End If
End Sub

 

[xemdarx]

Oldu. Teşekkürler.