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.

Ayo wrote:

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/groups?selm...g .google.com
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" wrote:

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 wrote:

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


--

Dave Peterson