VBA Tarih atama da biçimlendirme problemi

[emre533]

Selam Arkadaşlar, ben daha yeni bir VBA kullanıcısı olarak ufak bir raporlama programı yaptım, burada ki sorun userform da ki tarih kısmına girilen değeri bir excel sayfasına attırıyorum ama daha sonrasında bu değeri düşey ara ile listeden çekerken okumuyor ama aynı listeye aynı tarihi elle girdiğimde okuyor. Acil yardımlarınızı bekliyorum.
Ayrıca userformdan excele veri aktarımı yaptığım kod ekranı aşağıda ki gibidir. Sanırım Hücre biçimlendirmesi ile alakalı ya da userformda girilen yeni değerin olduğu hücre farklı bir biçimde atanıyor.

"
Private Sub CommandButton1_Click()

Dim LastRow As Range
Dim response As Integer

Set LastRow = Sayfa3.Range("a65536").End(xlUp)


LastRow.Offset(1, 1).Value = TextBox1.Text
LastRow.Offset(1, 2).Value = TextBox2.Text
LastRow.Offset(1, 3).Value = TextBox3.Text
LastRow.Offset(1, 4).Value = TextBox4.Text 'TOPLAM'
LastRow.Offset(1, 0).Value = TextBox5.Text 'TARİH'

MsgBox "KAYIT İŞLEMİ BAŞARIYLA TAMAMLANDI"

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

TextBox1.SetFocus

End Sub

Selamlar

 

[Orion1]

Şöyle deneyin.

LastRow.Offset(1, 0).Value = cdate(TextBox5.value) 'TARİH'