listbox

[luthor]

I already posted this question in Excel, bur I think this is a better place:

I want to make a selection (entire row) from a worksheet en place this row(s)
in a listbox.
So far I'm able to place the cells from the selected row vertically in the
listbox, but I want the row horizontaly (in columns) placed in the listbox.
When I use the next formula, I get all the rows horizontally

With ListBox1
.ColumnCount = Range("rFactTot").Columns.Count
.RowSource = "rFactTot"
.ListIndex = 0
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
End With

But I want to add an if--then statement that only places the complete rows
which meet the criteria from "rFactTot" I want.

Anybody knows the solution??

 

[K Dales]

To populate the listbox use the .List property of the listbox which lets you
specify individual items (row, column) using indexes:
Dim i as Integer, j as Integer, ThisRow as Range
i = 0
For Each ThisRow in Range("rFactTot").Rows
' Use your If statement to specify the criteria from the row:
If ThisRow.Cells(?,?)=? Then
i = i + 1
For j = 1 to Range("rFactTot").Columns.Count
ListBox1.List(i-1,j-1)
Next j
End If
Next ThisRow