Makro filtrování dat

[Jsimi]

Zdravím.
Prosím o pomoc. Zde s fóra jsem použil práci od uživat. CMUCH. Jedná se o makro na filtrování dat. V této práci funguje filtrování pouze pro jeden sloupec a já potřebuji poradit jak upravit makro, abych mohl rozšířit filtrování na další sloupečky.
Viz příloha.
Předem moc díky.

[Reklama]

[cmuch]

Tady je uprava
Nahraď ty původní makra těmito.

Filtr se nastaví po změně v E2 (pro pole 3 ve filtru) a v F2 (pro pole 4 ve filtru)
Zruš zruší nastavení (pro ex2010)

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

Dim hodnotaA, hodnotaB

 If Target.Address = "$E$2" And Not Target.Value = "" Then
   hodnotaA = Range("E2")

   ActiveSheet.Range("$B$4:$H$" & Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter Field:=3, _
    Criteria1:="=*" & hodnotaA & "*"
 
 End If
 If Target.Address = "$F$2" And Not Target.Value = "" Then
   hodnotaB = Range("F2")

   ActiveSheet.Range("$B$4:$H$" & Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter Field:=4, _
    Criteria1:="=*" & hodnotaB & "*"
 
 End If
End Sub

Kód: Vybrat vše

Sub ZrusFiltr()

 ActiveSheet.ShowAllData

 'Range("E2").ClearContents
 
End Sub