Listbox'da tarih formatı sorunu

[seddur]

Merhabalar.Ekli dosyada görüleceği üzere excel sayfasından listbox1'e aldığım bilgilerde uygun kod kullanmama rağmen format sorunu yaşıyorum.Listbox'da bazı satırlar doğru gösterirken bazı satırlarda gün ve ay yer değiştirmiş oluyor.Sebebini bulamadım,yardımcı olabilirmisiniz.

 

[dEdE]

Merhaba,
Aşağıdaki şekilde dener misiniz?

Private Sub CommandButton1_Click()
Dim i, c As Integer
With ListBox1
    .ForeColor = RGB(255, 255, 255)
    .Font.Bold = True
     .Font.Size = 11
    .BackColor = RGB(0, 0, 0)
        .ColumnWidths = "150;70"
        .ColumnCount = 2
        .AddItem
        .List(0, 0) = "MASA NO"
        .List(0, 1) = "ÜRÜN CİNSİ"
        End With
      ListBox1.Clear
   
For i = 1 To Sheets("Anasayfa").Range("a65536").End(3).Row
    If WorksheetFunction.CountIf(Range("a" & i & ":a15"), Cells(i, 1)) = 1 Then
    ListBox1.AddItem
    ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets("Anasayfa").Range("A" & i)
    ListBox1.List(ListBox1.ListCount - 1, 1) = Format(Sheets("Anasayfa").Range("B" & i), "dd.mm.yyyy")
    End If
Next
End Sub

 

[kemal turan]

Ek dosyayı inceleyin

 

[seddur]

Tamam düzeldi.Yardımcı olduğunuz için Teşekkür ederim.