Filter not work

[elsg]

I have formula in F1
i try this code but dont work.

Sub notWorkFilter()    If Range("F1") > 0 Then
       Range("C16").AutoFilter Field:=1, Criteria1:=Range("D6").Value
      Else
      Exit Sub
    End If
End Sub

 

[elsg]

=Countif(...

 

[elsg]

anyone have any idea?

 

[elsg]

i can solved!!

Sub ImSolved()
    If ActiveSheet.FilterMode Then
       ActiveSheet.ShowAllData
       Else
       If Range("F1") > 0 Then
       Range("C16").AutoFilter Field:=1, Criteria1:=Range("D6").Value
         Else
         Exit Sub
       End If
    End If
End Sub

Thanks

 

[wigi]

What is the difference with the earlier codes?

 

[elsg]

sorry, wigi, i miss cell F1, then nothing hapening.

to now it's ok

thank you!!

 

[wigi]

I don't understand Swahili neither Chinese, but I think this topic is solved now.