• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Textbox ta tarih sorunu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

LİNDA

Gold Üye
Katılım
4 Haz 2021
Mesajlar
269
Çözümler
1
Aldığı beğeni
90
Excel V
Office 2019 TR
Gold Bitiş
15 Nisan 2026
Konu Sahibi
Excel sayfasındaki verileri userformdaki textboxlara çağırarak başka bir sayfaya kaydediyorum ve userformdaki listboxta verilerim görünüyor. Verilerde güncelleme yapmak için listboxtaki verilere tıklama yaparak textboxlara verileri çağırdığımda bazı satırlardaki doğum tarihleri rakam olarak bazıları tarih olarak geliyor. Sorun nerde olabilir acaba. Yardımcı olabilirseniz sevinirim
 
Excel sayfasındaki verileri userformdaki textboxlara çağırarak başka bir sayfaya kaydediyorum ve userformdaki listboxta verilerim görünüyor. Verilerde güncelleme yapmak için listboxtaki verilere tıklama yaparak textboxlara verileri çağırdığımda bazı satırlardaki doğum tarihleri rakam olarak bazıları tarih olarak geliyor. Sorun nerde olabilir acaba. Yardımcı olabilirseniz sevinirim

Aşağıdaki gibi alırsanız tarihi durum düzelecektir.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
Aşağıdaki gibi alırsanız tarihi durum düzelecektir.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Teşekkür ederim ama kullandığım kodlar aşağıdaki sizin öneriniz denedim hata veriyor Veri aldığım satırı renkli olarak belirttim . Nerde yanlış yapıyorum
Private Sub Listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 1)
Me.TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 2)
Me.TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 3)
Me.TextBox4.Value = ListBox1.List(ListBox1.ListIndex, 4)
Me.TextBox5.Value = ListBox1.List(ListBox1.ListIndex, 5)
Me.TextBox6.Value = ListBox1.List(ListBox1.ListIndex, 6)
Me.ComboBox1.Value = ListBox1.List(ListBox1.ListIndex, 7)
Me.ComboBox2.Value = ListBox1.List(ListBox1.ListIndex, 8)
Me.TextBox7.Value = ListBox1.List(ListBox1.ListIndex, 9)
Me.TextBox8.Value = ListBox1.List(ListBox1.ListIndex, 10)
Me.TextBox9.Value = ListBox1.List(ListBox1.ListIndex, 11)
Me.ComboBox3.Value = ListBox1.List(ListBox1.ListIndex, 12)
Me.ComboBox4.Value = ListBox1.List(ListBox1.ListIndex, 13)
Me.TextBox10.Value = ListBox1.List(ListBox1.ListIndex, 14)
Me.TextBox11.Value = ListBox1.List(ListBox1.ListIndex, 15)
Me.TextBox12.Value = ListBox1.List(ListBox1.ListIndex, 16)
End Sub
 
Me.TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 3) yerine;
Me.TextBox3.Value = CDate(ListBox1.List(ListBox1.ListIndex, 3)) dener misiniz?
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst