Добрый день! Честно признаюсь (это и видно), я только начинаю разбираться в макросах, но работающий код уже необходим. Поэтому прошу вашей помощи. Следующий код при запуске выдает 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
|