if user filter then

[Vanda_a]

Dear all

May I know why my code doenst work. Any thing that I mislead?
My data is in filtermode but I havent filter anything yet. I want if i filter something then A1 = A

Private Sub Worksheet_Change(ByVal target As Range)

If ActiveSheet.AutoFilter Field:=1, Criteria1:="<>" Then

Range("A") = A

End If

End Sub

Thank you for your help

 

[CodeNinja]

Hi Vanda_3,
I think the problem with your code lies in Range("A") = A... First, you cant select range("A")... you could select range ("A:A") which would select the column A... Second you are setting it to A which is an unknown variable... maybe you want range("A1") = "A" or even range("A:A") = "A" or you want to set a variable for A and set the range to that variable....

Also of note: If you have your filter on, but nothing on the sheet is filtered, activesheet.filtermode will return false...

Hope this helps,

CN

 

[Vanda_a]

mistake on writing.

i meant Range("A1")

Although i change to below one still not work

Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveSheet.FilterMode = True Then

Range("A1") = "A"

End If

End Sub

I have tried record macro to see what that the code is. I got this

ActiveSheet.AutoFilter Field:=1, Criteria1:="<>

but i cant get it work correctly

If ActiveSheet.AutoFilter Field:=1, Criteria1:="<> then

 

[Vanda_a]

I have my filter on but i dont filter anything yet. and when i filter something, i want the code is trigered