Çözüldü Textbox ta tarih sorunu

[LİNDA]

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

 

[himmgarip]

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:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[LİNDA]

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

HTML:

İç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

 

[Caylak]

Me.TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 3) yerine;
Me.TextBox3.Value = CDate(ListBox1.List(ListBox1.ListIndex, 3)) dener misiniz?

 

[LİNDA]

Me.TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 3) yerine;
Me.TextBox3.Value = CDate(ListBox1.List(ListBox1.ListIndex, 3)) dener misiniz?

Teşekkür ederim ama ay ve gün yer değişikliği yapıyor

 

[Caylak]

Format(CDate(ListBox1.List(ListBox1.ListIndex,3)),"dd.mm.yyyy")

 

[LİNDA]

Format(CDate(ListBox1.List(ListBox1.ListIndex,3)),"dd.mm.yyyy")

Çok teşekkür ederim yardımlarınız için sorun çözüldü . Emeğinize sağlık