Snoophy
12.03.15,10:15
Ahojte, mám zapísané makro a posledný riadok síce prebehne v makre, ale vôbec nezobrazí hodnoty. Presnejšie povedané:
1. prebehne makro
2. pod hlavičkami zostanú prázdne bunky. Keď kliknem na šipku ( filter) tak pekne vidím, že je aktivovaný filter väčší, alebo rovný než v bunke E2 a až keď kliknem na OK sa aktivuje filter.


Makro:


ActiveSheet.Range("$A$1:$AA$3009").AutoFilter Field:=1, Criteria1:=Range("B2")
ActiveSheet.Range("$A$1:$AA$3009").AutoFilter Field:=2, Criteria1:=Range("C2")
Range("T5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveCell.Offset(-4, -16).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.ShowAllData



ActiveSheet.Range("$A$1:$AA$3009").AutoFilter Field:=20, Criteria1:=Range("D2")
ActiveSheet.Range("$A$1:$AA$3009").AutoFilter Field:=21, Criteria1:=">=" & Range("E2")