Полезные макросы

1 1. Удалить строки в которых дата больше 7 дней от текущей

1. Удалить строки в которых дата больше 7 дней от текущей

Данный макрос будет работать только если в файле дата указана в таком же виде, как на вашем компьютере

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

'количество дней, больше которого удалять
i_DAYS = 7

'колонка в которой дата
i_COL = 11

'первая строка в которой начинаются товары
i_FIRST_ROW = 2

For i = Sheets(1).UsedRange.Rows.Count To i_FIRST_ROW Step -1
    s_date = Sheets(1).Cells(i, i_COL).Value
    if (Trim(s_date) <> "") And IsDate(s_date ) then
      i_val = DateDiff("d", Now(), s_date)
      If i_val > i_DAYS Then
          Sheets(1).Rows(i).Delete        
      End If
    End If
  Next i

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True