Scripty v excelu Vyřešeno

[psicek]

Ahoj všem,
mám dotaz, níže uvedeným kodem vyfiltruju požadované údaje, ale potřeboval bych potom takto vytříděné údaje zkopírovat do jiného listu např v tomto případě zkopírovat buňky A33:AV34 do jiného listu.

Kód: Vybrat vše

Worksheets("Vzor").AutoFilterMode = False

Worksheets("Vzor").Range("AW5:BF200").AutoFilter field:=1, Criteria1:=Turnus
Worksheets("Vzor").Range("AW5:BF200").AutoFilter field:=2, Criteria1:=Poradovy_den
Select Case Weekday(Datum, vbMonday)
Case 1
    Worksheets("Vzor").Range("AW5:BF200").AutoFilter field:=4, Criteria1:="x"
Case 2
    Worksheets("Vzor").Range("AW5:BF200").AutoFilter field:=5, Criteria1:="x"
Case 3
    Worksheets("Vzor").Range("AW5:BF200").AutoFilter field:=6, Criteria1:="x"
Case 4
    Worksheets("Vzor").Range("AW5:BF200").AutoFilter field:=7, Criteria1:="x"
Case 5
    Worksheets("Vzor").Range("AW5:BF200").AutoFilter field:=8, Criteria1:="x"
Case 6
    Worksheets("Vzor").Range("AW5:BF200").AutoFilter field:=9, Criteria1:="x"
Case 7
    Worksheets("Vzor").Range("AW5:BF200").AutoFilter field:=10, Criteria1:="x"
End Select


tento kod provede tento filtr

Díky moc za rady

[Reklama]

[navstevnik]

doporucuji pouzit misto automatickeho filtru rozsireny filtr a vybrat Kopirovat jinam , potom lze vyfiltrovane radky nakopirovat na jiny list

[psicek]

Díky, už se mi to podařilo vyřešit.