|
Dobrý den, obracím se na Vás jako málo zkušený ve VBA. Tvořím vlastní funkci, kterou chci vypočítávat hodnoty tabulky v listu “B”. V listu “A” mám aktualizovanou tabulku z externího zdroje SQL databáze. Vlastní funkcí v každém políčku tabulky listu "B" stanovím filtry pro Automatický filtr, má proběhnout filtrování, pomocí funkce SUBTOTAL výpočet hodnoty pro aktuální políčko a může se řešit další políčko. Ale. Filtry se správně stanoví a pak pomocí Sheets (“A”).Select přecházím k Autofiltru. Zde se výpočet zastaví,chyba #HODNOTA , a výpis jména aktivního listu pomocí Msgbox je “B” (očekávám "A"). Hláška u #HODNOTY je “Hodnota použitá ve vzorci má neplatný typ”. Použiji-li Breakpoint, zastaví se výpočet před Range(Tabulka_192.168... : Sheets("A").Select MsgBox "Přijal jsem argumenty: " & Sb & " " & Ucty(1) & " " & Str(1) & " " & Month & " " & Year MsgBox "List: " & ActiveSheet.Name Range( _ "Tabulka192.168.253.15_Domecek001_Denik_2010[[#Headers],[Zaknihovano]]"). _ Select Selection.AutoFilter
Argumenty jsou správně převzaty a v posledním kontrolní výpisu aktivního listu je "B" na němž jsou počítaná políčka s tvořenou vlastní funkcí. Měl by být aktivní list "A", kde jsou data z externí databáze a jsou zdrojem pro vyhodnocení v listu "B". Pracuji v VBA Excel 2013.
V čem by mohl být problém? Luboš
|