Code to send combo box value to a cell

[daniels012]

Is there code i can write to send the combo box (Control Toolbox toolbar) value to the cell originally chosen.

I select an option button which enters my data into a combo box, then I would like to enter that data into the original cell as well as sending the data in R4 to the cell to the right of the active cell.



Thank You,
Michael

 

[sykes]

Hi Michael

Could you explain a little further what you mean by "originally chosen".....

Is there code i can write to send the combo box (Control Toolbox toolbar) value to the cell originally chosen.

............ and also, as long as you're working on the same sheet all the time, this should do the second part of your question:

Sub move_data()
ActiveCell.Offset(0, 1).Value = [R4].Value
End Sub

Obviously you'd probably just want to incorporate the one line into your other code, so that it all happens in one go...