vba auto filter problem

[aiwnjoo]

hi,

If i have some cells copied on the clipboard then move to another sheet that has this code embedded;

Private Sub Worksheet_Activate()
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = False
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=14, Criteria1:="="
Selection.AutoFilter Field:=8, Criteria1:=">=1", Operator:=xlAnd
Application.ScreenUpdating = True
End Sub

It forgets the copied data from the previous sheet, any workaround for this?

 

[Andrew Poulsom]

AutoFilter clears the clipboard. You could try running your code only if Application.CutCopyMode is False.

 

[aiwnjoo]

thx dude but adding an event for;

Application.CutCopyMode = False before the code starts crashes it out for a while then just applies the filter anyway.

Im guessing im not doing it right;

Private Sub Worksheet_Activate()
 
Application.CutCopyMode = False

ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = False
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=14, Criteria1:="="
Selection.AutoFilter Field:=8, Criteria1:=">=1", Operator:=xlAnd
Application.ScreenUpdating = True
End Sub

 

[Andrew Poulsom]

More like:

Private Sub Worksheet_Activate()
    If Application.CutCopyMode = False Then
        ActiveSheet.AutoFilterMode = False
        Application.ScreenUpdating = False
        Rows("1:1").Select
        Selection.AutoFilter
        Selection.AutoFilter Field:=14, Criteria1:="="
        Selection.AutoFilter Field:=8, Criteria1:=">=1", Operator:=xlAnd
        Application.ScreenUpdating = True
    End If
End Sub

 

[aiwnjoo]

ty works fine.