Using ListFillRange for combo box

[sjh]

Hi,
I am using a range for a combo box values. Is it possible to add an additional entry into the combo box besides the values in the range? For example, I would like to add "All" option.

Is there an easy way to do this?

Thank you,
Susie

 

[VBAjedi]

AFAIK, you can't set the source to be multiple ranges, or even a single non-contiguous range. The easiest way would just be to include that value in your source range. You could put it at the top, and hide that row. . .

VBAjedi

 

[Bowers74]

Something like this should help you out. Kinda dirty!

Dim ListRange As Range, c As Range
' change the below to match your data's range
Set ListRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A10")
With ListBox1
    .RowSource = "" ' clear the RowSource, if set
    .Clear ' clear ListBox
    .AddItem "All" 'Insert "All" item
        For Each c In ListRange
            .AddItem c.Value ' Insert the values from ListRange
        Next c
    .ListIndex = 0 ' Select the first item ("All")
End With

Hope this helps!



Peace!!

Mike

Didn't get the answers that you wanted? Take a look at FAQ219-2884