Advanced Filter not filtering

[Kevin0427]

It is probably a dumb mistake but I am not seeing it. All this code runs all the way through but does not filter the results.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DataRange As Range
Dim FilterRange As Range
Dim DestinationRange As Range
Set DataRange = DataSheet.Range("A1").CurrentRegion
Set FilterRange = DinD.Range("C4:C6")
Set DestinationRange = DinD.Range("C37").CurrentRegion
If Target.Address = "$C$5" Then
    
    Application.EnableEvents = False
    DestinationRange.Offset(1).ClearContents
    DataRange.AdvancedFilter xlFilterCopy, FilterRange, DestinationRange
    Application.EnableEvents = True
    
End If
End Sub

 

[Fluff]

Not sure why it's not working for you.
As a matter of interest are your dates hard values, or the result of formulae?

 

[Kevin0427]

Not sure why it's not working for you.
As a matter of interest are your dates hard values, or the result of formulae?

user input hard values

 

[Kevin0427]

It is my understanding that a row are "and" criteria and columns are "or" criteria.

I think the second value being null negates the first value because the filter heading is the same. Which is why I was trying two rows but that did not work either.

 

[Fluff]

In that case I'm at aloss.

 

[Kevin0427]

In that case I'm at aloss.

If I have stumped the Fluff the solution is hopeless!!! Thanks a million.

 

[Fluff]

Sorry I couldn't have been more help & thanks for the feedback

 

[Kevin0427]

If anyone is reading this later here is the final code that hardcodes in the missing dates and makes it work. Hope it helps someone else.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DataRange As Range
Dim FilterRange As Range
Dim DestinationRange As Range
Set DataRange = DataSheet.Range("A1").CurrentRegion
Set FilterRange = Range("J6").CurrentRegion
Set DestinationRange = Range("C37").CurrentRegion
If Target.Address = "$E$6" Or Target.Address = "$F$6" Then
    
    If IsDate(DinD.Range("E6")) Then
        DinD.Range("J6") = ">=" & DinD.Range("E6")
    Else
        DinD.Range("J6") = ">=1/1/1900"
    End If
    
    If IsDate(DinD.Range("F6")) Then
        DinD.Range("K6") = "<=" & DinD.Range("F6")
    Else
        DinD.Range("K6") = "<=" & Date
    End If
    
    Application.EnableEvents = False
    DestinationRange.Offset(1).ClearContents
    DataRange.AdvancedFilter xlFilterCopy, FilterRange, Range("C37").CurrentRegion
    Application.EnableEvents = True
    
End If
End Sub