minimize and maximize the userform based on values showing in textboxes

[Ali M]

Hi experts,
I want minimizing and maximizing the userform based on values showing in tools . just show the textboxes on userform contains values when run the userform and ignore textboxes are empty


this is what I got when run the userform

what I want if each three textboxes are empty shouldn't show like this

note: if one or two of for each three textboxes contains value then shouldn't show.

thanks

 

[Ali M]

@dmt32 I've finished based on your guiding

 

[Ali M]

@EXCEL MAX

why specify 16,17,18 , what means?

you did it by looping in all of the text boxes in first lines.

 

[EXCEL MAX]

We assume you have 15 textboxes that you want to manipulate.
The names of these three textboxes are examples of names and represent any other text box
that may affect the collection of the main textboxes.
Collecting names in a array makes the code shorter.
Also, this routine gives you the opportunity to use more than 15 textboxes and
you don't have to worry about naming textboxes and their order.

 

[dmt32]

@dmt32 I've finished based on your guiding

sorry having senior moments posted the wrong version - can you delete & replace with following

Public BoxSpace     As Double, BoxHeight As Double, BoxWidth As Double
Public LineCount    As Long
Dim ws              As Worksheet

Private Sub UserForm_Activate()
     DisplayTextBoxes Me
End Sub

Private Sub UserForm_Initialize()
    
    Set ws = ThisWorkbook.Worksheets("DATA")
    
    ConfigureForm Me
    
    GetRecord Me, ws
    
End Sub

when done let me know & will post the module codes

Dave

 

[Ali M]

@EXCEL MAX I'm still confused !! can ignore

Not vCtrl.Name = "TextBox16" And _
         Not vCtrl.Name = "TextBox17" And _
         Not vCtrl.Name = "TextBox18"

as far as I know when use loop throught the textboxes I don't need indicating for each name textbox
just satisfy for this?

If TypeName(vCtrl) = "TextBox"

and I have question your code works for the listbox or just textboxes and lables ?

 

[Ali M]

@dmt32 just notes . you said

• insert 3 standard modules & name them as follows
• ConfigureForm_Code
• DisplayTextBoxes_Code
• GetRecord_Code

but why when call the modules should n't call the whole name as your code
I mean like this

ConfigureForm_Code Me
 GetRecord_Code Me, ws
DisplayTextBoxes_Code Me

 

[dmt32]

@dmt32 just notes . you said

but why when call the modules should n't call the whole name as your code
I mean like this

ConfigureForm_Code Me
 GetRecord_Code Me, ws
DisplayTextBoxes_Code Me

You call the procedure name - Word "Code" at end is just a module naming convention & just indicates its code for that procedure.

Have you replace code with code in #post 34?

Dave

 

[Ali M]

Have you replace code with code in #post 34?

yes

 

[dmt32]

yes

Sorry to mess about but I omitted a variable

Public BoxSpace     As Double, BoxHeight As Double, BoxWidth As Double
Public LineCount    As Long, TextBoxCount As Long
Dim ws              As Worksheet

Please update

Dave

 

[Ali M]

all of things have updated .