Příloha není, tak jsem něco zkusil podle svého.
Je to ještě aktuální?
O něco jsem se pokusil, jestli je to ono.... Na list4 jsem doplnil do tabulky "třídu" 0, která tam chyběla.
Já bych to pojal tak, že v buňkách sl.Y by byly hypertext odkazy, ale po kliknutí by vyběhl formulář se seznamem oněch čísel, uživatel by si označil to jedno a pak by zafungoval ten správný odkaz na www. To jen aby Filip měl na výběr. Nepřibudou tím další sloupce a je to univerzálnější. Je to nástin možností, jak sem Palo včera dal to své řešení, přestal jsem na tom pracovat.
Jestli pomůže tohle..., je to z nějakého tématu odtud, nemůžu už najít, které to bylo.
@Opičák - ano, nekouk jsem na help, psal jsem to dle paměti: ale proč mi to fungovalo??!! asi skryté není to samé jako vyfiltrované.
Opičák rychlejší, tak ještě příloha, když jsem se s tím patlal.
A nestačilo by dát navíc k tomu řazení filtr? Tam se dá ono "NENÍ K DISPOZIC" odfiltrovat. U nějakých dat možná toto nejde, nenapadá mě příklad, ale pak by šlo vložit nový sloupec se vzorcem, který podle té chybové hodnoty nastaví číslo, které vyfiltrovat jde. Nějaký nástin je v příloze.
Nejlíp ale je upravit už ty vzorce samotné, aby místo chyb.stavu dávaly třeba NULU.
=KDYŽ(JE.CHYBHODN(pův.vzorec);0;"původ.vzorec")
A příloha se dá vložit, když je zazipovaná .zip nebo .rar
Předpokladem tohoto řešení je stále stejný počet 4 mezer v textu, tak jak to je v úvodní příloze.
Jestli chceš použít řešení od Opičáka, nechám vysvětlení spíš na něm. Navíc když mám s jeho souborem ten problém, že mi funguje jen po prvním otevření. Pak, i bez uložení, když ho znovu otevřu, už mi vůbec nereaguje prvek ListBox, jako by tam nebyl. Nevím čím to je, ale tak se mi to chová na dvou počítačích.
Já bych na to šel jinak, zaměnit řádky a sloupce z toho příkladu a použít na to obyčejný aut.filtr. Je to naznačené v listu 2. Ale každý má svoji představu jak má to celé vypadat.
Dal jsem něco dohromady s pomocí vba.
Asi nepomůžu radou, jen sdělením, že se mi to stalo taky, provázané sešity vzorci s Svyhledat a pod., 2007 pohoda, 2010 pak hrůza. Nepomůže asi nic. Varuju před manuálním přepočtem. Při práci s více soubory se rychle ztratí kontrola nad tím stavem a najednou je uložený i tam, kde to nečekáš. A když pak něco nejde, nevíš čím to je. Toto celé mě donutilo opustit vzorce a nasadit jen makra, kterými jednorázově kdy chci "aktualizuju" vše potřebné. Dalo to práci, ale o moc se zmenší velikost souborů a přepočet mě netrápí.
Sheets("Celkove").PageSetup.PrintArea = "$A$1:$H$" & PosledniPlnyRadek
Tak jsem testnul vaše makro. On je tam celý dokument, jen je potřeba dát na něm pravé tlačítko myši, Object Dokument > Edit (nebo Open), pak je tam celý obsah. Vlastně stačí i dvojklik! Je to ono?
Když se vloží objekt, na poslední záložce před OK jsou zaškrt.boxy, propojení a zobrazit jako ikonu. Takže buď je objekt jako ikona z názvem a pak je jasné, že celý soubor je na pravém tlačítku, nebo se zobrazí celá 1.strana, ale chování je stejné.
No dobře, beru ... pochopil jsem, díky.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.