yanlış veri girilirse/seçili gelen combobox

[Solaq]

Merhaba Arkadaşlar

Aşağıdaki formda combobox veya textbox boş geçerse uyarı veriyor fakat şöyle bir durum var.

Ben tarih bölümüne yazı verisi giremesin

Yazı bölümüne sayı giremesin gibi sorgular koymak istiyorum.

Yanı sıra comboboxta seçili gelenler var ben boş gelsin istiyorum bunları nasıl yapabilirim.

Son olarak ta tarih bölümünde açılan tarih combobox koyuyorum ama olmuyor nerede hata yapıyor olabilirim.






Private Sub KAYDET_Click()
If Empty = TextBox1 Then
MsgBox "TextBox1 değer girilmediği için işleminiz iptal edildi.", vbCritical
Exit Sub
End If
If Empty = TextBox2 Then
MsgBox "TextBox2 değer girilmediği için işleminiz iptal edildi.", vbCritical
Exit Sub
End If
If Empty = TextBox3 Then
MsgBox "TextBox3 değer girilmediği için işleminiz iptal edildi.", vbCritical
Exit Sub
End If
RowCount = Worksheets("CARİ LİSTE").Range("A1").CurrentRegion.Rows.Count
Range("B1").Value = TextBox1.Value
Range("B2").Value = TextBox2.Value
Range("B3").Value = ComboBox2.Value
Range("B4").Value = ComboBox1.Value
Range("B5").Value = TextBox5.Value
Range("B6").Value = TextBox6.Value
Range("B7").Value = TextBox7.Value
Range("B8").Value = TextBox8.Value
ActiveWindow.SmallScroll Down:=-30
Range("B1:B8").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R60000C1"
Selection.End(xlUp).Select
ActiveWindow.SmallScroll Down:=-9
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Unload Me

End Sub

 

[muygun]

Merhaba;
Tarih için;

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
Case Asc("/")
Case Else
KeyAscii = 0
End Select
End Sub

Yazı için;

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 65 Or KeyAscii > 122 Then
KeyAscii = 0
Beep
End If
End Sub

Şeklinde deneyin.

İyi çalışmalar.