TextBox'la hücre arasındaki tarih farkı

[alipinar]

Merhaba arkadaşlar.
Dosyamda hazırladığım formda bilgilerin textboxlara yazılıyor ve bu bilgiler sayfadaki hücrelere sırayla kayıt oluyor. Buralarda herhangi bir sorunum yok. Ancak tarih girilen textboxa 5/6/2006 şeklinde girilen tarih ilgili hücrede 06.05.2006 (hücrede tarih özelliği seçili) şeklinde çıkıyor.

Aynı şekilde textboxta 6/5/2006 yazıldığında da 05.06.2006 şeklinde çıkıyor.
Ama şöyle bir tarih girilince 15/5/2006 hücrede aynı şekilde görülüyor. Acaba hata neden kaynaklanıyor? Yardımlarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Bu hata değil, vba da tarih yazımı avrupa sistemine göre dikkate alınır, yani ay önce yazılır. Bu durumda textboxı formatlamanız gerekir. Bu kodu exit olayına yazın.

textbox1=format(textbox1,"dd.mm.yyyy")

 

[xxrt]

Bu hata değil, vba da tarih yazımı avrupa sistemine göre dikkate alınır, yani ay önce yazılır. Bu durumda textboxı formatlamanız gerekir. Bu kodu exit olayına yazın.

textbox1=format(textbox1,"dd.mm.yyyy")

Levent arkadaşımın dediğini izni ile tamamlarsak

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

 

[alipinar]

Değerli ustalar çok teşekkür ederim. Bilginize, aklınıza sağlık. :dua:

 

[alipinar]

Değerli Ustalar.
Dediklerinizi uyguladım sorunum çözüldü zannediyordum. Ancak yeni bir şey fark ettim. Ekteki dosyadada göreceğiniz üzere 1.textboxa ilk kez kayıt yapıldığı zaman 1. textboxtaki tarih aynen hücreye gidyor. Ancak 2. textboxa kayıt yapıldığı zaman 2.textbox aynen hücreye gidiyor ama 1. textboxtaki tarih ay ve gün yer değiştiriyor .
Aynı şekilde 3. textboxa kayıt yapıldığı zaman önceki 1. ve 2. textboxlarda ay ve yıl yer değiştiriyor.
Aynı işlem doğum tarihini gösteren textboxta da geçerli.
Arkadaşlar bu sorunu nasıl aşabilirim? Yardımlarınız için teşekkürler.

 

[Levent Menteşoğlu]

Tarih yazılan sütunları tarih formatı ile biçimlendirin ve hücrelere veri aktarımını aşağıdaki gibi yapın.

ActiveCell.Offset(0, 0).Value = CLng(TextBox1.Value)

 

[alipinar]

Sayın Leventm öncelikle ilginize teşekkür ederim.

ActiveCell.Offset(0, 0).Value = CLng(TextBox1.Value)

işlemini tarih içeren textboxlara yaptım. Bu sefer de yaptığım değişklikler hücreye kayıt edilmiyor. Ne yapabilirim?

 

[Levent Menteşoğlu]

Bilgileri değiştir butonundaki aşağıdaki satırları kasdetmiştim. Yukarıdaki sadece biri için örnekti.

ActiveCell.Offset(0, 0).Value =clng(TextBox1.Value)

ActiveCell.Offset(0, 2).Value =clng(TextBox3.Value)

ActiveCell.Offset(0, 9).Value =clng(TextBox16.Value)

ActiveCell.Offset(0, 13).Value =clng(TextBox4.Value)

ActiveCell.Offset(0, 17).Value =clng(TextBox18.Value)

Not:bu değişikliğin sayfaya kaydetmemesi gibi olumsuz bir etkisi olamaz.

 

[alipinar]

Not:bu değişikliğin sayfaya kaydetmemesi gibi olumsuz bir etkisi olamaz.

Sayın Leventm bende aynısını yaptım. Ama maalesef bilgiler kayıt edilmiyor.

 

[alipinar]

Ustalarım lütfen yardım! Teşekkür ederim. :yardim: :yardim:

 

[alipinar]

Merhabalar.
Arkadaşlar lütfen bana bir fikir verebilir misiniz? Bu sorunumu nasıl düzeltebilirim? Eğer bu tarih sorununu düzeltemezsem üzerinde çalıştığım ve bitirmek üzere olduğum dosyam hiç bir işe yaramayacak ve çöpe atmak zorunda kalacağım.
Yardımlarınız için teşekkür ederim.