asked on 3/16/2017

List Box Entries Excel 2010

I have a simple list box with the following entries.

John
Mary
Ralph
Sue

When I select one of the names in the list box I want it to record in the active worksheet of the active cell.

What code do I need to make this happen?

Microsoft Office Microsoft Excel VBA

Last Comment

Subodh Tiwari (Neeraj)

3/17/2017

ASKER CERTIFIED SOLUTION

Subodh Tiwari (Neeraj)

3/16/2017

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

Martin Liss

3/16/2017

If it's NOT an ActiveX listbox then you need to do something like

Application.EnableEvents = False

With ActiveSheet.ListBoxes("List Box 1") ' Change the name if necessary
    For lngIndex = 1 To .ListCount
        If .Selected(lngIndex) Then
            ActiveCell.Valuet = .List(lngIndex)
            Exit For
        End If
    Next
End With

Application.EnableEvents = True

Open in new window

Shums Faruk

3/16/2017

ActiveCell could be risky, instead just add the cell value in LinkedCell like below image:

William C Johnson

3/16/2017

ASKER

Thank you. Works like a charm.

Subodh Tiwari (Neeraj)

3/17/2017

You're welcome! Glad it worked.

Microsoft Excel

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

144K

Questions

Followers

Top Experts

Get a personalized solution from industry experts

Ask the experts

"Invaluable tool for our organization"
Josh Regalski
"This is the best money I have ever spent."
@rwheeler23
"Your help has saved me hundreds of hours of internet surfing."
@fblack61
"Just a dang good service!"
@golferski
"Worth every penny."
Steve Hougom
"It’s been a life saver."
Maria Halt
"Best support site I’ve seen!"
Bob Schneider
"I would be lost without them."
@fblack61
"Saved my job multiple times."
Walt Forbes
"I love this site."
Maria Duwe
"Friendly respectful help."
Andrew Kowtalo
"Such top-notch experts."
@magento
"The best money I have ever spent."
@rwheeler23
"Beyond any comprehensible value"
George Morris
"Invaluable tool for our organization"
Josh Regalski
"This is the best money I have ever spent."
@rwheeler23

Read over 600 more reviews

TRUSTED BY