ListBoxTıklayınca Tarihi TextBoxa alma

[btanju]

Selamlar,

Aşağıdaki kodu beceremedim yardımcı olabilir misiniz?

Private Sub ListBox1_Click()
Application.ScreenUpdating = False
On Error Resume Next
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
End Sub

Listbox'a tıkladığımda TexBox1' e tarih olarak almıyor sayı olarak alıyor acaba tarih olarak almamız mümkün müdür?

 

[muygun]

Merhaba;
On Error Resume Next satırından sonra;

sat = ListBox1.ListIndex
Controls("TextBox1") = Format(ListBox1.List(sat, 0), "dd.mm.yyyy")

Ekleyerek deneyin.
İyi çalışmalar

 

[FERAZ]

Application.ScreenUpdating = False

İlk olarak ya bu kodu silin yada end sub un üst satırına true kodunuda ekleyin.
İkinci olarak

format(ListBox1.List(ListBox1.ListIndex, 0),"dd.mm.yyyy"))

Gibi deneyin.
Yada

cdate(ListBox1.List(ListBox1.ListIndex, 0))

Gibi.

 

[btanju]

Merhaba;
On Error Resume Next satırından sonra;

sat = ListBox1.ListIndex
Controls("TextBox1") = Format(ListBox1.List(sat, 0), "dd.mm.yyyy")

Ekleyerek deneyin.
İyi çalışmalar

Hocam Teşekkür ederim dediğiniz gib yaptım oldu iyi çalışmalar.