Snasui Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("b3") = 0 Or Range("b3") = "" Then Range("b3") = " "
   If Not Intersect(Target, Target.Worksheet.Range("b3")) Is Nothing Then
      Sheets("D_Invoice").Range("B3:F20").AdvancedFilter _
      Action:=xlFilterCopy, _
      CriteriaRange:=Sheets("Aging").Range("b2:b3"), _
      CopytoRange:=Sheets("Aging").Range("B8:E24")
   End If
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("b3") = 0 Or Range("b3") = "" Then Range("b3") = " "
   If Not Intersect(Target, Target.Worksheet.Range("b3")) Is Nothing Then
      Sheets("D_Invoice").Range("B3:F20").AdvancedFilter _
      Action:=xlFilterCopy, _
      CriteriaRange:=Sheets("Aging").Range("b2:b3"), _
      CopytoRange:=Sheets("Aging").Range("B8:E24")
   End If
      If Range("f3") = 0 Or Range("f3") = "" Then Range("f3") = " "
   If Not Intersect(Target, Target.Worksheet.Range("f3")) Is Nothing Then
      Sheet6.Range("B3:F20").AdvancedFilter _
      Action:=xlFilterCopy, _
      CriteriaRange:=Sheets("Aging").Range("f2:f3"), _
      CopytoRange:=Sheets("Aging").Range("F8:I24")
   End If
End Sub