Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro if criteria
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! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro if criteria
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 -- HTH Bob "puiuluipui" wrote in message ... 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! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro if criteria
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 -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "puiuluipui" wrote: 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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro criteria copy | Excel Discussion (Misc queries) | |||
check criteria and run macro | Excel Programming | |||
Msg Box to change Macro criteria? | Excel Programming | |||
running a macro only if criteria are met | Excel Programming | |||
Criteria Macro | Excel Programming |