Update cell immediately upon selection from drop down
 

Quartz,
Try the KeyUp procedure...
ControlSSDropDown_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift
As Integer)

HTH,
Gary Brown


"quartz" wrote:

I have "Drop Down 1" on a spreadsheet (NOT an activeX) and when the user
makes a choice from the drop down I want the text from that choice to
immediately populate column "A" on the row in which the cell pointer
currently resides.

The problem is, if the user's choice already appears, then it doesn't work,
even if the user opens the drop down and closes it again (by making the same
choice) because the drop down hasn't changed. The user has to make some
other choice, then return to their original choice to get it to work.

My function is tied to the control itself. How can I get this to function
correctly? My function follows:

Public Function ControlSSDropDownChange()
'POPULATE CELL WITH SHEET CONTROL CONTENTS
Dim ctrlDD1 As ControlFormat
Set ctrlDD1 = ThisWorkbook.ActiveSheet.Shapes(pcstrDropDown1).Co ntrolFormat
Cells(ActiveCell.Row, 1) = ctrlDD1.List(ctrlDD1.ListIndex)
End Function

Thanks much in advance...