Excel VBA Търсене период обхват и изтриване на стари записи - Excel, VBA, Excel-VBA

Имам нужда от макрос, който ще търси цяла колона от дати на приключване и ще изтрие съответния ред от данни, ако са минали 90 дни от датата на приключване. Ето какво имам досега.

Dim RowDate
Dim CurrentDate
Dim Interval
Dim CurrentAddress
Dim ValueCellRange As Range
Dim ValueCell As Range

"Interval set to an appropriate number of days
Interval = 90
CurrentDate = Now()

"Identify starting row for sweep
Set ValueCellRange = Range("G2:G100")

"Set loop to execute until empty cell is reached

For Each ValueCell In ValueCellRange
If CurrentDate - ValueCell.Value >= Interval Then
ValueCell.EntireRow.ClearContents
End If
Next ValueCell

"Clear variable value for next initialization
Set ValueCell = Nothing

Отговори:

Ако просто искате да пропуснете бланките, добавете още един оператор в цикъла

редактиране добавен цикъл през работни листове

Dim ws as Worksheet
For Each ws in Worksheets
Set ValueCellRange = ws.Range("G2:G100")
For Each ValueCell In ValueCellRange
If ValueCell.Value <> "" Then
If CurrentDate - ValueCell.Value >= Interval Then
ValueCell.EntireRow.ClearContents
End If
End If
Next ValueCell
Next ws