show all data if the two cells are empty

[leap out]

hello
I need help about this code to filter between two dates I would add condition if the k2,l2 are empty then show all the data

Sub ff()
Dim StartDate As Date
Dim EndDate As Date
StartDate = Range("k2").Value
EndDate = Range("l2").Value
ActiveSheet.Range("A1:h1").AutoFilter Field:=1, Criteria1:=">=" & CDbl(StartDate), Operator:=xlAnd, Criteria2:="<=" & CDbl(EndDate)

End Sub

thanks in advance

 

[Fluff]

How about

Sub ff()
Dim StartDate As Date
Dim EndDate As Date
StartDate = Range("k2").Value
EndDate = Range("l2").Value
If StartDate = 0 Or EndDate = 0 Then
   ActiveSheet.Range("A1:h1").AutoFilter Field:=1
Else
   ActiveSheet.Range("A1:h1").AutoFilter Field:=1, Criteria1:=">=" & CDbl(StartDate), Operator:=xlAnd, Criteria2:="<=" & CDbl(EndDate)
End If
End Sub

 

[leap out]

great! just I have request can you do that by worksheet change event I want when write or clear in two cells show the data without button

 

[Fluff]

Maybe

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim StartDate As Date
   Dim EndDate As Date
   
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("K2:L2")) Is Nothing Then
      If Target.Value = "" Then
         ActiveSheet.Range("A1:h1").AutoFilter Field:=1
      Else
         StartDate = Range("k2").Value
         EndDate = Range("l2").Value
         ActiveSheet.Range("A1:h1").AutoFilter Field:=1, Criteria1:=">=" & CDbl(StartDate), Operator:=xlAnd, Criteria2:="<=" & CDbl(EndDate)
      End If
   End If
End Sub

 

[leap out]

fantastic ! thanks for every thing

 

[Fluff]

You're welcome & thanks for the feedback.