fill 2 columns with headers in listbox

[teodormircea]

Hello forum,

i would like to fill from 2 columns the values in a listbox with the headers also from the excel fille

Here i have the code for 1 column but with out header from excel fille
In listbox properties : i have ColumnCount=2, ColumnHeads=True

Private Sub UserForm_Initialize()
    Dim cell As Range
    Dim Rng As Range
    
    With ThisWorkbook.Sheets("Sheet1")
        Set Rng = .Range("a2", .Range("a2").End(xlDown))
   End With
    
    For Each cell In Rng.Cells
        Me.ListBox1.AddItem cell.Value
    Next cell
    
End Sub

 

[Andrew Poulsom]

Try:

Private Sub UserForm_Initialize()
    Dim Rng As Range
    With ThisWorkbook.Sheets("Sheet1")
        Set Rng = .Range("A2", .Range("A2").End(xlDown)).Resize(, 2)
        Rng.Name = "List"
    End With
    Me.ListBox1.RowSource = "List"
End Sub

 

[teodormircea]

Thanks Andrew
IF I HAVE 2 WORKBOOKS IN SAME TIME OPENED OF COURSE I HAVE EN ERROR, DO I HAVE TO TELL THE LIST BOX FROM WHICH WORKBOOK TO PULL OUT THE INFO

like, if

Private Sub UserForm_Initialize()
    Dim Rng As Range
    With ThisWorkbook("FILTERS").Sheets("Sheet1")
        Set Rng = .Range("A2", .Range("A2").End(xlDown)).Resize(, 2)
        Rng.Name = "List"
    End With
    Me.ListBox1.RowSource = "List"
End Sub

i'd like to know if is correct

 

[Andrew Poulsom]

Try:

With Workbooks("FILTERS.XLS").Worksheets("Sheet1")

 

[teodormircea]

apparently doesn't work with all my macros,
is it a possibility to introduce them by macros and not pull them from an excel file
for exemple this, put them directly in the code

FILTRES .xls
	A	B	C	D
1	Signe	Operateur
2	=	blank
3	<>	nonblank
4	**	contain
operateurs

 

[teodormircea]

i made this for the firs column

Private Sub Userform_Initialize()
   


    ListBox1.AddItem "="
    

    ListBox1.AddItem "<>"
    ListBox1.AddItem "*  *"
 
End Sub

 

[Andrew Poulsom]

See if you can adapt this:

Private Sub UserForm_Initialize()
    Dim x As Integer
    Dim y As Integer
    y = 0
    With ListBox1
        For x = 1 To 5
            .AddItem x
            .Column(1, y) = "Item " & x
            y = y + 1
        Next x
    End With
End Sub