Страницы: 1
RSS
Макрос автофильтр, выбор следующего рабочего дня
 
Добрый день!
помогите, пожалуйста, усовершенствовать макрос.
Есть строка кода:

ActiveSheet.Range("$A$2:$H$558").AutoFilter Field:=5, Criteria1:= _
xlFilterTomorrow, Operator:=xlFilterDynamic

которая с помощью автофильтра выбирает строки с завтрашними датами.
а можно сделать так, чтобы выбирался следующий РАБОЧИЙ день?
т.е. если сегодня пятница- то понедельник, а не суббота.
праздники можно игнорировать.
Спасибо!
 
Добрый день
Можно так
Код
    If Weekday(Now, vbMonday) = 5 Then
        ActiveSheet.Range("$A$2:$H$558").AutoFilter Field:=5, Criteria1:=Format(Now + 3, "=dd.mm.yyyy"), Operator:=xlFilterValues
    Else
        ActiveSheet.Range("$A$2:$H$558").AutoFilter Field:=5, Criteria1:=xlFilterTomorrow, Operator:=xlFilterDynamic 
    End If

Успехов.
 
anvg, Ваши строки надо вставить вместо моих?
почему то не выходит желаемый результат.
 
Цитата
Ваши строки надо вставить вместо моих?
Да.
Цитата
почему то не выходит желаемый результат.
А что получается? И, в таком случае, выложите пример ваших данных, поскольку на тестовом листе у меня в Excel 2010 макрос работает.
 
Макрос-SheetConsolidation( кнопка загрузить данные).
И Excel у меня 2007, если это имеет значение.
 
Попробуйте
 
а, поняла.
но сейчас почему то стали удаляться данные с другими датами.
можно сделать чтобы все строки оставались, только фильтровались по нужной дате?
 
Цитата
но сейчас почему то стали удаляться данные с другими датами.
Дарья, а почему вы так решили? Я в вашем коде добавил только фильтрацию. Очистите фильтр и увидите все ваши данные. Ведь по команде должны показываться данные только на 24.03.2014? Или что вы подразумеваете под удалением?
 
сохранила в файл то что у меня получается в результате работы макроса.
остаются только строки с датой 24марта.
 
ой, сорри. это я пробовала и сама фильтром на листах 1 и 2 данные отфильтровала.
 
Цитата
ой, сорри. это я пробовала
:D Бывает. Успехов!
 
но всё равно не выходит. прикрепляю файл с результатом работы макроса.
не выводит строки с датами 24марта.
 
Чудно. Попробовал у коллеги на 2007. Не работает. В такой версии сработало. Честно говоря, разницы не вижу. Тогда пробуйте так.
 
а сейчас всё замечательно!
спасибо огромное! :)
Страницы: 1
Наверх