MultiSelect listbox

[RoseG]

Hi all,

I'm trying to get a multiselect listbox to tick-off selected items (placing a tick under appropriate headings) instead of placing the actual value in the sheet.

e.g. If "dog" and "cat" are selected from the listbox then a tick will appear on the activecell.row in the "dog" and "cat" column but not the "cow" column or what-have-you.

Is this do-able?

 

[Domenic]

Assuming that Row 1 contains the headings, try...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton1_Click()
    [color=darkblue]Dim[/color] FoundCell [color=darkblue]As[/color] Range
    [color=darkblue]Dim[/color] i [color=darkblue]As[/color] [color=darkblue]Long[/color]
    [color=darkblue]Dim[/color] r [color=darkblue]As[/color] [color=darkblue]Long[/color]
    [color=darkblue]Dim[/color] c [color=darkblue]As[/color] [color=darkblue]Long[/color]
    [color=darkblue]With[/color] Me.ListBox1
        [color=darkblue]For[/color] i = 0 [color=darkblue]To[/color] .ListCount - 1
            [color=darkblue]If[/color] .Selected(i) [color=darkblue]Then[/color]
                [color=darkblue]Set[/color] FoundCell = Rows(1).Find(what:=.List(i), LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
                [color=darkblue]If[/color] [color=darkblue]Not[/color] FoundCell [color=darkblue]Is[/color] [color=darkblue]Nothing[/color] [color=darkblue]Then[/color]
                    c = FoundCell.Column
                    r = ActiveCell.Row
                    [color=darkblue]With[/color] Cells(r, c)
                        .Font.Name = "Marlett"
                        .Value = "a"
                    [color=darkblue]End[/color] [color=darkblue]With[/color]
                [color=darkblue]End[/color] [color=darkblue]If[/color]
            [color=darkblue]End[/color] [color=darkblue]If[/color]
        [color=darkblue]Next[/color] i
    [color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]

 

[RoseG]

Ooh, that looks Amahzing. I'll try it quick-smart. Thank you so much!

 

[RoseG]

It works! It works! Thank you lots and lots! I'm going to have really good nosey through now so that I may understand your magical ways.

Thank you!

 

[Domenic]

You're very welcome! Thanks for the feedback!