autofilter funktion i celle

aner det ikke, men vi kan da forsøge
hvad skal den kunne ?

jeg ved ikke om det er noget i denne retning, du mener.

klik ind på den celle du vil filtrer efter og kør så makroen

Sub Filter()
 
    For Each c In Range(Selection.End(xlUp), Selection.End(xlDown))
  If c <> Selection Then c.EntireRow.Hidden = True
  Next

End Sub

du kan fjerne det igen, med

Public Sub FjernFilter()
Cells.EntireRow.Hidden = False
End Sub

Vi skal nok have slået skærmopdateringen fra, så den ikke flimrer.

Sub Filter()
    Application.ScreenUpdating = False
    For Each c In Range(Selection.End(xlUp), Selection.End(xlDown))
        If c <> Selection Then c.EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub

kabbak - hvordan implementere jeg sådan et subfilter? har aldrig prøvet det før

nåh jeg har  fundet ud af det og det er ikke lige det jeg mener med mit spm.

excellent - det er ihvertfald ikke et sub filter som vist. Det jeg ønsker er ligesom autofilter, - men ved at klikke på f.eks A1 i arket skal det virke lidt ligesom et link og derefter filtrere hele arket efter det der står i A1

lukker