Export values to listbox with the same format

Question

Dears,
kindly i need some support please to solve this problem.
I have a listbox that retrieve a data as per auto filter based on 3 criteria, but these data isn't retrieved with the same format, i retrieve these data from tow different tables, both of them exported with the default format,
note: the table source is imported via "Existing connections" but the values format are processed at both of all, is this problem related to the data source or lixtbox options
i uploaded the whole workbook, you can call the userform from sheet that called "Interface", and fill the 1 & 2 combobox with any inputs, and the last combobox you have to choose "Dec", then hit "Daily" or "Monthly"
button
Private Sub Daily_Click()
Dim Source As Range, c As Range, i%, Aux As Worksheet
Dim fa As Range, nc%, ca, v As Range, A As Worksheet, s$
Me.ListBox1.ColumnCount = 11
ListBox1.Clear
Application.ScreenUpdating = True
Set A = ThisWorkbook.Sheets("Daily")
Set Aux = ThisWorkbook.Sheets("popup") ' auxiliary sheet
Set Source = A.Range("A1:CB1")
Set c = A.Range("a1").CurrentRegion
Source.AutoFilter Field:=1, Criteria1:=Month_list.Value
Source.AutoFilter Field:=4, Criteria1:=Leader_list.Value
Source.AutoFilter Field:=6, Criteria1:=User_list.Value
Set v = c.SpecialCells(xlCellTypeVisible) ' filtered range
Aux.Cells.ClearContents
v.Copy Aux.Range("a1")
Set fa = Aux.Range("a1").CurrentRegion
nc = fa.Columns.Count
ca = Array(3, 13, 14, 15, 16, 17, 21, 30, 31, 32, 33) ' columns you want
For i = LBound(ca) To UBound(ca)
fa.Columns(ca(i)).Copy Aux.Cells(1, nc + 3 + i) ' create final range
Next
Me.ListBox1.List = Aux.Cells(1, nc + 2 + i).CurrentRegion.Value
With Me.ListBox1
Me.ListBox1.BoundColumn = 1
Me.ListBox1.BorderStyle = fmBorderStyleSingle
Me.ListBox1.ColumnHeads = True
Me.ListBox1.BackColor = RGB(255, 255, 255)
Me.ListBox1.ColumnWidths = "70; 75; 57; 80; 90; 150; 60; 80; 80; 80; 80; 70"
Me.ListBox1.BorderStyle = 1
Me.ListBox1.MultiSelect = fmMultiSelectExtended
End With
End Sub
     the workbook
thanks a lot, 

Answer 1

Either you need to reformat the values in memory as required before populating to the ListBox, or if the cells are formatted the way you want you can read the cell's text values, though not in one go as an an array.
Based on a quick look of your code above try the following, but adapt if it's not quite right
Set fa = Aux.Range("a1").CurrentRegion
nc = fa.Columns.Count
ca = Array(3, 10, 14, 16, 20, 21, 22, 23, 24) ' columns you want
'' don't need this
' For i = LBound(ca) To UBound(ca)
' fa.Columns(ca(i)).Copy Aux.Cells(1, nc + 3 + i) ' create final range
' Next
Dim lastRow As Long, j As Long ' put these up top
' after copying to Aux, but no need to
lastRow = Aux.Range("a100000").End(xlUp).Row
ReDim arr(1 To lastRow, LBound(ca) To UBound(ca))
For i = LBound(ca) To UBound(ca)
For j = 1 To lastRow
arr(j, i) = Aux.Cells(j, ca(i)).Text
Next
Next
Me.ListBox1.List = arr