Use same button that opens userform to close userform

[SantanaKRE8s]

I have a button that I created from an object and I use it to open my userform, is there a VBA code to use the same button that opens the userform to also close the userform, so that I dont have to add another button. I already have a lot of buttons want to avoid more. attached is an image

 

[jolivanes]

@SantanaKRE8s
I hope that when you are looking for a solution that you won't happen to see what you wrote (Cannot share code)
That does not help anybody that is looking for a solution.

@MY Answer Is This & Micron
Slight modification.

Sub My_Answer_Is_This()
Select Case True
    Case QuickView.Visible: Unload QuickView
    Case Else: QuickView.Show vbModeless
End Select
End Sub

 

[My Aswer Is This]

The code I used should have worked if you had modified the userform name
But maybe you did not think to do that:
Here is a script with the proper userform name.

Sub RectangleRoundedCorners1_Click()
Select Case QUIKview.Visible
    Case True: Unload QUIKview
    Case False: QUIKview.Show modeless
End Select
End Sub

 

[My Aswer Is This]

@SantanaKRE8s
I hope that when you are looking for a solution that you won't happen to see what you wrote (Cannot share code)
That does not help anybody that is looking for a solution.

@MY Answer Is This & Micron
Slight modification.

Sub My_Answer_Is_This()
Select Case True
    Case QuickView.Visible: Unload QuickView
    Case Else: QuickView.Show vbModeless
End Select
End Sub

Thanks for showing user this I just assumed user would understand to modify this:

 

[My Aswer Is This]

I guess I'm just lazy sometimes I never give my Userforms special names.
I just use the default name given.

 

[SantanaKRE8s]

@SantanaKRE8s
I hope that when you are looking for a solution that you won't happen to see what you wrote (Cannot share code)
That does not help anybody that is looking for a solution.

@MY Answer Is This & Micron
Slight modification.

Sub My_Answer_Is_This()
Select Case True
    Case QuickView.Visible: Unload QuickView
    Case Else: QuickView.Show vbModeless
End Select
End Sub

You are right the code is in this solution which is why I marked this one as the solution. Sorry backed up on a lot of work. So I will make the corrections as they are brought to my attention.

 

[jolivanes]

You've got about half a dozen or more working solutions suggested so you can have different one for each day of the week while still having some spares.
Good luck and thanks for letting us know that you have working solution to your problem.

 

[Micron]

Code from post 62 presents an error for me and highlights Case QuickView.Visible

 

[My Aswer Is This]

Code from post 62 presents an error for me and highlights Case QuickView.Visible

View attachment 96898

I test all my scripts and it worked for me.
It may be the way you are spelling QuickView.

 

[Micron]

Probably. I spelled it the way the form is named. Yours is not and I missed that. Sorry.
FWIW, it's "QUIKview" in the file.

 

[SantanaKRE8s]

Thanks for all the help from both, and the feedback that will help my next post to be easier to understand what Im trying to do and get a solution. Its working perfect now. And is shared with my team.