Reconfigure Userform Layout based on IF statement

[mharper90]

I have a UserForm that has several "extra" checkboxes. These checkboxes are enabled in some scenarios, but I use an IF statement to hide them most of the time, based on what is going on in the worksheet.

I have the checkboxes functioning properly, but because hiding them leaves a lot of empty space on the UserForm, I want to add to the same IF statement, to shift CommandButton1 & 2 up to a predetermined location (overtop of where the hidden checkboxes are hiding), and also to shorten the overall height of the UserForm by a similar amount.

I researched this a long time ago to see if it was possible, and now I can't figure out how to do it, and I can't find whatever I referenced on my first search. Thanks!

 

[My Aswer Is This]

I would think something like this would work.
Modify to your needs.
The script is activated when you click CheckBox4

Private Sub CheckBox4_Click()
'Modified  2/18/2019  10:38:41 PM  EST
Select Case CheckBox4.Value
Case True
    CheckBox1.Top = 10
    CheckBox2.Top = 10
    CheckBox3.Top = 10
    CommandButton1.Top = 20
    CommandButton2.Top = 20
 Case False
    CheckBox1.Top = 30
    CheckBox2.Top = 30
    CheckBox3.Top = 30
    CommandButton1.Top = 50
    CommandButton2.Top = 50
End Select
End Sub

 

[My Aswer Is This]

Or you could do it this way:
Put all your checkboxes and command buttons inside a Frame

And then when you click on checkbox5 which is not inside the frame
All the controls inside the Frame will be hidden.

Private Sub CheckBox5_Click()
'Modified  2/18/2019  10:56:32 PM  EST
Select Case CheckBox5.Value
Case True
    Frame1.Visible = False
Case False
 Frame1.Visible = True
End Select
End Sub

 

[My Aswer Is This]

If you have a lot of controls on a Userform and are limited to space and you want to make the userform larger and smaller from time to time.

Have you ever looked into Multipages

A workbook has several different worksheets as many as you want.

A Userform can have what looks like many Userforms

It's called a Multipage

So at times you can click on the Multipage Tab
And then you can see another what looks like Userform

Just like when you click on a sheet tab you see a different sheet.

So Your Multipage has what is called Multipage Pages

Click on The tab of the one you want to see.
Each Multipage Tab can have as many controls as you want just like the Userform can have many controls..

You may want to look into UserForm Multipages

 

[Akuini]

and also to shorten the overall height of the UserForm by a similar amount.

To set a userform height you can use something like this:

Me.Height = 200