Eksi rakam giriş koşulu

[bedri41]

Private Sub KAYDET_Click()
If ComboBox2.Value = "" Or ComboBox4.Value = "" Or ComboBox6.Value = "" Or TextBox4.Value = "" Then
MsgBox "EKSİK BİLGİ GİRİŞİ YAPTINIZ LÜTFEN KONTROL EDİN", vbInformation
Exit Sub
End If

With Sheets("GIRIS")
Satır = .Range("A65536").End(3).Row + 1
Set Bul = .Rows("1:1").Find(ComboBox6)
Sütun = Bul.Column
.Cells(Satır, 1) = Format(TextBox1, "dd.mm.yyyy")
.Cells(Satır, 2) = ComboBox2
.Cells(Satır, 3) = ComboBox3
.Cells(Satır, 4) = ComboBox4
.Cells(Satır, 6) = CDbl(TextBox2.Value)
.Cells(Satır, 5) = ComboBox5
.Cells(Satır, Sütun) = CDbl(TextBox4.Value)
.Cells(Satır, 27) = ComboBox7
.Cells(Satır, 28) = Format(TextBox8, "dd.mm.yyyy")
.Cells(Satır, 31) = TextBox9
.Cells(Satır, 29) = TextBox13
.Cells(Satır, 30) = TextBox14
.Cells.EntireColumn.AutoFit
Set Bul = .Rows("1:1").Find(ComboBox8)
Sütun = Bul.Column
.Cells(Satır, Sütun) = CDbl(TextBox15.Value)
Set Bul = Nothing
End With
End Sub


Yukarıdaki Makroya TextBox4 ve TextBox15 - (eksi) rakam girildiğinde ComboBox7 nin boş olmasının sağlanması veya boşaltılması için uyarı mesajı verilmesini ekleyebilirmiyiz.

Birde TextBox15 boş olursa Runtime error '13' Type mismatch hatası veriyor.

 

[Orion1]

If TextBox4.Text = "" Then TextBox4.Text = 0
If TextBox15.Text = "" Then TextBox15.Text = 0
If TextBox4.Text < 0 Or TextBox15.Text < 0 Then
    MsgBox "Combobox7yi boşaltınız"
End If

 

[bedri41]

Sn. Evren Gizlen, yardımınız için teşekkür ederim. Ancak şöyle bir sorun oluşuyor eksi rakam girildiğinde hata mesajı çıkıp kullanıcıyı uyarıyor ComboBox7boşaltılmak için hata mesajına Tamam tıkladığında kayıt gerçekleşiyor. Burda tamam tıklanınca ComboBox7 i temizleyecek bir ilave yapabilirmisiniz, ondan sonraki yapacağı kayıt zaten benim istediğim kayıt olacak

 

[Orion1]

Kodu aşağıdaki gibi değiştirin.

If TextBox4.Text < 0 Or TextBox15.Text < 0 Then
    combobox7.clear
    msgbox "Combobox7 boş olamaz"
    exit sub
End If

 

[bedri41]

Eksi Rakam Girişi Koşulu ve Makroya ilave

İlişikte koyduğum Örnek dosya içerisinde de açıkladığım konularda Makro yardımına ihtiyacım.
İlgilenen arkadaşlara şimdiden teşekkür ederim.

 

[bedri41]

Ustalar bir el atabilirmi acaba ?