Combobox hata

[ugur111]

Merhaba ;
İki problemim var .
Örnek kitabında Yazdır düğmesine basıldığında bir onay formu çıkıyor , Burada kullanıcı adı ve şifresi girildiğinde onay düğmesine basıldığında comboboxtaki verinin sayfa1 deki I59 hücresine yazılmasını istiyorum . İkinci problemim comboboxtaki liste dışındaki bir giriş olduğunda program hata veriyor engellenebilir mi ?

Sağolun .

 

[fedeal]

iyi çalışmalar.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "DL!a2:a20"
End Sub

Private Sub CommandButton1_Click()
On Error GoTo f:
Set Sh1 = Sheets("DL")
If Sh1.Columns(1).Find(ComboBox1.Text)(1, 2).Value = TextBox2.Text Then
Sheets("Sayfa1").Range("h59").Value = ComboBox1.Text
ComboBox1.Text = ""
TextBox2.Text = ""

Else
f:
MsgBox "Kullanıcı Adı veya Şifre Hatalı", , ""
Exit Sub
End If
End Sub

 

[ugur111]

teşekkür ederim

 

[fedeal]

teşekkür ederim

ricaederim iyi çalışmalar.