ActiveSheet.ListObjects("tblDruhy").Range.AutoFilter Field:=2, Criteria1:=" <>0 ", Operator:=xlFilterValues
i když jsem musel pátrat no alespoň se člověk něco přiučí
Kontrola na existenci dat i součet plně funkční
Odstranění posledního sloupce u mě nefunguje, zkoušel jsem ho smazat jak přes "Přípravu dat" tak ručně v tabulce i Tabulce a pokaždé to šlo. Nicméně toto pro mě není důležité.
Zatím je to vše co potřebuji. Budu ještě dolaďovat až budu mít k dispozici všechny druhy výstupních tabulek, takže se možná ještě ozvu.
Prozatím moc děkuji
V.citovat