Formdaki tarihi hücreye yazdırırken yanlışlık!

[mith]

Ah bu tarihler, ömrümü çürüttüler..

Arkadaşlar forumda aradım ama net bir sonuca ulaşamadım. Gerekli tüm bilgi dosyada mevcut.Özetlersek, formdaki tarih, hücreye atılırken eğer tarih 10 dan küçükse ay-gün yer değiştirilerek hücreye değer giriyor. Çok bunaldım, yardımlarınızı bekliyorum..

 

[alpi]

sorunuzun cevabı aşağıdadır

Tarih = format(Tarih,"dd mm yyyy")

 

[Zeki Gürsoy]

Bu şekilde dener misiniz?

Private Sub CommandButton1_Click()
Sheets("Sayfa1").[a1] = TextBox1
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub

Private Sub UserForm_Initialize()
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub

 

[mith]

Sonunda çözdüm arkadaşlar;

If Month(txtGununTarihi.Text) < 10 Or Day(txtGununTarihi.Text) < 10 Then
Worksheets("Program").Range("o2").Value = Format(txtGununTarihi.Text, "mm/dd/yyyy")

Doğru sonucu veriyor.
Arkadaşlar cevaplarınız için teşekkür edeim ama hepsinde aynı sorun çıkıyordu..
Saygılar..

 

[Levent Menteşoğlu]

Hücreyi istediğiniz tarih biçimine getirip aşağıdaki koduda kullanabilirsiniz.

Worksheets("Program").Range("o2")= clng(cdate(txtGununTarihi.Text))