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

 

[Micron]

Copy and paste the code for your button click event. The picture of your project objects (3rd one) is of no help, unfortunately.
Please paste your code between vba code tags (use vba button on posting toolbar to get code tags).

Or perhaps upload your file to a file sharing site.

 

[SantanaKRE8s]

Micron, can I send it to you via email?

 

[jolivanes]

Did the code from Post #9 not work?

 

[SantanaKRE8s]

No, most likely Im doing it wron, I want to share the file. I think it would be easier.

 

[jolivanes]

Did you change "UserForm1" in the code to the actual name you gave the userform?
It works like a dandy here.

 

[SantanaKRE8s]

Did you change "UserForm1" in the code to the actual name you gave the userform?
It works like a dandy here.

I think Im not adding the codes in the correct place, I difrent codes in the sheet in the Userform in the modules so Im not sure where to put it. Which is why I wanted to share my Workbook.

 

[jolivanes]

I changed the UserForm1 name to QuickView and it works like you want it to work.
Make sure to spell exactly as it should be. I spelled it different here then you do in your code.
Just goes in a regular module (Module1, Module2 or whatever regular module) where you always put your code to open a Userform

Sub This_Works_As_Advertised()
    If QuickView.Visible = True Then Unload QuickView Else QuickView.Show vbModeless
End Sub

 

[SantanaKRE8s]

I changed the UserForm1 name to QuickView and it works like you want it to work.
Make sure to spell exactly as it should be. I spelled it different here then you do in your code.
Just goes in a regular module (Module1, Module2 or whatever regular module) where you always put your code to open a Userform

Sub This_Works_As_Advertised()
    If QuickView.Visible = True Then Unload QuickView Else QuickView.Show vbModeless
End Sub

I added the code in Module 6 It still opens but not closing, Also in Module 5 image below I have this other code, Im not sure if it could be causing the problem.

 

[Micron]

The thing about the post 9 code is (I think) that the button caption remains the same. I think the other approach is more intuitive for a user in that the button implies one result will happen upon clicking, or it implies another because of the caption.

Micron, can I send it to you via email?

I guess so if you cannot post in a drop box or OneDrive instead. If you can send/receive private messages I can give you an address that I seldom use. PM me to let me know. The code I may write will become a post in this thread if you find it solves your issue.

 

[johnnyL]

You should probably provide the code that is in the 'QUIKview' form.