Fferenc50 Creative Commons License 2024.01.20 0 0 37787

Szia!

Értem én, hogy mit szeretnél, azonban munkalapról függvénnyel ez nem érhető el. 

Makróval működik, a feltételeket egy tömbben kell megadni.

Egy makró:

Sub Makró1()
ActiveSheet.UsedRange.AutoFilter Field:=5, Criteria1:=Array("3,25", "5,4", "6,59"), Operator:=xlFilterValues
End Sub

 

Így hosszabb feltételt is megadhatunk:

Sub Makró2()
ActiveSheet.UsedRange.AutoFilter Field:=5, Criteria1:= _
Array("11,047", "11,6", "13,56", "14,6", "14,7", "16,32", "16,6", "17,1", "17,11", _
"18,6", "19,6", "21,27", "22,67", "24,86", "25,41", "26", "27,33", "3,25", "4,62", "5,4", _
"6", "6,59", "7", "7,6", "7,61", "7,9", "8,96", "9,517"), Operator:=xlFilterValues
End Sub

 

A makrót egy modulba kell bemásolnod a VBA nézetben:

Alt +F11 - Insert - Module

Field:=5 helyére annak az oszlopnak a számát írd, amelyben szűrni szeretnél.

A Criteria1:= Array(....) jelenti azt, hogy tömb lesz a paraméterben. Ha hosszabb a feltétel sorozat akkor az aláhúzás karakterrel lehet jelezni, hogy egy sorba tartozik amit beírtál - a hosszabb feltételes sorban láthatod.

Az első makró eredménye:

Üdv.

Előzmény: webhifi1 (37786)