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
 

DanteAmor

Well-known Member
Joined
Dec 3, 2018
Messages
7,957
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,078,500
Messages
5,340,746
Members
399,393
Latest member
farlow

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top