Assign cell with value chosen in a combobox

Re: assign cell with value chosen in a combobox

I am not really sure what you want, try attaching an example workbook. This might be it

Range("B2").Value=Combobox1.Value

Re: assign cell with value chosen in a combobox

If the value is placed in a cell
combox value goes in A1
then cant you just put =A1 in B2 to pull the value.

Re: assign cell with value chosen in a combobox

Quote

If the value is placed in a cell
combox value goes in A1
then cant you just put =A1 in B2 to pull the value.

The combobox is placed in Cell A1 (and not the value)

Re: assign cell with value chosen in a combobox

What type of combobox are you referring to?

If it's from the Forms toolbar then the index will be placed in the linked cell.

If it's from the Control ToolBox toolbar then the value will be placed in the linked cell.

Re: assign cell with value chosen in a combobox

If you are using the ControlsToolbar then the VBA solution is quick & easy

Re: assign cell with value chosen in a combobox

Quote from _NFio_

The control toolbar idea which will link the value is interesting, but it doens't seem the combobox cound be assigned a control outside of vba ..?

What do you mean? If you use a combobox from the Control Toolbox you don't need VBA to either populate it or put the value in a cell.

You just set the appropriate properties.

Re: assign cell with value chosen in a combobox

You could try this

=CHOOSE(B3,resource!A2,resource!A3,resource!A4,resource!A5,resource!A6,resource!A7,resource!A8,resource!A9)

Re: assign cell with value chosen in a combobox

Try a right click.

Re: assign cell with value chosen in a combobox

Quote from _NFio_;205649

Yeh, funny thing is that, when the user was done, I was thinking about having a button control - say 'create summary page'. The sub would then create a new printer freindly sheet and fill in all the relevent information and their corresponding values automatically. At the time it seemed like overkill as most of my referencing is straight text (as easy as =A1 in the formula bar) and checkboxes (cell-linking) ... Then I got started on obtaining the value of a combobox (instead of the index) and it's digging into the back of my head. Some way, any way, I must solve this absurdly simple task ... It's so logical and it's driving me nuts guess I'm wierd like that ...

Today, I had the exact and same issue. One page with Text Boxes and a Command Button. I just cannot get the Drop Down Box to work. I used .index just to stop it debugging and it returns the index. Instead I want to return the text selected in the combo box.

Currently, All Text Box data is placed in a row on a separate worksheet in individual cell ranges. It all works, except for the combo box. I am stumped!!!!

Wish I had an answer for you.

Private Sub DateOfIncident_Change()
DateOfIncident.Text = Date
End Sub

Private Sub EnterIncidentButton_Click()
Sheets("Incident Report").Select
Sheets("Incident Report").Range("A4").Value = NameOfPerson.Text
Sheets("Incident Report").Range("B4").Value = DateOfIncident.Text
Sheets("Incident Report").Range("C4").Value = IncidentComment.Text
Sheets("Incident Report").Range("E4").Value = QuantityUsed.Text
Sheets("Incident Report").Range("D4").Value = ItemUsedDropDown.Index
End Sub

Private Sub EnterIncidentButton_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Incident Report").Select
End Sub

Re: assign cell with value chosen in a combobox

Hi Norie,

Would that work for my example below. Everything works except the combo box called ItemUsedDropDown
Do I code a different event? What dot notation would I use to refer to the actual text selected at time of clicking the button?

Private Sub DateOfIncident_Change()
DateOfIncident.Text = Date
End Sub

Private Sub EnterIncidentButton_Click()
Sheets("Incident Report").Select
Sheets("Incident Report").Range("A4").Value = NameOfPerson.Text
Sheets("Incident Report").Range("B4").Value = DateOfIncident.Text
Sheets("Incident Report").Range("C4").Value = IncidentComment.Text
Sheets("Incident Report").Range("E4").Value = QuantityUsed.Text
Sheets("Incident Report").Range("D4").Value = ItemUsedDropDown.Index
End Sub

Private Sub EnterIncidentButton_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Incident Report").Select
End Sub

Re: assign cell with value chosen in a combobox

Hello,

This topic is 12 years old.
Please start your own topic, you can refer to this topic if you wanted.

Wigi