Страницы: 1
RSS
Фильтр в таблице по нескольким выделенным значениям из другой.
 
Уважаемые коллеги!  
хочу написать небольшой макрос, который при выделении мышкой диапазона ячеек одной таблицы, записывал бы значения из определённого столбца в массив, а потом бы по этому массиву фильтровалась другая таблица.    
Вот что у меня получается. Выдаётся ошибка в последней строке.  
 
Sub Фильтрация()  
On Error Resume Next  
Dim rRange As Range, cell As Range, kod(), i As Long  
Set rRange = Selection.Cells.SpecialCells(xlCellTypeVisible)  
ReDim kod(1 To rRange.Count)  
i = 0  
x = 0  
For Each cell In rRange  
   If x <> cell.Row Then  
       i = i + 1  
       x = cell.Row  
       kod(i) = Cells(x, 13).Value  
   End If  
Next cell  
Sheets(1).Activate  
ActiveSheet.ShowAllData  
ActiveSheet.Range("$A$5:$T$20000").AutoFilter Field:=13, Criteria1:=kod(), Operator:=xlFilterValues  
 
End Sub
Страницы: 1
Наверх