Macro to filter dates and tdelete those rows

[howard]

I have dates in Col F on sheet2


I have manually filtered the dates prior to 01/10/2017 (dd/mm/yyyy) and then manually deleted the rows


I would like to automate this process so that a message will appear "select date you wish to filter prior to this date"


once this is inputted , Col F must be filtered and the date filter must filter all the dates prior to the date inputted into the message box
for eg all dates prior to 01/10/2017 and then delete these rows




Your assistance in this regard is most appreciated

 

[mse330]

Hey howard,

Try the below code

Sub DeleteDates()
Dim dDate As Date
dDate = InputBox("Please enter the required date in proper format")
With ActiveSheet.UsedRange
    .AutoFilter Field:=6, Criteria1:="<" & dDate
    .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter
End With
End Sub

 

[howard]

Thanks for your help.

I have tested your code and it is deleting some of the rows for the date specified

The code must filter the dates prior to the date selected and then delete those rows. For e.g. if I select 01/10/2017, then for eg 30/09/2017, 07/06/2017, 04/05/2016 etc to be filtered and then those rows deleted

In my example , I selected 01/10/2017 (format dd/mm/yyyy), but not all the dates prior to 01/10/2017 is being filtered and deleted


I have highlighted those dates in Yellow that have not being filtered and those rows deleted


I have also shown what the data must look like after filtering and the rows deleted on sheet "Manual Filter and Del"

Kindly test & amend your code


See link for sample data below



https://app.box.com/s/ufyh84xwp15ciloihnfndg52rhfvrrqt

 

[mse330]

Hi howard,

Please add the bold text in the below line & try again

.AutoFilter Field:=8, Criteria1:="<" & CLng(dDate)

 

[howard]

thanks for he help, much appreciated


what is the significance of & CLng(dDate) ?

 

[mse330]

You are welcome

It converts the dDate format to long format

 

[howard]

Thanks for the explanation