Combobox hata

Katılım
12 Ocak 2007
Mesajlar
72
Excel Vers. ve Dili
Excel-2003 -Tr
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 .
 

Ekli dosyalar

fedeal

Banned
Katılım
29 Mayıs 2008
Mesajlar
1,985
Excel Vers. ve Dili
2003 tr
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
 
Üst