مساعده فى ليست بوكس

 Private Sub UserForm_Activate() Dim k, c, lr Dim ws As Worksheet Set ws = Sheets("Main") ListBox1.Clear ListBox1.ColumnCount = 4 With ws lr = .Cells(Rows.Count, 1).End(3).Row k = 0 For Each c In .Range("a14:a" & lr) ListBox1.AddItem ListBox1.List(k, 0) = .Cells(c.Row, 1).Value ListBox1.List(k, 1) = .Cells(c.Row, 2).Value ListBox1.List(k, 2) = .Cells(c.Row, 3).Value ListBox1.List(k, 3) = .Cells(c.Row, 4).Value k = k + 1
Private Sub UserForm_Activate()

Dim k, c, lr

Dim ws As Worksheet

Set ws = Sheets("Main")

ListBox1.Clear

ListBox1.ColumnCount = 4

With ws

lr = .Cells(Rows.Count, 1).End(3).Row

k = 0

For Each c In .Range("a14:a" & lr)

ListBox1.AddItem

ListBox1.List(k, 0) = .Cells(c.Row, 1).Value

ListBox1.List(k, 1) = .Cells(c.Row, 2).Value

ListBox1.List(k, 2) = .Cells(c.Row, 3).Value

ListBox1.List(k, 3) = .Cells(c.Row, 4).Value

k = k + 1

 

 

Next c

End With

End Sub
Next c End With End Sub