One More Try To Run This Macro With A Formula

[rockyw]

I have this code..

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("E3")) Is Nothing Then Macro
    Sheets("Sheet3").Select
    Range("E3:E24").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("E3:E24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Can I make this run when a cell or some cells in a range of cells (sheet 3 E3:E24) gets filled by a formula? This works when I use a command button but I would like it to just run when the other cells get filled. I seen a lot of ideas but none work, can an IF formula make a macro run? Thanks

 

[rockyw]

As soon as I paste the report in sheet 1, I get this error, Compile Error: Syntax error. It then all stops.

[COLOR=black]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]
    If Not Application.Intersect(Target, Range("P:P,B:B") Is Nothing Then
        With ThisWorkbook
            .Sheets("Sheet2").Range("E3:E24")).Value = .Sheets("Sheet3").Range("E3:E24")).Value
        End With
    End If
End Sub

Do I remove any of the other formulas ot macro?

 

[mikerickson]

There are two extra parenthesis.

 

[rockyw]

There are two extra parenthesis.

I'm not sure what you mean by that? If you mean the condistional format code, it is what I was told to use and it does work.

 

[mikerickson]

The extra parenthesis are in the code that gives a compile error.

 

[rockyw]

So in the code you gave me it needs 2 parenthesis removed from someplace? Correct.

 

[Rick Rothstein]

So in the code you gave me it needs 2 parenthesis removed from someplace? Correct.

Here is the problematic code line with the extra parentheses hightlighted in red...

.Sheets("Sheet2").Range("E3:E24")[SIZE=3][COLOR=darkred][B])[/B][/COLOR][/SIZE].Value = .Sheets("Sheet3").Range("E3:E24")[SIZE=3][COLOR=darkred][B])[/B][/COLOR][/SIZE].Value

 

[rockyw]

Same error, the line highlighted lines now is..

IN YELLOW - Private Sub Worksheet_Change(ByVal Target As Range)
IN RED - If Not Application.Intersect(Target, Range("P:P,B:B") Is Nothing Then

 

[RoryA]

You are missing a parenthesis there:

If Not Application.Intersect(Target, Range("P:P,B:B")) Is Nothing Then

 

[rockyw]

IT WORKS! Thank you so much for the help. I took the other macro out, I see it works without that one. Some day I will learn this better, for now many thanks.