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

Loop Through Controls on a UserForm

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

Excel VBA: Loop Through Controls on a UserForm. Textbox, ComboBox, CheckBox etc

Lot's of free Excel VBA . Got any Excel Questions? Free Excel Help

Loop Through UserForm Controls

Excel VBA UserForms and their associated controls are a great way to present/collect data from users. There are often occasions however when we need to loop through all controls on a UserForm, or only certain specified controls.

Loop Through All Controls

Use the code below to loop through all Controls on a UserForm

Private Sub CommandButton1_Click()Dim cCont As Control    For Each cCont In Me.Controls        'DO STUFF HERE    Next cContEnd Sub

Loop Through Specific/Specified Controls

Use the code below to loop through only specified Controls on a UserForm.

Private Sub CommandButton1_Click()Dim cCont As Control    For Each cCont In Me.Controls        If TypeName(cCont) = "TextBox" Then            'DO STUFF HERE        End If     Next cContEnd Sub

Loop Through Specific Controls on a Specified Page of a MultiPage Control

Use the code below to loop through only specific Controls on a specified page of a MultiPage Control. Note that Pages(0) is always the first page of any MultiPage Control.

Private Sub CommandButton1_Click()Dim cCont As Control    For Each cCont In Me.MultiPage1.Pages(0).Controls        If TypeName(cCont) = "TextBox" Then            'DO STUFF HERE        End If     Next cContEnd Sub

Loop Through Specified Controls on all Pages of a MultiPage Control

Use the code below to loop through specified controls on all pages of a MultiPage Control.

Private Sub CommandButton1_Click()Dim pPage As Page, cCont As Control    For Each pPage In Me.MultiPage1.Pages        For Each cCont In pPage.Controls            If TypeName(cCont) = "ComboBox" Then               'DO STUFF HERE            End If        Next cCont    Next pPageEnd 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. ALLpurchases 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 PackageTechnical 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