If Condition Before Filtering

[Flani]

So I am stuck with this code. What I want to happen is when rg is non blank, the macro will filter sheet imagine column b starting in row 12. down (number of rows varies everyday) and saves a screenshot (i have a macro code for this already). code below needs adjustments.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False


Set rg = Sheets("MACRO").Range("F14")
Range("a12").AutoFilter
If rg.Value <> "" Then Range("A12").AutoFilter Field:=2, Criteria1:=rg.Value
End Sub

 

[s.ridd]

your code is failing because the range "A12" doesn't have a second column... you could try (although untested)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False




Set rg = Sheets("MACRO").Range("F14")
Range("a12").AutoFilter
If rg.Value <> "" Then Range("A12:B12").AutoFilter Field:=2, Criteria1:=rg.Value
'or If rg.Value <> "" Then Range("A12").AutoFilter Field:=1, Criteria1:=rg.Value
End Sub