textboxta tarih formatı

[natura]

arkadaşlar, text box1 text exceldeki hücreye adresli, hücre tarih biçimlendirmeli. hücreye 22/11/05 , yada 22.11.05 yazınca otomatik 22.11.2005 yazıyor. bunu textboxla 22/11/05 olarak girince 22/11/05 olarak kalıyor. bu sorunu nasıl çözerim. değişik dil biçimlendirmesi yaptım. 11.22.2005 olarak alıyor.
yardımcı olursanız sevinirim.

 

[mekuka]

Textbox1 afterupdate e
Textbox1=format(textbox1,"dd.mm.yyyy")

 

[natura]

İLGİNİZE TEŞEKKÜR EDERİM, hocam denedim. sonuç (11/15/05 )
kullanıcı tarih girişini 11/15/05 olarak yapmak istiyor. bunu excel hücreye yazınca excel otomatik 11.15.2005 yapıyor ancak textboxtan girince 11/15/05 olarak kalıyor. bunu düzeltmek istiyorum, tekrar teşekkür ederim

 

[natura]

galiba buldum .. evren hocamdan başka bir arkadaşa tavsiyesinden aldım. belki başkasına faydası olur.
evren hocama teşekkürler
kod:
Private Sub TextBox2_Change()
On Error Resume Next
Range("Sayfa1!E11") = CDate(TextBox2.Text)


End Sub

 

[metbes]

galiba buldum .. evren hocamdan başka bir arkadaşa tavsiyesinden aldım. belki başkasına faydası olur.
evren hocama teşekkürler
kod:
Private Sub TextBox2_Change()
On Error Resume Next
Range("Sayfa1!E11") = CDate(TextBox2.Text)


End Sub

Dostum aşağıdaki kodları da kullanabilirsin

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Value <> "" And IsDate(TextBox2.Value) = False Then
MsgBox ("Hatalı Tarih Formatı Tarih aralarında . , veya / kullanın" & vbCrLf & TextBox2)
TextBox2.Value = ""
Else
TextBox2 = Format(TextBox2, "dd.mm.yyyy")
End If
End Sub


veya direk noktaları kendi koyar

Private Sub TextBox2_Change()
If Len(TextBox2) = 2 Then TextBox2.Text = TextBox2.Text & "."
If Len(TextBox2) = 5 Then TextBox2.Text = TextBox2.Text & "."
If Len(TextBox2) = 10 Then TextBox2.SetFocus
End Sub

 

[natura]

teşekkür ederim