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

Katılım
5 Şubat 2005
Mesajlar
114
Altın Üyelik Bitiş Tarihi
03-03-2022
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..
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
sorunuzun cevabı aşağıdadır

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

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,349
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Bu şekilde dener misiniz?

Kod:
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
 
Katılım
5 Şubat 2005
Mesajlar
114
Altın Üyelik Bitiş Tarihi
03-03-2022
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Hücreyi istediğiniz tarih biçimine getirip aşağıdaki koduda kullanabilirsiniz.

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