Expandable Listbox items (Tree view)

[Axmed.cm]

Hello,

I have a listbox with items populated in runtime from worksheet data. I want a way that the items in the listbox can be expanded and collapsed.
i used this code to populate the listbox

Please Login or Register  to view this content.

i attached a picture with the data and the desired result. I need your help for this.
Data.jpg
Thanks

[ByteMarks]

Andy Pope has an excellent class for doing this in a userform, but I don't think it'll work on a worksheet list box.

Please Login or Register  to view this content.

You could probably achieve that layout with a pivot table
Attachment 715911

[sintek]

..............Deleted..............
Edit...Just realized I misunderstood the request...OP wants listbox to be manipulated by expanding the data...

[sintek]

Had a free gap...This works...Too much code to post...

Double Click item...

[sintek]

Thanks for rep +
Does this help?

[Axmed.cm]

Dear Sintek, very helpful.

It's possible to avoid the sorting and T/F in column E ?

[sintek]

Not with this code...Col E was used as a helper column...perhaps someone else can offer alternate solution...Good luck

[jindon]

Axmed.cm

Used TreeView
1) To ThisWorkbook code module

Please Login or Register  to view this content.

2) UserForm1 code module

Please Login or Register  to view this content.

3) to Sheet1 code modue

Please Login or Register  to view this content.

[sintek]

And so we learn...Never seen this before...

[Axmed.cm]

Jindon, Thank you for this.

But it is not working for me. it says
Attachment 716103

[jindon]

Can not open your attachment.

You will need to add TreeView control on the form.
goto [ToolBox], if you do not find it, right click on [ToolBox] - [Additional Controls] - tick [Microsoft Treeview Control] - [OK].

Now you can add it on the form and name it as TreeView1 if it is named differently.