Filter sheet With cell value

[adamsm]

Hi,

How could I change the following code to filter the sheet by cell value instead of text box values?

Private Sub Change()
Dim FilterDate1 As Date
  Dim FilterDate2 As Date
  FilterDate1 = CDate(txtFrom.Value)
  FilterDate2 = CDate(txtTo.Value)
  With Worksheets("My")
    .Rows("16:16").AutoFilter
    With .Range("$C$16")
      .AutoFilter Field:=5, Criteria1:=">=" & Format(FilterDate1, .Range("$H$17").NumberFormat), _
        Operator:=xlAnd, Criteria2:="<=" & Format(FilterDate2, .Range("$H$17").NumberFormat)
    End With
  End With
End Sub

Any help on this would be kindly appreciated.

 

[Jonmo1]

Try changing these 2 lines

FilterDate1 = CDate(txtFrom.Value)
FilterDate2 = CDate(txtTo.Value)

to reflect the cell

FilterDate1 = CDate(Range("A1").Value)
FilterDate2 = CDate(Range("A2").Value)

 

[adamsm]

Thanks for the help. If the code is to be changed as a worksheet event code How should I do so?

Any help on this would be kindly appreciated.

Note: The sheet would get filtered when the user selects the date from the second cell range.

I hope I've made my question clear.

Thanks in advance.