Listbox Sütunu Tarih Formatı

[meslek5]

Merhaba, aşağıdaki kodda listbox2'ye veri alabiliyorum. Fakat listbox sütununa gelen tarihler ters formatta geliyor. Gün-Ay-Yıl şeklinde nasıl düzeltebiliriz.

With Sheets("malzeme")
sat = Sheets("malzeme").Cells(Rows.Count, "B").End(xlUp).Row
For i = 4 To sat
If Sheets("malzeme").Cells(i, "I").Value = ComboBox1.Text Then
ListBox2.AddItem
ListBox2.List(b, 0) = (Sheets("malzeme").Cells(i, "B").Value)
ListBox2.List(b, 1) = (Sheets("malzeme").Cells(i, "D").Value)
ListBox2.List(b, 2) = (Sheets("malzeme").Cells(i, "E").Value)
ListBox2.List(b, 3) = (Sheets("malzeme").Cells(i, "F").Value)
b = b + 1
End If
Next
End With

 

[Trilenium]

Format( (Sheets("malzeme").Cells(i, "??").Value) , "dd/mm/yyyy")

?? işaretli yere tarihin geldiği sütunu yazınız

 

[meslek5]

Format( (Sheets("malzeme").Cells(i, "??").Value) , "dd/mm/yyyy")

?? işaretli yere tarihin geldiği sütunu yazınız

kod kırmızı hata veriyor

 

[Trilenium]

Tarihin yazılı olduğu colon B kolonu olduğunu varsayar isek kod aşağıdaki gibi olmalıdır.

ListBox1.List(b, 0) = Format((Sheets("Sheet1").Cells(i, "B").Value), "dd/mm/yyyy")

 

[meslek5]

Tarihin yazılı olduğu colon B kolonu olduğunu varsayar isek kod aşağıdaki gibi olmalıdır.

ListBox1.List(b, 0) = Format((Sheets("Sheet1").Cells(i, "B").Value), "dd/mm/yyyy")

Çok teşekkür ederim hocam denedim oldu