Exclude columns when filling listbox

[Bandito1]

Hi all,

I fill my listbox with the following columns from the sheet BMR data;

Tracker QA on the floor New.xlsm
	A	B	C	D	E
1		2022
2		Month	Maand	In	Out
3		October	October 22	96	93
4		November		157	133
5		December		99	113
BMR data

I use the following code for it;

Option Explicit
Dim Ary As Variant

Private Sub UserForm_Initialize()
   Ary = Sheets("BMR data").Range("B3", Sheets("BMR data").Range("B" & Rows.Count).End(xlUp).Offset(, 7)).Value
   With Me.lstSearchResults
      .ColumnCount = 4
      .ColumnWidths = "150;70;48;48"
      .List = Ary
   End With
End sub

Now it showing all columns and data from B, C and D.

Is it possible to code it like i can tell wich columns to show?
I would like to show Column B, D and E and exclude column C.

 

[Bandito1]

I found some easier code;

Private Sub UserForm_Initialize()
Dim lindex&
'Puts the user form in the middle of the Excel screen when opened.
Me.StartupPosition = 0
Me.Top = (Application.Height / 2) - (Me.Height / 2)
Me.Left = (Application.Width / 2) - (Me.Width / 2)
Me.lstSearchResults.ColumnCount = 4
Me.lstSearchResults.List = Sheets("BMRcloset").[F7:I37].Value
With Me.lstSearchResults
.List(lindex, 0) = (Format((.List(lindex, 0)), "dd/mmm/yy"))
End With
End Sub

Still same question:

The range is F7:I37, can I exclude a column from this? For example column H i want to exclude

 

[Domenic]

Now it showing all columns and data from B, C and D.

Is it possible to code it like i can tell wich columns to show?
I would like to show Column B, D and E and exclude column C.

I would suggest that you simply hide Column C by setting the ColumnWidths property for the column to 0 . . .

.ColumnWidths = "150;0;48;48"

For addition information regarding the ColumnWidths property, have a look at the following article...

ColumnWidths property

Office VBA reference topic

learn.microsoft.com

Hope this helps!