ComboBox.Value error - Excel VBA

Question

I have a Combobox in my Spreadsheet. I am trying to get the selected value from it. But not been able to do so.

These are the Codes that I tried:

Range("A1")=ComboBox1.SelectedItem

And

Range("A1")=ComboBox1.Value

Kindly help me with this. They both are not working.

This is how I added the Items to the Combobox:

For i = 2 To lastnum        
    disName= ThisWorkbook.Sheets(final).Range(Col& i).Value        
    With wb21Tool.Sheets("Main").ComboBox1        
        .AddItem disName        
    End With        
Next

What error do you get? Range("A1")=ComboBox1.Value should work! — MiguelH
– MiguelH, Commented May 9, 2017 at 11:59
Try fully qualify your objects, try wb21Tool.Sheets("Main").Range("A1").Value = wb21Tool.Sheets("Main").ComboBox1.Value , it worked for me — Shai Rado
– Shai Rado, Commented May 9, 2017 at 12:01
@ShaiRado Worked. Can you add it as an answer. I will accept it. Thanks. — Student of the Digital World
– Student of the Digital World, Commented May 9, 2017 at 12:02
Do you add items to the combobox in the 'ThisWorkbook' 'Workbook_open()' object? — MiguelH
– MiguelH, Commented May 9, 2017 at 12:03

Shai Rado · Accepted Answer · 2017-05-09 12:04:12Z

3

You need to fully qualify your objects, try:

wb21Tool.Sheets("Main").Range("A1").Value = wb21Tool.Sheets("Main").ComboBox1.Value

Or,

With wb21Tool.Sheets("Main")
    .Range("A1").Value = .ComboBox1.Value 
End With

answered May 9, 2017 at 12:04

Shai Rado

33.7k7 gold badges32 silver badges55 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

ComboBox.Value error - Excel VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related