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

 

[Jeffrey Mahoney]

Please try this:

Code that needs to be put in a Standard module. UFLoaded is used to test if the form is loaded

Public UFLoaded As Boolean

Sub ToggleUserForm()
  
  If UFLoaded = True Then
    Unload UserForm1
    UFLoaded = False
  Else
    UserForm1.Show
  End If
  
End Sub

Code for the button. This needs to be placed on the sheet module where the button resides

Private Sub CommandButton1_Click()
  ToggleUserForm
End Sub

Two Subs that need to be put in the Form level. The first SUB tests if the form is closed using the X at the top right of the form. If you use any buttons on the form to close it, you'll need to add 'UFLoaded = False' to that button code. You may already have the UserForm_Initialize SUB, so just add that line 'UFLoaded = True'.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
      UFLoaded = False
      
        ' Your codes
        ' Tip: If you want to prevent closing UserForm by Close (×) button in the right-top corner of the UserForm, just uncomment the following line:
        ' Cancel = True
    End If
End Sub


Private Sub UserForm_Initialize()
  
  UFLoaded = True
  
  'ListBox1.List = Sheets("Sheet1").Range("D2:G31").Value
  
End Sub

 

[SantanaKRE8s]

I will only be using the button I created and that I show on the image I shared, so the third code I dont need correct?

 

[Jeffrey Mahoney]

You could get rid of the third code if you alter this code

Sub ToggleUserForm()

If UFLoaded = True Then
Unload UserForm1
UFLoaded = False
Else
UFLoaded = True
UserForm1.Show
End If

End Sub

 

[SantanaKRE8s]

None of my buttons work now

 

[SantanaKRE8s]

Remvoed all the codes and just added the two first ones, the userform opens but not closing using the same object to ope it

 

[Micron]

Not quite enough info for me to be more explicit, but my approach mibht be like the following.

In the beginning, your sheet button (or is that a userform?) caption seems to be QUIKview. So its click event would be something like

If myButton.Caption = "QUIKview" Then
   'open some form
   myButton.Caption = "Close QUIKview"
Else
   Unload SomeForm
End If

 

[johnnyL]

The @Micron approach is the approach I was going to suggest. Each time the button is clicked, change the caption of the button, run the code to either open or close the form.

 

[jolivanes]

Try

Sub AAAAA()
    If UserForm1.Visible = True Then Unload UserForm1 Else UserForm1.Show vbModeless
End Sub

 

[SantanaKRE8s]

So I removed everything again, Micron because your option seems simple. Below images LEFT to RIGHT First image is my object (button) that I am using to open my userform called "QUIKview" which is the second image. Ant the thrid image is of my modules and Userform. I want the same button to open and close the userform.