Textbox'tan Hücreye Tarih girilmesi

[Orion1]

mrb.

tarih=format(tarih,"dd/mm/yyyy")

Range("A1")=tarih

----------------------------------------------
Yukarıdaki kodları textbox' a yazdım.
textbox'a girdiğim tarihi a1 hücresine atıyorum.
A1 hücresinde tarih oluşuyor.Fakat Tarih Hücrede sola yanaşık biçimde
oluyor.hücreye direk elle tarih girilince sağa yanaşık yazılıyor.
Sanırım Textbox'tan alınan tarihi metin olarak görüyor.
Yardımınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Range("A1")=cdate(tarih) şeklinde deneyin.

 

[Orion1]

Range("A1")=cdate(tarih) şeklinde deneyin.

---------------------------------------------------------------------------
Yanıtınız için teşekkür ederim.
İyi çalışmalar.

 

[Orion1]

Private Sub TextBox1_Change()
tarih = TextBox1.Value
tarih = Format(tarih, "dd/mm/yyyy")
Worksheets("Yazdır_Kaydet").Range("I6") = CDate(tarih)
Worksheets("Yazdır_Kaydet").Range("I8") = CDate(tarih)
End Sub

---------------------------------------------------------------------
Mrb.
Kodları bu şekilde yazınca tarihi hücrede sağa yanaşık yazıyor.Ancak!
Mesela 7.3.05 şeklinde textbox'a veri girmek gerekiyor.
7/3/2005 şeklinde textbox'a veri girersek veya 7.3.2005 şeklinde textbox'a veri girersek program çöküyor ve TypeMistmatch hatası veriyor.
Teşekkür ederim.
İyi çalışmalar

 

[Levent Menteşoğlu]

Tarih formatını change olayına yazarsanız hata alırsınız. Aşağıdaki gibi deneyin.

[vb:1:19fa6a1915]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
tarih = TextBox1.Value
tarih = Format(tarih, "dd/mm/yyyy")
Worksheets("Yazdır_Kaydet").Range("I6") = CDate(tarih)
Worksheets("Yazdır_Kaydet").Range("I8") = CDate(tarih)
End Sub
[/vb:1:19fa6a1915]

Not:veriyi örneğin 7-3 şeklinde yazmanız yeterlidir. Yıl otomatik olarak yazılacaktır.

 

[Orion1]

Mrb.
Verdiğiniz yanıt için Teşekkür ederim.
İyi çalışmalar.