Comboboxta olmayan değer girilidiğinde yazdırma, önizlemede "sayfa yok" mesajı?

[hsayar]

Comboboxta olmayan değer girilidiğinde yazdırma, önizlemede "sayfa yok" mesajı?

Private Sub UserForm_Initialize()
..................
For sf_ind = 1 To Bu_Kit_ss
[color="red"] uf_isl.cb_syf.AddItem Sheets(sf_ind).Name[/color]
 Next
................
End Sub
'=====================

Private Sub cmd_bon_Click()
uf_isl.Hide
sf_isl_Ad = uf_isl.cb_syf
[color="red"] If sf_isl_Ad = "" Then [/color]
    MsgBox "Sayfa seçmediniz, veya hatalı sayfa adı girdiniz"
Else
    Sheets(uf_isl.cb_syf.ListIndex + 1).PrintPreview  'özinleme için
End If
uf_isl.Show
End Sub

Kırmızı satıra nasıl bir koşul konmalı ki comboboxa hata ile comboboxto olmayan değer yazıldığında hata vemesin bana MsgBox "Sayfa seçmediniz, veya hatalı sayfa adı girdiniz" mesajını versin.

Saygılarımla

 

[Skorpiyon]

Sayın hsayar,

Combobox'un kaynak aldığı satırlar ile karşılaştırma yapınız.

Denemedim ama Örneğin;

Combobox'unuz A1:A20 arasını kaynak alıyor diyelim. Şöyle bir şey yazabilirsiniz.

For a Each in Range("A1:A20")
if combobox1.value <> a then
msgbox "Ge&#231;ersiz veri giri&#351;i, l&#252;tfen giri&#351; yapt&#305;&#287;&#305;n&#305;z veriyi kontrol ediniz."
end if
next a

Sayg&#305;lar&#305;mla...

 

[hsayar]

Private Sub UserForm_Initialize()
..................
For sf_ind = 1 To Bu_Kit_ss
[color="red"] uf_isl.cb_syf.AddItem Sheets(sf_ind).Name[/color]
 Next
................
End Sub

k&#305;rm&#305;z&#305; sat&#305;rda belirtti&#287;im &#252;zere &#231;al&#305;&#351;ma sayfas&#305; adlar&#305;n&#305; al&#305;yor

 

[Skorpiyon]

Bu şekilde bir denermisiniz.


Private Sub cmd_bon_Click()
uf_isl.Hide
sf_isl_Ad = uf_isl.cb_syf
If sf_isl_Ad = "" Then
ON ERROR GOTO HATA
' MsgBox "Sayfa seçmediniz, veya hatalı sayfa adı girdiniz"
'Else
Sheets(uf_isl.cb_syf.ListIndex + 1).PrintPreview 'özinleme için
End If
uf_isl.Show
HATA :
MSGBOX "Sayfa seçmediniz, veya hatalı sayfa adı girdiniz"
End Sub

​

 

[hsayar]

te&#351;ekk&#252;rler