Temat: Makro zakładajaće filt.
Moj kod wyglada tak:
Sheets("Baza kalkulacyjna").Select
Rows("1:1").Select
Selection.AutoFilter
Columns("A:A").Select
Selection.ClearContents
Sheets("Baza").Select
Columns("A:A").Select
Selection.Copy
Sheets("Baza kalkulacyjna").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$A$2637").RemoveDuplicates Columns:=1, Header:= _
xlYes
Sheets("Baza").Select
Sheets("Baza kalkulacyjna").Select
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$N$139").AutoFilter Field:=8, Criteria1:="<>#N/D!" _
, Operator:=xlAnd
Sheets("Zestawienie").Select
Przedostatnia kolumna jest odpowiedzialna za ten filtr no i go zaklada i teoretycznie jest trojkacik, ze filtr istnieje, jednak sie nie filtruje...
Panie Grzegorzu niestety nie dziala.