Reference Command Button from User Form when it's clicked

[jewkes6000]

I have a macro which calls a User Form to give the user the option to select from a list (from a listbox). On this UserForm, there is also a button to click ("CommandButton_NoChange") if they don't want to select from the listbox. After the user selects something from the user form, it then comes back to my original macro. If they choose something from the listbox, I assign it to "Location". This works fine. But if they don't choose from the listbox and click the button ("CommandButton_NoChange"), I can't seem to run an if statement to determine if the button was clicked or not. In the example below, I tried testing if the button value was "True", but even if I click the button, the button value remains false making this if statement worthless. How can I determine if the button was clicked in the UserForm and then use that information to continue my code?

Here is my code:

    UserForm_Location_RiskItem.Repaint
    UserForm_Location_RiskItem.Show
    Location = UserForm_Location_RiskItem.ListBox_PrjList.Value
 
    If UserForm_Location_RiskItem.CommandButton_NoChange = True Then
        Range("Y39").Select
    End If

I have also tried setting the Command Button value to true within the UserForm code, but this doesn't work either.

Private Sub CommandButton_NoChange_Click()
    UserForm_Location_RiskItem.Hide
    UserForm_Location_RiskItem.CommandButton_NoChange = True
    
    
End Sub

 

[mackc557]

Create a global Boolean variable, set to false by default. Have it made true by the button. Create the if statement that looks for that true value, and as part of the Then section set the value back to false.
Just an idea.

 

[rlv01]

I often use the Userform's .Tag property for things like this.

    With UserForm_Location_RiskItem
        .Tag = "False"
        .Repaint
        .Show
        Location = .ListBox_PrjList.Value
        
        If .Tag = "True" Then
            Range("Y39").Select
        End If
    End With

Private Sub CommandButton_NoChange_Click()
    Me.Tag = "True"
    UserForm_Location_RiskItem.Hide
End Sub

 

[mackc557]

I often use the Userform's .Tag property for things like this.

    With UserForm_Location_RiskItem
        .Tag = "False"
        .Repaint
        .Show
        Location = .ListBox_PrjList.Value
       
        If .Tag = "True" Then
            Range("Y39").Select
        End If
    End With

Private Sub CommandButton_NoChange_Click()
    Me.Tag = "True"
    UserForm_Location_RiskItem.Hide
End Sub

This is a really smart idea (assuming you aren't using the tag for anything else)! I'm excited to use this idea myself.

 

[jewkes6000]

@rlv01 - Using the Tag function seems like the way to go. I was using this as a workaround, but it seems it's the best way for a situation like this. Thank you!