Worksheet Change Event when pasting multiple rows/columns

[helpexcel]

I'm trying to have code run when data is pasted into a worksheet. I have this code on the Sheet page, but it doesn't work if the data is pasted. I have to go specifically to only A1, and copy/paste. Thanks.



Private Sub Worksheet_Change(ByVal Target As Range)




If Target.Address = "$A$1" Then Call Marco1



End Sub

 

[vcoolio]

Hello Helpexcel,

Are you intending to use any cell in Column A only for data entry to activate the code?

Cheerio,
vcoolio.

 

[My Aswer Is This]

I would suggest using Double click and specify the range

In this example:

Enter the value One into Range("A1")

And when you double click on Range("A1") The Macro named One will Run

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Cancel = True
Application.Run Target.Value
End If
End Sub

 

[DanteAmor]

If you copy a single cell and paste it into A1, then Target.address = "A1", but if you paste several cells, then in target you have a range of cells. To know if any of those cells in the range of Target contains cell A1, it could be like this:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("$A$1")) Is Nothing Then
        Call marco1
    End If
End Sub

 

[helpexcel]

Thanks, but I'm not having any luck with those. Row 1 A:H will always be pasted over, so i figured i could just use A1 as the trigger.

 

[My Aswer Is This]

There are two scripts provided here that should do what you want.

So are you saying when you double click on A1 Nothing happens



Or if you make a manual change to A1 nothing happens

 

[helpexcel]

Sorry!!! They work, i had macros disabled...THANK YOU!!

 

[DanteAmor]

You're welcome.