Scripty v excelu Vyřešeno
Napsal: 31 srp 2008 11:39
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.
tento kod provede tento filtr
Díky moc za rady
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