Userform İçindeki Öğeleri Kontrol etme

[ywzyilmaz]

merhaba
Userform içerisinde kullanıcıdan doldurmasını istediğim 3 textbox 1 combobox var. Text boxlarda sadece sayı olmalı harf olursa kabul etmemeli combobox seçili değilse kabul etmemeli giriş kayıt butonuna tıkladığında kutulardaki içerikleri kontrol ettirmeliyim. Bunu nasıl yapabilirim?

If
Textbox1.text küçüktür 1 then
Msgbox"adet birden küçük olamaz"
Exit sub
Else
Call module1.kayit

Bu mantıkla yapmaya çalıştım uyarı veriyor ama doğru olduğunda da uyarı veriyor.

 

[Levent Menteşoğlu]

merhaba
Userform içerisinde kullanıcıdan doldurmasını istediğim 3 textbox 1 combobox var. Text boxlarda sadece sayı olmalı harf olursa kabul etmemeli combobox seçili değilse kabul etmemeli giriş kayıt butonuna tıkladığında kutulardaki içerikleri kontrol ettirmeliyim. Bunu nasıl yapabilirim?

Aşağıdaki gibi deneyin.

Private Sub TextBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
If IsNumeric(TextBox1) = False Then CreateObject("WScript.Shell").SendKeys "{bs}", True
End Sub

 

[ywzyilmaz]

Private Sub giris_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
If IsNumeric(TextBox1) = False Then CreateObject("WScript.Shell").SendKeys "{bs}", True
If IsNumeric(TextBox2) = False Then CreateObject("WScript.Shell").SendKeys "{bs}", True
If IsNumeric(TextBox3) = False Then CreateObject("WScript.Shell").SendKeys "{bs}", True
Windows("reçetebarkod.xlsm").Activate
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E21") = TextBox1.Text
    Range("E22") = ComboBox1.Text
    Range("E26") = TextBox2.Text
    Range("E27") = TextBox3.Text
Application.ScreenUpdating = False
Unload Me
ThisWorkbook.Save
Windows("reçetebarkod.xlsm").Activate
End Sub

Çok teşekkür ederim giriş butonuna bastığımda istenen veriler yoksa kayıt etmiyor.