Actions of Macro depend on the value of a cell

[frankday]

I am working with the following macros. I want to change the action of the macro depending on the value of a cell. If the cell = 1 then it should execute the second macro. If the cell = 2 then the macro should execute the first macro. Can anyone help.

Thanks in advance

Sub Callapes()
'
' Callapes Macro
'


'
Rows("5:11").Select
Selection.EntireRow.Hidden = True
Range("e12").Select
ActiveCell.FormulaR1C1 = "1"
Range("C12").Select

End Sub
Sub Expand()
'
' Expand Macro
'


'
Rows("4:12").Select
Selection.EntireRow.Hidden = False
Range("e12").Select
ActiveCell.FormulaR1C1 = "0"
Range("C12").Select
End Sub

 

[footoo]

depending on the value of a cell.

What cell?
Do you want to run the macros automatically each time the cell is changed to either 1 or 2 ?

 

[frankday]

What cell?
Do you want to run the macros automatically each time the cell is changed to either 1 or 2 ?

I want to connect this macro to a button. The goal is to click a button linked to a macro and have it hide select rows. Then click the same button again and unhide the same rows. I know how to assign a macro to a button.

Does that help?

 

[footoo]

But what cell needs be checked to see if it contains 1 or 2 ?

Alternatively, if you just want to toggle between Callapes and Expand :

Sub Toggle()
If Rows("5:11").EntireRow.Hidden = True Then
    Call Expand
Else
    Call Callapes
End If
End Sub

Sub Callapes()
Rows("5:11").EntireRow.Hidden = True
Range("e12") = 1
Range("C12").Select
End Sub

Sub Expand()
Rows("5:11").EntireRow.Hidden = False
Range("e12") = 0
Range("C12").Select
End Sub

 

[frankday]

That worked great. Thanks for the help.

But what cell needs be checked to see if it contains 1 or 2 ?

Alternatively, if you just want to toggle between Callapes and Expand :

Sub Toggle()
If Rows("5:11").EntireRow.Hidden = True Then
    Call Expand
Else
    Call Callapes
End If
End Sub

Sub Callapes()
Rows("5:11").EntireRow.Hidden = True
Range("e12") = 1
Range("C12").Select
End Sub

Sub Expand()
Rows("5:11").EntireRow.Hidden = False
Range("e12") = 0
Range("C12").Select
End Sub