Macro Is Not Working on Base of Cell Value

[killlarboy]

Hello All,

Kindly solve my code maybe i did something wrong i want to run a macro automatically on base of cell A2

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$A2:$A2")) And Value = "1" Then
Application.Run "Macro1"
End If
End Sub

 

[steve the fish]

Here would be a way:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range

Set rng = Intersect(Target, Range("A2"))
If Not rng Is Nothing Then
    If rng.Value = 1 Then
        Application.Run "Macro1"
    End If
End If

End Sub

 

[killlarboy]

Mate... appreciate your quick response, but if i want to use five macro using the same code then..?

 

[steve the fish]

What do you mean? Use the same thing on 5 sheets? Or just run 5 macros?

 

[killlarboy]

The below mentioned code is working only but if the cell is blank if want to trigger macro using the cell value

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A2")) Is Nothing Then
Application.Run "Macro1"
End If
End Sub

 

[steve the fish]

Sorry i dont understand?

 

[killlarboy]

The following code is working only.. if the cell A2 is blank
now my question is it is possible to run macro automatically if the cell A2 value is equal to 1 because the one you coded that is not working for me. only below mentioned code is working

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A2")) Is Nothing Then
Application.Run "Macro1"
End If
End Sub

 

[Joe4]

Is it equal to the number 1, or the text value 1?
You can usually tell by how the value is justified in the cell. If you have not explicitly selected a custom formatting justification selection, numbers are right-justified (by default), and text is left-justified (by default).

 

[killlarboy]

i am using this code for cell A2

=IF($D$2=1,1,"")

 

[Fluff]

Change sheet events don't get triggered by formulas.Try this mod on the code supplied by steve the fish'

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range

Set rng = Intersect(Target, Range("[COLOR=#ff0000]D[/COLOR]2"))
If Not rng Is Nothing Then
    If rng.Value = 1 Then
        Application.Run "Macro1"
    End If
End If

End Sub