List box value as table from tifferent columns

[brendalpzm]

Let's say I have a table like this, which is the data base

And I inserted a list box from ActiveX controls where I want to set a table but only with A B and D columns. How can I do this?

I'm not using user form

 

[DanteAmor]

Thanks for posting on the forum.

Just for information, the userform has an initiation or activation event, this event can load data into the listbox.
In a listbox of an Activex controls it is necessary for an event to occur, it can be when the workbook is opened, when a sheet is activated, etc. I am giving you an example, you must create a button to load the listbox, then you click on the button and the data will be loaded:

Private Sub CommandButton1_Click()
  Dim i As Long
  With ListBox1
    .ColumnCount = 3
    .Clear
    For i = 1 To Range("A" & Rows.Count).End(3).Row
      .AddItem Range("A" & i).Value
      .List(.ListCount - 1, 1) = Range("B" & i).Value
      .List(.ListCount - 1, 2) = Range("D" & i).Value
    Next
  End With
End Sub

Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
----- --

 

[brendalpzm]

Thanks for posting on the forum.

Just for information, the userform has an initiation or activation event, this event can load data into the listbox.
In a listbox of an Activex controls it is necessary for an event to occur, it can be when the workbook is opened, when a sheet is activated, etc. I am giving you an example, you must create a button to load the listbox, then you click on the button and the data will be loaded:

Private Sub CommandButton1_Click()
  Dim i As Long
  With ListBox1
    .ColumnCount = 3
    .Clear
    For i = 1 To Range("A" & Rows.Count).End(3).Row
      .AddItem Range("A" & i).Value
      .List(.ListCount - 1, 1) = Range("B" & i).Value
      .List(.ListCount - 1, 2) = Range("D" & i).Value
    Next
  End With
End Sub

Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
----- --

Thanks for your reply! I did what you wrote and it marks a run-time error '-2147467259 (80004005)' of unspecified error