Listbox

[mu_tek]

Merhaba,
exceldeki tarih olan veriyi formdaki listbox içine atıyorum ama tarih gün ay yıl olarak değilde ay gün yıl olarak geliyor. Gün ay yıl olarak gelmesini sağlayan kodu nasıl yazabiliriz. Teşekkürler kolay gelsin... örnek resmi ekte gönderiyorm...

For i = 7 To kayit + 5

ListBox1.AddItem

ListBox1.Column(0, m) = Range("a" & i).value

ListBox1.Column(1, m) = Range("b" & i).value
ListBox1.Column(2, m) = Range("c" & i).value
ListBox1.Column(3, m) = Range("d" & i).value

m = m + 1

Next i

 

[ozgretmen]

Merhaba,
exceldeki tarih olan veriyi formdaki listbox içine atıyorum ama tarih gün ay yıl olarak değilde ay gün yıl olarak geliyor. Gün ay yıl olarak gelmesini sağlayan kodu nasıl yazabiliriz. Teşekkürler kolay gelsin... örnek resmi ekte gönderiyorm...

Aşağıdaki şekilde değişiklik yapınız.

For i = 7 To kayit + 5
ListBox1.AddItem
ListBox1.Column(0, m) = [COLOR="Red"]Format(Range("a" & i).value,"mm.dd.yyyy")[/COLOR]' Tarih Olan Veri Olsun
ListBox1.Column(1, m) = Range("b" & i).value
ListBox1.Column(2, m) = Range("c" & i).value
ListBox1.Column(3, m) = Range("d" & i).value
m = m + 1
Next i

 

[mu_tek]

Denedim böyle bir hata veriyor

 

[ozgretmen]

Dosyanı ekler misin ?

 

[mu_tek]

Dosya Ekte... Teşekkürler

 

[ozgretmen]

Aşağıdaki şekilde kodu değiştiriniz.

ListBox1.Column(0, m) = Left(Range("a" & i), 10)

 

[mu_tek]

İlgin için teşekkürler
şu şekilde çözülüyor
ListBox1.Column(1, m) = Format(ListBox1.Column(1, m), "dd.mm.yyyy")

 

[ozgretmen]

İlgin için teşekkürler
şu şekilde çözülüyor
ListBox1.Column(1, m) = Format(ListBox1.Column(1, m), "dd.mm.yyyy")

Bu şekilde de çözülüyordu ?

ListBox1.Column(0, m) = Left(Range("a" & i), 10)