Hello, pretty new to this so bear with me. I have a workbook in which I need to be able to filter the data based on the date(hide all within the last 3 months), then obtain the unique values in column E, print a list of those unique values, then delete the visible(older than 3 months) rows, and unhide the remaining data. This is the code I have been working on however it is not working other than printing. Can anyone help me out with this. I was unable to attach a sample workbook on this device so I am sharing a screenshot.
VBA Code:
' Terminate_Archived_90 Macro
' This macro deletes all samples older than 90 days from the Archived List and prints a report of all Trays that are to be dumped.
Dim sht As Worksheet
Dim dDate As Object
Set sht = Worksheets("Archived")
Set dDate = sht.Range("M1")
With sht.Range("A1:H" & Range("A" & Rows.Count).End(xlUp).Row)
.AutoFilter
.AutoFilter Field:=8, Criteria1:=">dDate"
lastrow = Cells(Rows.Count, "E").End(xlUp).Row
ActiveSheet.Range("E2:E" & lastrow).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=ActiveSheet.Range("O2"), _
Unique:=True
Range("O1:O" & [O65536].End(xlUp).Row).PrintOut
Range("A2:H" & [h65536].End(xlUp)).Delete shift:=xlUp
Range("A:H").EntireRow.Visible = True
End With
End Sub
