Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Разница между датами с вычетом выходных, праздничных и нерабочих часов Power Query
 
Гуру, добрый день!
Молю о помощи повторно!!))
Есть данные о поступлении заявки и дальнейших ее этапах
Регистрация/В работу/Закрытие
Все данные указаны в datetime, необходимо получить разницу между этими датами, но загвоздка в том, что надо вычесть время вне смены, выходные и праздничные дни которые могут попадать в интервал перехода заявки из статуса в статус. Так же есть нюанс того, что заявка может поступить и быть закрыта в выходной или праздник, или вне смены, что должно быть по умолчанию 0, так как в нерабочее время.
Несколько дней безуспешно потрачены на выкручивание в разные стороны этого файла.
и кажется, силы покидают меня.
VBA. Удалить строки, содержащие определенный критерий
 
Добрый день, мастера!
Бьюсь не первый час((
не получается удалить строки, и каждый раз разные ошибки(((
то Метод Delete из класса Range завершен неверно, то другое

условие: в умной таблице в столбце j прописана формула массива, при результате x необходимо удалить все строки с этим показателем
прошу о помощи!!
файл не получилось загрузить((
Номер   обращенияДата обращенияКонтрольная дата   исполненияКол-во дней до   ответа на обращение Группа№ закладнойЗаемщикиТекущий статусФормула 1Формула 2
1004504.02.202125.02.202120201230987Иванов112309871y
1004629.12.202026.01.202154401230988Петров212309882y
1004729.01.202118.02.202131401230989Сидоров312309893y
1004829.01.202118.02.202131401230990Попов412309904y
1004918.01.202105.02.202144401230991Дедов512309915y
1005004.02.202125.02.202155401230992Козлов612309926y
1005104.02.202125.02.202119201230993Баранов712309937y
1005229.12.202026.01.202154401230994Федоров812309948y
1005104.02.202125.02.202118201230993Баранов712309937x
1005229.12.202026.01.202153401230994Федоров812309948x




Код
    ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=10, Criteria1:= _
        "x"
        ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Select
        Selection.EntireRow.Delete Shift:=xlUp
        
        
End Sub
Автофильтр VBA - нет значений указанных по фильтру
 
Добрый день!
Прошу о помощи!!!)))

есть авто фильтр в коде, и могут быть случае когда не будет данных по условиям автофильтра, как бы ему сказать, что если нет значения иди вот сюда.
ничего толкового так и не получилось за весь день((
код автофильтра совсем не замудренный
Код
ActiveSheet.Range("h2").AutoFilter Field:=8, Criteria1:= _
        "=1, Operator:=xlOr, Criteria2:= _
        "=2"
Страницы: 1
Наверх