VBA перестает работать после фильтрации данных, но без сообщения об ошибке - PullRequest
Новая
       21

VBA перестает работать после фильтрации данных, но без сообщения об ошибке

0 голосов
/ 31 мая 2018

Я пытаюсь отфильтровать данные с помощью расширенного фильтра, а затем скопировать видимые ячейки на отдельный лист рабочей книги: 

Dim S_ALR, OUTPUTS, INPUTS As Worksheet
Set S_ALR = ActiveWorkbook.Sheets("S_ALR_87012357")
Set OUTPUTS = ActiveWorkbook.Worksheets("OUTPUTS")

'clear data
Worksheets("OUTPUTS").Range("A:AK").ClearContents

'copy Outputs from S_ALR_87012357 to OUTPUTS tab

S_ALR.Range("A:AK").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Sheets("FILTERS").Range("A3:B9"), Unique:=False
S_ALR.Range("A:AK").SpecialCells(xlCellTypeVisible).Copy
OUTPUTS.Cells(1, 1).PasteSpecial

Однако после фильтрации данных макрос останавливается без ошибоксообщение.

Я закомментировал фильтр и запустил макрос, а остальная часть кода работает правильно.Я также попытался включить копию / прошлое в сам фильтр, поместив CopyToRange в фильтр, но это также не сработало.

Я довольно новичок в этом, так что это может быть что-то простое, что япропал, но я абсолютно в тупик!Пожалуйста, помогите.

...