combo boxes again

A

Atishoo

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top