Sub FilterCopyToOtherSheet() ' vymaz stary filter Sheets("2016").Rows("1:40000").Delete Shift:=xlUp ' spusti novy rozsireny (advanced) filter Sheets("argumenty").Range("A1:F76").AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("argumenty").Range("I1:I2"), _ CopyToRange:=Sheets("2016").Range("A1"), _ Unique:=False ' chod na vysledok Sheets("2016").Select Range("A1").Select End Sub
Užitočné (1) | Kabaka123 |
makro - vyfiltrované údaje - VYRIEŠENÉ