Two command buttons in same location in userform

[ipbr21054]

I have a userform which has 2 command buttons.
Depending on a value taken from a Textbox depends which command button is shown.

I would like to have both command buttons in the same place.

When I design my form it would mean one command button sits directly ontop the other.

But surely that isn’t the correct answer.
Any advice welcome.

As an example let’s call them commandbutton 1 & 2 should you supply a code etc.

Thanks.

 

[dreid1011]

When I design my form it would mean one command button sits directly ontop the other.

But surely that isn’t the correct answer.

Why wouldn't that be the correct answer? Have you tried designing it yet?

You could also just use one command button which would perform different operations depending on the textbox value.

 

[ipbr21054]

One reason why I thought it would be wrong is later down the road when I’m making adjustments etc I wouldn’t expect to have one under the other so what I see is what I assume is there.

How would you have one button but two operations like you mention.

 

[dreid1011]

Yes, that would be an issue forgetting the second button is present.

As for having two operations from a single button, something like this:

Sub CommandButton1_Click()
If TextBox1.Value = "A" Then
'code here to perform operation for value A
Else
'code here to perform operation for value B
End If
End Sub

The above is a very basic idea, which would likely need to be made a bit more robust to account for values not equal to A or B. But that will depend on more specific information from you.

 

[ipbr21054]

Ok I will look tomorrow thanks

 

[jolivanes]

Or change the text on the button.

 

[ipbr21054]

Just thinking wouldn’t be able to have text on the button if just changing code.

I’m sure somewhere I’ve seen some code where REPLACE was used. You could then have different text on the button.

 

[jolivanes]

Quick and dirty example.
Make a UserForm with a CommandButton and name this CommandButton "Cmd1" (without double quotation marks)
In Cell A1, enter a value of 6
Now open your UserForm and toggle the CommandButton.
Codes are as follows.

Private Sub Cmd1_Click()
    If Sheets("Sheet1").Range("A1").Value < 10 Then
        Sheets("Sheet1").Range("A1").Value = 15
            Me.Cmd1.Caption = "Lower"
                Else
            Sheets("Sheet1").Range("A1").Value = 5
        Me.Cmd1.Caption = "Higher"
    End If
End Sub

Private Sub UserForm_Initialize()
    If Sheets("Sheet1").Range("A1").Value < 10 Then Me.Cmd1.Caption = "Higher" Else Me.Cmd1.Caption = "Lower"
End Sub