Macro Conditional execution

[beczer]

Hi everyone

Question. How to run a macro based on some conditions.

Example:

If A1 = X then (when I click run macro - button) use Macro 1
If A1 = Y then use Macro 2



Thanks

Tom

 

[beczer]

Re: Macro Conditional ececution

Button Name: 'button1'
Sheet1

Conditions that have to be met:

If Not Intersect(Target, Range("A1")) Is Nothing Then    Select Case Target.Value
    Case 2
        Call FirstMacro
    Case 4
        Call SecondMacro
    End Select
End If
End Sub

So as I said when I click on button then above code should be run, depending of value in A1

Thanks

 

[Macropod]

Re: Macro Conditional ececution

Conditions that have to be met:

If Not Intersect(Target, Range("A1")) Is Nothing Then    Select Case Target.Value
    Case 2
        Call FirstMacro
    Case 4
        Call SecondMacro
    End Select
End If
End Sub

So as I said when I click on button then above code should be run, depending of value in A1

That code, as it stands, is not appropriate for a macro run from a button. I can only guess what you actually want. Perhaps:

Private Sub Button1_Click()
If ActiveCell.Address = "$A$1" Then
    Select Case ActiveCell.Value
    Case 2
        Call FirstMacro
    Case 4
        Call SecondMacro
    Case Else
    End Select
End If
End Sub

The above code will only run the dependent macros from the button when A1 is the active cell on the sheet on which the button is located.

 

[beczer]

Re: Macro Conditional ececution

okay, so you totally don't understand me. Anyway thanks for you help.

Above solution is unuseful for me. I still need to find a way how to conditionally execute macro assigned to button.

Button Click -> action
If A1 = text1 -> run macro1
If A1 = text2 -> run macro2

 

[Macropod]

Re: Macro Conditional ececution

Since you've never said what the conditions are, how can you expect anyone to know what you want. All anyone has had to go on is the precious little information you posted, which has an explicit Select Case test with two specific conditions that have been coded for. The problem is of your making and its now in your hands to resolve. I'm done with this.