Macro Filter Selected Cell value

[Exn]

Hello!

I'm new to this forum & not so great at coding Excel Macros!

I'm trying to creat a macro that performs the function Filter by selected Cells Value.

I use the record macro function & ive tried doing this by changing relative references, but i get the same result.

This is my code:

ActiveCell.Offset(3, 0).Range("A1").Select
ActiveSheet.Range("$G$4:$G$12").AutoFilter Field:=1, Criteria1:="4"

I want it so that the filtering criteria depends on which Box I am highlighting at the time. The code writes this as the example that i used when recording it. ( 4 )

Any ideas how to solve this?

Thanks in advance

 

[njimack]

Welcome to the board.

Maybe this:
ActiveSheet.Range("$G$4:$G$12").AutoFilter Field:=1, Criteria1:=ActiveCell.Value

 

[Exn]

Thanks Just what I was looking for. I knew it would be something straight forward.

 

[Exn]

In addition, this code just sets it to the specific column I was in. Can this be done on any coumn that I am in? I've been playing around with Active Column but can't quite get it to work...

 

[njimack]

What range of cells do you have autofilter applied to?

 

[Exn]

For my original coding it just sets it to the one column i made a test dummy for.( G:G in my coding)

Essentially, what I am trying to do, is to create a macro that replicates "the filter by cell value" function (Basically so I can create a shortcut key to it as I use it so often).

When recording the macro, vba just sets it to the column & value that I recorded it with. So when I try to filter a different column & value it still filters on the original values.

You solved the first problem of the values(Thank you!!), but how would this be coded to filter a set of data with numerous coulmns, so I can use this in other columns and other reports with different amounts of columns?

 

[njimack]

Sub Autofilter_by_selection()

Range(ActiveCell.CurrentRegion.Address).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
 
End Sub

 

[Exn]

Excellent!!

 

[dennis_uk]

May be an old post, but just helped me out - thank you @njimack

Sub Autofilter_by_selection()

Range(ActiveCell.CurrentRegion.Address).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
 
End Sub

 

[AbuFawaz]

Thank you bro