combo boxes again
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 ?? |
All times are GMT +1. The time now is 08:46 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com