değişkenler sorusu

[Qmer1981]

sorum ektedir.yardımlarınızı bekliyorum

 

[NBATMAN]

Private Sub CommandButton1_Click()
Dim yer, mesaj As Integer
Dim no As Byte
Dim sip As Date
Dim trm As Date
Dim kod As Byte
Dim mdl As String
no = TextBox1.Text
sip = TextBox2.Text
trm = TextBox3.Text
kod = TextBox4.Text
mdl = TextBox5.Text
yer = 2
While Sheets(1).Cells(yer, 1) <> ""
yer = yer + 1
Wend
Sheets(1).Cells(yer, 1) = TextBox1
Sheets(1).Cells(yer, 2) = TextBox2
Sheets(1).Cells(yer, 3) = TextBox3
Sheets(1).Cells(yer, 4) = TextBox4
Sheets(1).Cells(yer, 5) = TextBox5
ThisWorkbook.Save
End Sub

isteğin ile ilgili yeşil kodları ekledim çalışıyor. Fakat örneğin sadece tarih girilebilecek olan textbox2 ye başka tip karakterler girilirse hata mesajı ile uyarma işleminide yapmak gerekir. Bu sorunuda excel.web formunda textboxdaki değer tarih değilse sayı değilse gibi arama yaparsan çözersin ...

 

[Qmer1981]

teşekkür ederim size