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 ??

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 ??