Выберите отфильтрованные значения и примените выбор к другому фильтру во второй книге - PullRequest
0 голосов
/ 29 мая 2020

Я хочу выбрать несколько отфильтрованных ячеек на листе и применить выбор к фильтру во второй книге.

Я пробовал это с измененным кодом, найденным здесь.

Sub Test()
    Dim Arr As Variant
    Dim i As Integer
    Arr = WorksheetFunction.Transpose(WB_Macro.Sheets("Current Stage").Selection.Value)
    For i = LBound(Arr) To UBound(Arr)
        Arr(i) = CStr(Arr(i))
    Next i
    Selection.AutoFilter
    WB_New.Sheets("Consolidated EOY ´20-CO20-21").Range("$A$2:$C$1048576").AutoFilter Field:=7, Criteria1:=Arr, Operator:=xlFilterValues
End Sub

Можно кто-нибудь мне поможет?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...