Макрос удаления старых строк

Пользователь

Сообщений: 542 Регистрация: 02.07.2014

25.04.2019 10:20:54

Подскажите, пожалуйста, макрос, который удалял бы все строки из отчета, за исключением сегодняшних. Ниже файл с двумя вкладками ДО и ПОСЛЕ работы макроса. Заранее спасибо за Ваше решение.

Прикрепленные файлы

Лист Microsoft Excel.xlsx (11.83 КБ)

Дорожный

Пользователь

Сообщений: 78 Регистрация: 17.03.2017

25.04.2019 11:26:02

Код

Sub УдалитьСтроки()
Сегодня = CDate(Trim(Left(Now, InStr(Now, " "))))
m = ActiveSheet.UsedRange.Rows.Count
For i = 1 To m
If Cells(i, 4) < Сегодня And IsEmpty(Cells(i, 4)) = False Then Rows(i).Delete: m = m - 1: i = 0
Next i
End Sub

Кнопочке, которой присвоите выполнение данного макроса не забудьте во свойствах переключить на "не перемещать и не изменять размер".

Евгений И. Пользователь Сообщений: 542 Регистрация: 02.07.2014	#3 25.04.2019 11:43:57 Большое спасибо Вам за решение, то, что нужно!)