Get row number of each selected Listbox item

[sharky12345]

I have a multi-select Listbox on a Userform and I need to get the row number of each selected item if someone can help please.

 

[sharky12345]

Mick,

Thanks but it's not working - it only updates the first value found and not each selected item - is there anything obvious to you?

 

[MickG]

Try this alternative:-

Private [COLOR="Navy"]Sub[/COLOR] CommandButton1_Click()
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Rws [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String,[/COLOR] nRng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]With[/COLOR] ListBox1
    [COLOR="Navy"]If[/COLOR] TextBox1 <> "" [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]For[/COLOR] n = 0 To .ListCount - 1
            [COLOR="Navy"]If[/COLOR] .Selected(n) [COLOR="Navy"]Then[/COLOR]
                '[COLOR="Green"][B]Nb:- Change "+ 3" as appropriate !![/B][/COLOR]
                [COLOR="Navy"]If[/COLOR] nRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
                   [COLOR="Navy"]Set[/COLOR] nRng = Sheets("Sheet1").Cells(n + 3, "D")
                [COLOR="Navy"]Else[/COLOR]
                   [COLOR="Navy"]Set[/COLOR] nRng = Union(nRng, Sheets("Sheet1").Cells(n + 3, "D"))
                [COLOR="Navy"]End[/COLOR] If
            [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]Next[/COLOR] n
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]If[/COLOR] Not nRng [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR] nRng.Value = TextBox1.Value
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[sharky12345]

That's done it!

Thanks Mick, I'm very grateful for you efforts!!!

 

[MickG]

You're welcome