Macro if criteria

  • Thread starter Thread starter puiuluipui
  • Start date Start date
P

puiuluipui

Hi, i have two macros. (macro 1 and macro 2)
I need macro 1 to run if in A1 is "JOHN", in B1 is "MARY" and if C1 is empty
; and macro 2 to run if in A1 is "JIM", in B1 is "CRIS" and in C1 is "BOB".
Can this be done?
Thanks!
 
Seems simple

If Range("A1").Value2 = "JOHN" And _
Range("B1").Value2 = "MARY" And _
Range("C1").Value2 = "" Then
Call Macro1
ElseRange("A1").Value2 = "JIM" And _
Range("B1").Value2 = "CRIS" And _
Range("C1").Value2 = "BOB" Then
Call Macro2
End If
 
Put this behind your sheet:
Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Cells.Count > 3 Then Exit Sub
If Application.Intersect(Range("A1"), Target) Is Nothing Then
If Not IsNumeric(Target.Value) And Range("A1").Value = "JIM" And
Range("B1").Value = "CHRIS" And Range("C1").Value = "BOB" Then
Call Macro2
End If

If Not IsNumeric(Target.Value) And Range("A1").Value = "JOHN"
And Range("B1").Value = "MARY" And Range("C1").Value = "" Then
Call Macro1
End If

End If
End Sub


Put this in a Module:
Sub Macro1()
'Display MessageBox
Answer = MsgBox("Macro1")

End Sub

Sub Macro2()
'Display MessageBox
Answer = MsgBox("Macro2")

End Sub
 
Back
Top