gibbo1715
08-30-2005, 02:24 AM
i have a userform with a list box to display items on a sheet as follows
With ThisWorkbook.Sheets("Items")
If Range("A3").value = "" Then
LastRow = Range("3")
Else
LastRow = .Range("A65536").End(xlUp).Row
End If
frmItems.ListBox1.RowSource = .Range("A3:D" & LastRow).Address
End With
which works fine if i want to see all the items.
but what i now need is only to list items where the value in the F column = y
( or activecell.offset(0,5) = y if you prefer)
Can anyone help
Many thanks
Gibbo
With ThisWorkbook.Sheets("Items")
If Range("A3").value = "" Then
LastRow = Range("3")
Else
LastRow = .Range("A65536").End(xlUp).Row
End If
frmItems.ListBox1.RowSource = .Range("A3:D" & LastRow).Address
End With
which works fine if i want to see all the items.
but what i now need is only to list items where the value in the F column = y
( or activecell.offset(0,5) = y if you prefer)
Can anyone help
Many thanks
Gibbo