Count controls in a VBA UserForm

[drom]

Hi and thanks in advance!

If I want to check how many UseForms I have in my VBA, I can Use:

Sub mToListUFs()
 Dim Obj As Object
Dim X As Integer
  For Each Obj In ThisWorkbook.VBProject.VBComponents
    If Obj.Type = 3 Then
      Debug.Print Obj.Name
      X = X + 1
    End If
  Next Obj
  Debug.Print X
End Sub

But How can I check if the UserForms in my VBA are UserForms with CheckBoxes, or UserForms with Buttons etc ?
or probably How can I check if my Userform is Empty with nothing on it yet

 

[Domenic]

To count the number of controls in a userform named "UserForm1"...

Debug.Print UserForm1.Controls.Count

To loop through each control in a userform named "UserForm1"...

[COLOR=darkblue]Dim[/COLOR] Ctrl [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object
[/COLOR]
[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] Ctrl [COLOR=darkblue]In[/COLOR] UserForm1.Controls
    Debug.Print TypeName(Ctrl)
[COLOR=darkblue]Next[/COLOR] Ctrl

To loop through each userform that is already loaded and part of the UserForms collections...

[COLOR=darkblue]Dim[/COLOR] UF [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object
[/COLOR]
[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] UF [COLOR=darkblue]In[/COLOR] UserForms
    Debug.Print UF.Name & ", " & UF.Controls.Count
[COLOR=darkblue]Next[/COLOR] UF

To loop through each userform that is not already loaded and part of the UserForms collections...

[COLOR=darkblue]Dim[/COLOR] Obj [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]
[COLOR=darkblue]Dim[/COLOR] UF [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]

[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] Obj [COLOR=darkblue]In[/COLOR] ThisWorkbook.VBProject.VBComponents
  [COLOR=darkblue]If[/COLOR] Obj.Type = 3 [COLOR=darkblue]Then[/COLOR]
    [COLOR=darkblue]Set[/COLOR] UF = UserForms.Add(Obj.Name)
    Debug.Print UF.Name & ", " & UF.Controls.Count
    Unload UF
  [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Next[/COLOR] Obj

Hope this helps!

 

[drom]

Hi Domenic, and Thanks !

is there any way of replacing within this code:

Dim Obj As Object
Dim UF As Object

For Each Obj In ThisWorkbook.VBProject.VBComponents
  If Obj.Type = 3 Then
    Set UF = UserForms.Add(Obj.Name)
    Debug.Print UF.Name & ", " & UF.Controls.Count
    Unload UF
  End If
Next Obj

ThisWorkbook.VBProject.VBComponents with Workbooks("eeee.xls").VBProject.VBComponents
or
ThisWorkbook.VBProject.VBComponents with activeworkbook.VBProject.VBComponents

I am gonna have to run me macro from a workbook other than the one with the UserForms

Thanks!

 

[Domenic]

Sorry, unfortunately I'm not aware of a way to accomplish what you want...

 

[drom]

Sorry for the delay.

This does the job:

Obj.Designer.Controls.Count

Thanks again

 

[Domenic]

Thanks drom, I completely overlooked the Designer property...