Excel VBA - Date Filter AND blanks

[wongjoh1]

I would like to filter data between two dates AND blank. I could do the part for filter data between two dates, but I have trouble with filtering the blank as well. My code is as follows, please help,

Sub Filter()

Dim lngStart As Long, lngEnd As Long

Sheets(“Sheet1”).Select
lngStart = Range(“A2”).Value ‘this is the start date
lngEnd = Range(“B2”).Value + 1 ‘this is the end date

Sheets(“Sheet2”).Select
Selection.AutoFilter Field:=1, _
Criteria1:=“>=” & lngStart, _
Operator:=xlAnd, _
Criteria2:=“<=” & lngEnd

End Sub

 

[DanteAmor]

Try this

[B]Sub Filter_Dates_and_Blanks()[/B]
  Dim sh2 As Worksheet, dict As Object, c As Range
  Set sh2 = Sheets("[COLOR=#0000ff]Sheet2[/COLOR]")
  Set dict = CreateObject("Scripting.Dictionary")
  For Each c In sh2.Range("A2", sh2.Range("A" & Rows.Count).End(xlUp))
    If c >= Sheets("[COLOR=#0000ff]Sheet1[/COLOR]").Range("A2") And c <= Sheets("[COLOR=#0000ff]Sheet1[/COLOR]").Range("B2") Then
      dict.Item(c.Row & "A") = 2
      dict.Item(c.Row & "B") = Format(c.Value, "mm/dd/yyyy")
    End If
  Next
[COLOR=#008000]  sh2.Range("A1").AutoFilter 1, Array("="), xlFilterValues, dict.items[/COLOR]
End Sub