number format in three columns into listbox on useform

[abdelfattah]

Hello
I want showing number formatting like this #,##0.00 in columns 8,9,10 in list box . I try to add some lines as bold lines, but I failed.

Private Sub LBoxPop()
    Dim I, myFormat(1) As String
   Dim lindex&
  Data = ws.Cells(1).CurrentRegion.Value: x = 0
  myFormat(0) = ws.Cells(2, 8).NumberFormatLocal
  myFormat(1) = ws.Cells(2, 9).NumberFormatLocal
  ReDim Temp(1 To UBound(Data, 1), 1 To 10)
  For I = 1 To UBound(Data)
    If Data(I, 4) Like Crit & "*" Or Data(I, 4) = "C??  C?????" Then
      x = x + 1
      Temp(x, 2) = Format(Data(x, 2), "DD/MM/YYYY")
      For ii = 1 To 10
        Temp(x, ii) = Data(I, ii)
      Next ii
    End If
  Next I
 
  With UserForm1.ListBox1
            .List(lindex, 7) = Format$(.List(lindex, 7), myFormat(0))
            .List(lindex, 8) = Format$(.List(lindex, 8), myFormat(1))
            .List(lindex, 9) = Format$(.List(lindex, 9), myFormat(1))
    .ColumnCount = 10
    .ColumnWidths = "80;80;120;80;60;60;60;60;60;60"
    .List = Temp
  End With
End Sub

 

[DanteAmor]

I want showing number formatting like this #,##0.00 in columns 8,9,10 in list box .

You must do it value by value and for each row.

Try the following;

Private Sub LBoxPop()
  Dim i&, ii&
  Dim myFormat(1) As String
  
  Data = ws.Cells(1).CurrentRegion.Value
  x = 0
  myFormat(0) = ws.Cells(2, 8).NumberFormatLocal
  myFormat(1) = ws.Cells(2, 9).NumberFormatLocal
  
  ReDim Temp(1 To UBound(Data, 1), 1 To 10)
  
  For i = 1 To UBound(Data)
    If Data(i, 4) Like crit & "*" Or Data(i, 4) = "C??  C?????" Then
      x = x + 1
      Temp(x, 2) = Format(Data(x, 2), "DD/MM/YYYY")
      For ii = 1 To 10
        Temp(x, ii) = Data(i, ii)
        If ii >= 8 Then
          Temp(x, ii) = Format$(Data(i, ii), myFormat(1))
        End If
      Next ii
    End If
  Next i
 
  With UserForm1.ListBox1
    .ColumnCount = 10
    .ColumnWidths = "80;80;120;80;60;60;60;60;60;60"
    .List = Temp
  End With
End Sub

 

[abdelfattah]

again Dante I'm grateful for you .
much appreciated for your help.