MS Excel

Myslim, ze to jde takto:
ActiveSheet.Range("$A$1:$A$27").AutoFilter Field:=1, Criteria1:="<>a", _
Operator:=xlAnd, Criteria2:="<>b"

ale funguji jen dve podminky, takze jestli jich mate vic, bude potreba to vyresit jinak.citovat

To od Pokiho vyzkousim, ale bohuzel mam tri hodnoty, ktere potrebuju makrem schovat. Ale tak bych to tam dal dvakrat, to by mohlo jit. Jinak vtip v hledanem reseni je ten, ze ve sloupci muze nastat 9 ruznych hodnot + prazdne bunky. a potrebuju ten filtr tak, aby se mi schovali ty tri hodnoty i v pripade ze uz tam nejaky filtr je. Proto potrebuji jen ty tri vypnout a ne definovat ktere maji byt zapnute, pac to se muze cas od casu lisit.
Milanovo reseni vypada srozumitelne, ale budu vdecny za kod, pac tak daleko nejsem, predem diky. i kdyz jsem doufal v neco jednodussiho. Kazdopadne: excel 2007, list Skaly, tabulka3, sloupec 11 pojmenovany "Styl", filtrovane hodnoty "2","-","AF", pod tabulkou uz jsou jen prazdne bunky.citovat

Tak Pokiho reseni jsem prokouk, je to nastaveni vlastniho filtru, tak bych to resit nechtel, nehlede na to, ze zobrazi vsechny dalsi hodnoty, takze ani nesplnuje to co bych od toho ocekaval.
Na danem liste je jen tabulka3, ostatni jsou na jinych listech. Zahlavi je na 4.radku. 11. sloupec ma pismeno "L". Filtr bude v makru a bude filtrovat ten sloupec 11(tabulky)(pismeno L listu). Jak ja bych to chtel umet! vedet proc jsou tyhle veci dulezity...snad casem...
Tim zadanym makrem bych jen chtel ovladat odtrzitka po rozkliku sipky v zahlavi tabulky. Proste nemenit momentalni stav, jen odtrhnout dalsi tri.citovat

Tak zde je funkcni nastrel:
Option Explicit

Sub Filtr123()
'toto funguje za predpokladu, ze na danem liste je jen jedna tabulka s filtrem

Dim ws As Worksheet
Dim iRows As Long, i As Long, j As Long, iStartRow As Integer, iStartCol As Integer
Dim cKol As New Collection
Dim pPole()
Dim strX As String

Set ws = Worksheets("Skaly")
'zjisti, jestli tam vubec je filtr
If Not ws.AutoFilterMode Then
MsgBox "Na liste " & ws.Name & " neni zadny filtr"
Exit Sub
End If

'osahej oblast tabulky, pocet radku, prvni radek, prvni sloupec
'pocet radku tabulky
iRows = ws.AutoFilter.Range.Rows.Count
'prvni radek tabulky (doufam, ze zahlavi neobsahuje vice sloupcu nebo sloucene bunky!)
'ze radky tabulky bez zahlavi by mely zacinat na
iStartRow = ws.AutoFilter.Range.Cells(1).Row + 1
'kdyby ne, klidne to napis natvrdo iStart = 5
iStartCol = ws.AutoFilter.Range.Cells(1).Column

'napln kolekci (kvuli duplicitam)
On Error Resume Next 'pripadna duplicita vyhodi chybu, ale budeme ji ignorovat
For i = iStartRow To iStartRow + iRows - 2
cKol.Add Item:=CStr(Cells(i, "L").Value), Key:=CStr(Cells(i, "L").Value) 'budeme to tam davat jako string, proto CStr
Next i
On Error GoTo 0

'tak mame kolekci jedinecnych hodnot
'vsechno krome "2","-","AF" narveme do pole
For i = 1 To cKol.Count
strX = cKol(i)
If strX <> "2" And strX <> "-" And strX <> "AF" Then
j = j + 1
ReDim Preserve pPole(1 To j)
pPole(j) = strX
End If
Next i

'zafiltruj
ws.AutoFilter.Range.AutoFilter Field:=11, Criteria1:=pPole, Operator:=xlFilterValues

End Subcitovat

To Marjankaj: to me nenapadlo, je to dobrej napad, a udela rychle to co je zadany. Ale oklikou. Chtel bych se naucit ovladat dialog po filtru tabulky primo.
To Milan: Diky za tvuj code, funguje, ale neco tam je jeste divne. Za prvy kod nepozna ze na liste je filtr. Nevim proc, v tabulce3 je. Neva, tu cast kontroly jsem smazal a pak to jede dal a vyfiltruje pozadovane 3hodnoty ale zobrazi vsechny ostatni (coz odpovida tomu, ze si kod mysli ze tam filtr neni).
Budu rad, kdyz mi jeste napovis :)citovat