Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Макрос фильтрации и копирования данных на другой лист. Ошибка 91
 
Добрый день! Честно признаюсь (это и видно), я только начинаю разбираться в макросах, но работающий код уже необходим. Поэтому прошу вашей помощи. Следующий код при запуске выдает 91 ошибку. Этим кодом я фильтрую строки на 1 листе и копирую на другой лист. Скажите, пожалуйста, что нужно исправить?

Код
Sub Macro2()
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=14, Criteria1:="есть"
    With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set autofiltrng = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    End With
    If autofiltrng Is Nothing Then
    MsgBox "Расхождений нет!"
    Else
    Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy
    Sheets("Расхождения").Select
    Cells(Range("C1000000").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End If
Sheets("Шаблон").ShowAllData
Worksheets("Расхождения").PivotTables("PivotTable1").PivotCache.Refresh
End Sub
Еслиошибка&Впр в power query, Возможность применения стандартных формул в PQ
 
пример
Еслиошибка&Впр в power query, Возможность применения стандартных формул в PQ
 
Напишу иначе: с помощью стандартного объединения таблиц/запросов у меня не получается
Еслиошибка&Впр в power query, Возможность применения стандартных формул в PQ
 
Коллеги, добрый день! Никак не могу найти информацию о возможностях применения следующей формулы =еслиошибка(впр1(...);впр2(...)) в PQ. Стандартное объединение таблиц здесь не подходит :( нет ли у кого-нибудь идей по этому поводу?
Страницы: 1
Наверх