How to use Macros to Filter less than or equal to Cell Values

daduffster52

New Member
Joined
Oct 3, 2019
Messages
1
Hello,

I want this Macro to filter off less than or equal to, not just equal to. Also, if one of the cells is blank (B2 or C2) I would like it to show 'all' for that selection, rather than 'none.'

Can anybody help me?

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Target.Cells(1, 1)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Range("A4:J500").CurrentRegion.AutoFilter field:=9, Criteria1:="<=Target.Value"
End If
If Not Intersect(Target, Range("C2")) Is Nothing Then
Range("A4:J500").CurrentRegion.AutoFilter field:=10, Criteria1:="<=Target.Value"
End If
End Sub
 

Some videos you may like

Excel Facts

How to show all formulas in Excel?
Press Ctrl+` to show all formulas. Press it again to toggle back to numbers. The grave accent is often under the tilde on US keyboards.

DanteAmor

Well-known Member
Joined
Dec 3, 2018
Messages
10,210
Office Version
2007
Platform
Windows
Try this

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Target, Range("B2, C2")) Is Nothing Then
    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
    If Target = "" Then Exit Sub
    If Target.Address(0, 0) = "B2" Then
      Range("A4:J500").CurrentRegion.AutoFilter field:=9, Criteria1:="<=" & Target.Value
    Else
      Range("A4:J500").CurrentRegion.AutoFilter field:=10, Criteria1:="<=" & Target.Value
    End If
  End If
End Sub
 

Forum statistics

Threads
1,089,653
Messages
5,409,541
Members
403,270
Latest member
Man237

This Week's Hot Topics

Top