Excel VBA Macro - Adding Values to an Excel ComboBox

Complete Excel Excel Training Course. Instant Buy/Download, 30 Day Money Back Guarantee

Originally Posted in our Excel Help Forum

SEE ALSO: Excel ComboBox Manager - Excel Add-in

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only ~~$145.00~~. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help

Adding values to a Combobox

Egad couldn’t find the right VBA syntax to change the properties of a ComboBox on a worksheet. (i.e. change the listfillrange). He wanted this to occur via VBA after other macros have chugged.

He solved the post himself with the following VBA code: -

ActiveSheet.Shapes("ComboBox3").Select
Selection.ListFillRange = "k1:k10"

bnix then provided another couple of methods:-

With ComboBox1
   .AddItem "This"
   .AddItem "Is"
   .AddItem "A"
   .AddItem "Test"
End With

If you are using a range you would need to set up some type of loop, here is one that I would use in a Userform;

Private Sub UserForm_Initialize()

With cboRD
For Row = 2 To 10 'Each cell in the range
.AddItem Sheets("MenuSheet").Cells(Row, 11)
Next Row
End With

With cboBM
For Row = 1 To 75
.AddItem Sheets("MenuSheet").Cells(Row, 8)
Next Row
End With

With cboBr
For Row = 1 To 75
.AddItem Sheets("MenuSheet").Cells(Row, 7)
Next Row
End With

End Sub

Excel Dashboard Reports & Excel Dashboard Charts 50% Off

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft ® and Microsoft Excel ® are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft