Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
free text in combo box
I am using a combo box to enter data into an offset cell to the active cell.
I can type free text into the combo box but cannot get it to enter when I click the box (which activates the sub to enter the data) into the offset cell! I suspect this is because it doesnt count this as a click event? My sub for entering text is as follows: Private Sub ComboBox1_Click() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim Newvalue, d With Worksheets("Main Board") c = .Range("D82").Value ActiveCell.Offset(c, 0).Value = ComboBox1.Value ComboBox1.Value = "" End With ComboBox1.Visible = False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub any Ideas anyone ?? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
free text in combo box
The Click event reacts to a click into the ComboBox's (also a ListBox's for
than matter) list of items... the Change event occurs whenever the text in the edit field part of the ComboBox changes (whether typed in or as a result of clicking into the list). See if putting your code in that Change event gives you the result you are looking for. -- Rick (MVP - Excel) "Atishoo" wrote in message ... I am using a combo box to enter data into an offset cell to the active cell. I can type free text into the combo box but cannot get it to enter when I click the box (which activates the sub to enter the data) into the offset cell! I suspect this is because it doesnt count this as a click event? My sub for entering text is as follows: Private Sub ComboBox1_Click() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim Newvalue, d With Worksheets("Main Board") c = .Range("D82").Value ActiveCell.Offset(c, 0).Value = ComboBox1.Value ComboBox1.Value = "" End With ComboBox1.Visible = False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub any Ideas anyone ?? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find text in free-format text field | Excel Discussion (Misc queries) | |||
EARN,20000$ & ALL TYPES SOFTWARE FREE DOWNLOAD,& KATRINA KAIF OPENVIDEOS & WEBSITE DEV TO FREE ALL OVER THE WORLD`S PEOPLE | Excel Worksheet Functions | |||
Free social world wide network pays for 10 generations! Free! | Excel Discussion (Misc queries) | |||
Where free 2 sigma statistical process control chart, free? | Charts and Charting in Excel | |||
free text box on a protected sheet | Excel Programming |