vyfiltrování podle skupiny dat mimo tabulku

[radekzjicina]

Dobrý den,
prosím poradte jak vyfiltrova nějakým rychlým způsobem data v tabulce podle skupiny dat mimo.

přikládám screen.

potřeboval bych vyfiltrovat pouze data materiálů z tabulky podle seznamu jednotlivého druhu materiálu který budu mít někde vedle (to jsou ty cervený hodnoty vedle screenu). Jedná se o velkou tabulku s mraky čísel materiálů, ze kterých budu vždycky potřebovat vyfiltrovat několik typů matroše.

Díky

[d1amond]

To nebude těžké. Funkce s FIND, kde bude parametrem kód produktu. Kam se to má načítat, nový list, nový sešit?? Co s duplicitama - více shodných položek?

//sem na Moravě celý víkend, tak nebudu fungovat - buď se toho někdo ujme, nebo během týdne

[Azuzula]

Když celou tu oblast s daty budete mít formátovanou jako tabulku s názvem "Tabulka1", tak bych použila toto:

Kód: Vybrat vše

Sub filtrace()
Dim data(10) As String
Dim i As Double

For i = 1 To 10
If Range("H" & i) = "" Then Exit For
data(i) = Range("H" & i) 'zápis oblasti kritérií pro filtrování do pole
Next

ActiveSheet.ListObjects("Tabulka1").Range.AutoFilter Field:=1, Criteria1:= _
    Array(data(1), data(2), data(3), data(4), data(5), data(6), data(7), _
    data(8), data(9), data(10)), Operator:=xlFilterValues

End Sub

Takhle je to omezeno na 10 položek, pokud chcete více, jde to snadno doplnit.