Multicolumn ListBox in Userforms (selecting specific rows)

W

wpllc2004

Hello

Can someone please help me with a problem that I've with Userforms and
Listboxes?

The problem is that I've a multicolumn listbox loaded in a userform
(multipage control) and depending on option buttons (or other
controls) I would like to select some rows so I can manipulate them in
the next tab of the multipage control.

My code for a command button that selects all the rows is the
following:

Private Sub cbAll_Click()
Dim i As Integer
For i = 0 To lbSales.ListCount - 1
lbSales.Selected(i) = True
Next i
End Sub

However I would like to select all the rows that have a particular
value (ie ">1000" in column 4) in one of the columns of the listbox.

Can anyone help me?
Many thanks
 
T

Tom Ogilvy

Private Sub cbAll_Click()
Dim i As Integer
For i = 0 To lbSales.ListCount - 1
if isnumeric(lbSales.List(i,3)) then
if cdbl(lbSales.List(i,3)) > 1000 then
lbSales.Selected(i) = True
end if
end if
Next i
End Sub

or do you mean it literally has the string ">1000"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top