Need help with listbox

[Ayo]

I have a userform with a 2 column listbox and I have a 2 column range in a
worksheet. I am trying to load specific rows in my worksheet range into the
listbox. So for instance if
my worksheet range is Range("B2:C10"), and
Range("B3:C3"), Range("B5:C5") and Range("B8:C8") meets my specific
conditions,
I want to load this ranges into my 2 column listbox

How can I do this? So far this is what I have:

For Each c5 In dbeWS.Range("B2:B" & rngSAPlines).Cells
If c5.Value = ufrmsiteInfo.cmbSiteID.Text And c5.Offset(0, 1).Value
= ufrmsiteInfo.txtbox3.Text _
And c5.Offset(0, 4).Value = False Then
For Each SAPc In smlWS.Range("B2:B" & smllastRow).Cells
If CStr(SAPc.Value) = c5.Offset(0, 3).Value Then
ufrmsiteInfo.ListBox5.Column(0) = SAPc.Value
ufrmsiteInfo.ListBox5.Column(1) = SAPc.Offset(0, 1).Value
Exit For
End If
Next SAPc
End If
Next c5

And this is not getting me anywhere. Please help.

 

[Dave Peterson]

You could also use:

If CStr(SAPc.Value) = c5.Offset(0, 3).Value Then
with ufrmsiteinfo.listbox5
.additem SAPc.Value
.list(.listcount-1,1) = SAPc.Offset(0, 1).Value
end with
Exit For 'just one item????
End If

 

[Ayo]

Not one item, just one item at a time. I am looping through the range and
checking some conditions and when these conditions are met then I want to
loop through the range that fills in the list that is why I inserted the exit
for so that I can start back from the begining. I will try this. I hope this
works.

 

[Ayo]

With this code, nothing is showing up in the listbox. I suspect that I am
doing something wrong, or at least missing a step or two, but I can't figure
out what they are. Anymore guidiance you can provide will be really
appreciated.
Thanks

 

[Ayo]

Never mind. It works perfect. I found the mistake. I left a line of code in
there that shouldn't have been in at all.
Thanks a bunch Dave. You are the best.

 

[Ayo]

Another question. I am trying to see if I can add headers to the list box.
Ebvery one said it is not possible unless the listbox is bound using
rowsource/listfillrange property. I found this code snippet:

Dim oLB As clsListBoxHeader
Dim aHeaders As Variant
aHeaders = Array("Head1", "Head2")
Set oLB = New clsListBoxHeader
With oLB
.Create(ufrmsiteInfo.ListBox5, aHeaders)
.BackColor = RGB(255, 0, 0)
End With
Set oLB = Nothing '(Header will remain intact)

from
http://groups.google.com/[email protected]
I tried it but something is missing on this line,
..Create(ufrmsiteInfo.ListBox5, aHeaders)
and I also have an issue with "Dim oLB As clsListBoxHeader"

Any ideas?
Thanks

 

[Dave Peterson]

You'll need to create a class module and put that code in there. But worse,
you'll have to find the rest of the code to make it work.

Other options would be to use labels as headers (right above the listbox). Or
extract your selected range to a different (temporary) worksheet and use that
range as the rowsource.