Initialize Userform, Populate Listbox, Dynamic RowSource?

[RShow]

Greetings,
I'll try to explain this with my limited technical language.

Scenerio:
Worksheet column A has all part names followed by dimension(Angle 1 x 1 x
1/8...
Angle 1 x 1 x 3/16..Channel 4 x 4....Channel 6 x 6....). It is ever Growing
as new custom parts and sizes are created and added. How can i populate a
listbox on a userform to only show all parts that begin with "angle", or all
parts that begin with "channel" , etc.

Thank you for your time and help.
Ron.

[Harald Staff]

Hi Ron

Put in the userform's module:

Private Sub UserForm_Initialize()
Dim R As Long
For R = 1 To Sheets(1).Cells(65000, 1).End(xlUp).Row
If Sheets(1).Cells(R, 1).Value Like "Angle*" Then _
ListBox1.AddItem Sheets(1).Cells(R, 1).Value
Next
End Sub

HTH. Best wishes Harald

"RShow" <[email protected]> skrev i melding
news:[email protected]...
> Greetings,
> I'll try to explain this with my limited technical language.
>
> Scenerio:
> Worksheet column A has all part names followed by dimension(Angle 1 x 1 x
> 1/8...
> Angle 1 x 1 x 3/16..Channel 4 x 4....Channel 6 x 6....). It is ever
Growing
> as new custom parts and sizes are created and added. How can i populate a
> listbox on a userform to only show all parts that begin with "angle", or
all
> parts that begin with "channel" , etc.
>
> Thank you for your time and help.
> Ron.
>
>
>