Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub DeleteOldRecordsPostSavedCOGIs() 'PostSavedCOGIs 'Delete records older than 90 days. Sheets("PostSavedCOGIs").Select Rows("1:1").AutoFilter 'turn filter on ActiveSheet.Range("A:U").AutoFilter Field:=21, Criteria1:= _ "<" & DateAdd("d", -90, Date), Operator:=xlAnd LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row LastColumn = Cells(1, Cells.Columns.Count).End(xlToLeft).Column 'If the filter returns nothing. If Range(Range("A2"), Cells(LastRow, LastColumn)).SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then 'Save the header row if filter is blank. Range(Range("A2"), Cells(LastRow, LastColumn)).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp End If Rows("1:1").Select Range("B1").Activate Selection.AutoFilter 'turn filter off Range("A2").Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.