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