Ozgrid, Experts in Microsoft Excel Spreadsheets
Javascript DHTML Drop Down Menu Powered by dhtml-menu-builder.com
Learn how to create Excel dashboards.

Excel VBA Macro - Adding Values to an Excel ComboBox

Information Helpful? Why Not Donate.

TRY OUT: Smart-VBA | Code-VBA | Analyzer-XL | Downloader-XL | Trader-XL | More Free Downloads.. Best Value: Finance Templates Bundle

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

New & Less Than You Think: List Managers | Working With Excel Sheets In VBA | Excel Charting Lessons | Delete rows by condition | TRY OUT: Smart-VBA | Code-VBA | Analyzer-XL | Downloader-XL | Trader-XL | More Free Downloads.. Best Value: Finance Templates Bundle

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

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

Try out: Analyzer XL | Downloader XL | Smart VBA | Trader XL Pro (best value) | ConsoXL | MergeXL | O2OLAP for Excel | MORE>>

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

GIVE YOURSELF OR YOUR COMPANY 24/7 MICROSOFT EXCEL SUPPORT & QUESTIONS