textbox ı boş geçmesin

[sisozen]

textbox a tarih yazıyorum, yazılmassa, yani boş geçilmeye çalışılınca mesaj yassın ve ilgili texbox atlamasın tarih yazılıncaya kadar
şimdiden teş..

 

[Haluk]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsDate(TextBox1) Then Cancel = True
End Sub

 

[sisozen]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox1.Text = "" Then MsgBox ("LÜTFEN TARİH GİRİNİZ")

textbox1 bilgi girişi yapmadan geçmemesi için ne yazmalıyım..


TextBox1.Text = DateSerial(Mid(TextBox1.Text, 5, 4), Mid(TextBox1.Text, 3, 2), Mid(TextBox1.Text, 1, 2))

End Sub

 

[Orion1]

Mehabalar .
Aşağıdaki kodu bir deneyin..
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) Then
Cancel = True
MsgBox "Tarih giriniz..!!", vbCritical, "Excel Web.Tr"
End If
End Sub

 

[sisozen]

hata verdi vba geri döndü, debug yapınca bu satırı gösterdi TextBox1.Text = DateSerial(Mid(TextBox1.Text, 5, 4), Mid(TextBox1.Text, 3, 2), Mid(TextBox1.Text, 1, 2))

 

[Orion1]

Merhabalar.
Aşağıdaki kodu deneyin.
'-------------------------------------------

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim tarih As Date
If Not IsDate(TextBox1) Then
    Cancel = True
    MsgBox "Tarih giriniz..!!", vbCritical, "Excel Web.Tr"
    Else
    tarih = TextBox1.Value
    TextBox1.Value = ""
    TextBox1.Value = Mid(tarih, 5, 4)
    TextBox1.Value = TextBox1.Value & Mid(tarih, 3, 2)
    TextBox1.Value = TextBox1.Value & Mid(tarih, 1, 2)
End If
End Sub

 

[sisozen]

userformumda textbox1 tarih,hemen sağında da textbox2 saat bilgisi var..veri girişi yaparken ben tarih ve saati userform noktasız yazıp aynı zamanda bu bilgileri excelde tek hücrede gg.aa.yyyy ss:dd formatında birleşmesini istiyordum onun için hocalarımızdan birisi

(kaydet)
Private Sub CommandButton1_Click()
No = Cells(65536, 2).End(3).Row + 1
Sheets("Dev_Listesi").Range("b" & No).Select
ActiveCell = ComboBox1.Value
ActiveCell.Offset(0, 2) = DateValue(TextBox1.Text) + TimeValue(TextBox2.Text)
'ActiveCell.Offset(0, 3) = TextBox2.Value
ActiveCell.Offset(0, 3) = DateValue(TextBox3.Text) + TimeValue(TextBox4.Text)
'ActiveCell.Offset(0, 4) = TextBox4.Value
ActiveCell.Offset(0, 20) = TextBox5.Text


End Sub


Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox3.Text = "" Then exit sub
TextBox3.Text = DateSerial(Mid(TextBox3.Text, 5, 4), Mid(TextBox3.Text, 3, 2), Mid(TextBox3.Text, 1, 2))

End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox4.Text = "" Then exit sub
TextBox4.Text = TimeSerial(Mid(TextBox4.Text, 1, 2), Mid(TextBox4.Text, 3, 2), 0)

End Sub
gayet te güzel çalıştı ..ancak ben textboxlarda veri yazılmadan geçilmesini istemiyorum.. işte bunu çözemedim.. sizin dediğinizi yapınca .tamam veriyi yazmadan geçmiyor.. ama bu seferde yukarda dediklerim alt üst oluyor



teşekkürler

 

[sisozen]

:yardim: :yardim: :yardim:

 

[Levent Menteşoğlu]

Aşağıdaki mavi satırları ilave ederek deneyin.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
[COLOR=royalblue][B]If TextBox3 = "" Then
Cancel = True
Exit Sub
End If[/B][/COLOR]
TextBox3.Text = DateSerial(Mid(TextBox3.Text, 5, 4), Mid(TextBox3.Text, 3, 2), Mid(TextBox3.Text, 1, 2))
End Sub
 
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
[B][COLOR=royalblue]If TextBox4 = "" Then
Cancel = True
Exit Sub
End If
[/COLOR][/B]TextBox4.Text = TimeSerial(Mid(TextBox4.Text, 1, 2), Mid(TextBox4.Text, 3, 2), 0)

End Sub

 

[sisozen]

mesaj giremedim ama olsun ..çalışıyor.. ellerinize sağlık hocam..teşekkürler...