'Private Sub Worksheet..' macro disables cut copy paste between sheets

[ArialBlue]

Hi

I have a workbook with several worksheets of data. Most of the worksheets have tables with filters on them. I have used the below macro to ensure the filters on the tables are automatically updated if any changes are made on that sheet. However, doing so prevents me from copying and pasting data between the sheets that have the macro in it. Can you please tell me how I can correct this? I would like to be able to copy- paste data between the sheets.

I'm pretty new to VB so would really appreciate any help I can get. Thank you!

[Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("Table14").AutoFilter Field:=1, Criteria1:="<>0", _
Operator:=xlAnd
End Sub]

 

[Smallman]

Hi ArialBlue

Change your procedure from a selection change event to a change event. Also can tidy your coding up a bit.

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("Table14").AutoFilter 1, "<>0"
End Sub

Should do the trick.

Take care

Smallman

 

[ArialBlue]

Works perfectly. Thank you so much :D

 

[Smallman]

No worries Arial

Thanks for the feedback. Good luck with the rest of your project.

Smallman