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

[daduffster52]

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]

Try this

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