Listview problemi

[emre311]

Private Sub UserForm_Initialize()
...
For s = 2 To Sheets("DATA").Cells(65530, 1).End(xlUp).Row
ListView1.ListItems.Add , , Sheets("DATA").Cells(s, 1).Value
y = ListView1.ListItems.Count
For a = 2 To 21
ListView1.ListItems.ListSubItems.Add , , Sheets("DATA").Cells(s, a).Value
Next
Next
...
Merhaba;
userform ınıtıalize ye yazdığımız bu kodda listview sayfadan aldığı saat formatını sayı olarak alıyo sütunlardaki tarih metin ve saat formatını nasıl verebilirim?Bilgisi olanlardan lütfen yardım bekliyorum. Teşekkürler şimdiden.

 

[Korhan Ayhan]

Merhaba,

Verileri yüklerken biçimlendirin.

Tarih için;

ListView1.ListItems(y).ListSubItems.Add , , [COLOR=red]Format(Sheets("DATA").Cells(s, a).Value, "dd.mm.yyyy")

[/COLOR]

 

[Orion1]

İlgili yer aşağıdaki gibi formatlanır.

[B]format(Sheets("DATA").Cells(s, 1).Value,"dd.mm.yyyy")[/B]