Auto Unfilter when go to another sheet VBA

[anna99]

HI All,

I'm currently have current code as below, if activecell is empty or active cells count > 1, then exit sub; however, TargetCells.Count > 1 not working well, still shows an error. also, how do i insert code for "auto unfilter current worksheet when i go to another worksheet on the same workbook". thank you

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Or Target.Cells.Count > 1 Then Exit Sub
Selection.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
End Sub

End Sub

 

[Fluff]

Use

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Or Target.CountLarge > 1 Then Exit Sub
Selection.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
End Sub

and to remove the filter put this in the same code window

Private Sub Worksheet_Deactivate()
   Me.AutoFilterMode = False
End Sub

 

[anna99]

Use

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Or Target.CountLarge > 1 Then Exit Sub
Selection.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
End Sub

and to remove the filter put this in the same code window

Private Sub Worksheet_Deactivate()
   Me.AutoFilterMode = False
End Sub

Hi Fluff,

thank you i tried your code, but it returns an error Type 13, type mismatch. is there anyway just filter based on active cells of column A, also If Target.Value = "" Or Target.CountLarge > 1 Then Exit Sub (this is currently not working)

 

[Fluff]

What exactly are you trying to do?

 

[anna99]

What exactly are you trying to do?

Hi Fluff,
Auto filter based on active cells of column A, so if you choose any value in column A, table will be filtered based on that value, if we choose any value NOT in column A then do nothing (Exit sub)

 

[Fluff]

It looks like you have already got an answer here Filter based on active cell vba code