title: Filtering for multiple criteria in different columns including string and date in VBA
body: <p>I have two columns namely "Status" and "Finish Date". I want to filter for "OPEN" and "CLOSED" in <strong>Status</strong> column first and then filter for "1/0/1900" in <strong>Finish Date</strong> column.</p>
  
  <p>For this I wrote the following code:</p>
  
  <pre><code>Dim LR As Long
  LR = Range("A" &amp; Rows.Count).End(xlUp).Row
  With ActiveSheet
  
          .AutoFilterMode = False
          .Range("A1:A" &amp; LR).AutoFilter Field:=1, Criteria1:=Array( _
              "OPEN", "CLOSED"), Operator:=xlFilterValues
          .Range("A1:A" &amp; LR).AutoFilter Field:=2, Criteria1:=Array(0, "1/0/1900"), Operator:= _
              xlFilterValues
  
  End With
  </code></pre>
  
  <p>But this did not work. At first I get the Error (AutoFilter Method of Range Class Failed 1004). Then by mistake I removed the 1st line in the With statement(.AutoFilterMode = False) and I did not get any error. However the filter returned no results at all. </p>
  
  <p>I thought that there is something wrong with my date filter since the Status column filter was working earlier. So I researched and wrote the code below for the date filter alone but again it does not work.</p>
  
  <pre><code>Dim dDate As Date
  Dim strDate As String
  Dim lDate As Long, LR As Long
  LR = Range("A" &amp; Rows.Count).End(xlUp).Row
  
      dDate = DateSerial(1900, 1, 0)
      lDate = dDate
  
      ActiveSheet.Range("A1:A" &amp; LR).AutoFilter Field:=2, Criteria1:="&gt;=" &amp; lDate, _
                       Operator:=xlAnd, Criteria2:="&lt;" &amp; lDate + 1
  </code></pre>
  
  <p>Please help in getting these two filters to work. </p>
  
  <p>Thanks in advance.</p>