Populating Lists in forms

Hello all,

I have a list which I can get to appear in a list box.

What I want to do is then show a list of 6 items which are unique to the item selected in the first box.

Every item in the first box has its own set of unique values

Any ideas??

Thanks

Mark

With no other details, maybe this will inspire you.

Private Sub Listbox1_Click()
Dim cell as Range
Dim secondList as Range
set secondList = Worksheets("Sheet2").Range("A1").CurrentRegion
' remove headers
set secondList = secondList.offset(1,0).Resize(Secondlist.Rows.count-1,1)
Listbox2.Clear
for each cell in secondlist
if cell.Value = Listbox1.Value then
Listbox2.AddItem cell.Offset(0,1)
end if
Next
End sub

--
Regards,
Tom Ogilvy


"marksince1984" <marksince1984.2909za_1149639601.5537@excelforum-nospam.com>
wrote in message
news:marksince1984.2909za_1149639601.5537@excelforum-nospam.com...
>
> Hello all,
>
> I have a list which I can get to appear in a list box.
>
> What I want to do is then show a list of 6 items which are unique to
> the item selected in the first box.
>
> Every item in the first box has its own set of unique values
>
> Any ideas??
>
> Thanks
>
> Mark
>
>
> --
> marksince1984
> ------------------------------------------------------------------------
> marksince1984's Profile:
http://www.excelforum.com/member.php...o&userid=33484
> View this thread: http://www.excelforum.com/showthread...hreadid=549238
>