Update textbox based on ComboBox

**staples** · 12-17-2009, 04:42 AM

Hi there

I have a macro which updates a textbox based on the selelction in the combobox. The macro is currently set up to change the textbox on "worksheet change" which means I can only make the text box update by altering the worksheet after making the selection on the combobox.

Eg, make selection from combobox, however this makes no change to the textbox. So, I need to then double clicking into a cell then pressing enter for example which then updates the text box.

Is there a line of code I can use to make the textbox update as soon as the user makes a selection from the comobobox.

Private Sub Worksheet_Change(ByVal Target As Range)
            
    If ComboBox1.Value = "Product1" Then
    
    ActiveSheet.Shapes("textbox1").Select
    Selection.Characters.Text = _
        "Product 1 Causes.....etc"
         
    End If

Thanks

**D_Rennie** · 12-17-2009, 06:09 AM

Hello.

Using controlls on the sheet should be easer using active x controls.

place the two active x controlls on the sheet and try this code.

Private Sub ComboBox1_Change()
    Select Case ComboBox1.Value
        Case Is = "Product1"
            TextBox1.Value = "Product 1 Causes.....etc"
        Case Is = "Product2"
            TextBox1.Value = "Product 2 Causes"
        Case Else
            TextBox1.Value = ""
    End Select
End Sub

cheers

**staples** · 12-17-2009, 09:12 AM

Hi there, thanks for the reply

What do you mean by active x controls/place two active x controls on the sheet?

Thanks

**staples** · 12-17-2009, 09:15 AM

hi again,

do you mean using a combo box from the "control toolbax" instead of "forms"? If so, I am not very good with these and don't even know how to add items to the dropdown list. any help would be great

thanks again

**D_Rennie** · 12-17-2009, 10:22 AM

in x 2007 on the developer ribbon cilck insert and under the heading active x insert the combobox.

then its just like using then in a userform.
using the drop button click event

Private Sub ComboBox1_DropButtonClick()
'ComboBox1.List = Array("itemone", "Itntho", "asfd")
'ComboBox1.List = Range("A1:A10").Value
End Sub

hope this helps
cheers

Update textbox based on ComboBox

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Update textbox based on ComboBox

Re: Update textbox based on ComboBox

Re: Update textbox based on ComboBox

Re: Update textbox based on ComboBox

Re: Update textbox based on ComboBox

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions