<<Convert Excel Spreadsheets to Web Pages | Trading Software That Operates Within Excel | Convert Excel, Access & Other Databases | Merge Excel Files>>
Ozgrid, Experts in Microsoft Excel Spreadsheets

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

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 [email protected] 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

Some of our more popular products are below...
Convert Excel Spreadsheets To Webpages | Trading In Excel | Construction Estimators | Finance Templates & Add-ins Bundle | Code-VBA | Smart-VBA | Print-VBA | Excel Data Manipulation & Analysis | Convert MS Office Applications To...... | Analyzer Excel | Downloader Excel | MSSQL Migration Toolkit | Monte Carlo Add-in | Excel Costing Templates