Upřímně, nezkoušel jsem to, ale nemyslím si, že to takto lze. Možná za pomocí VBA by ten vzorec šel generovat. Ale rychlé to nebude.
Mají ty soubory nějaký společný adresář? V něm mohou být v podadresářích, ale nějaký kořen by měl být společný. Pokud ne, jste v pasti.
Proč se listy v souborech jmenují jinak? Pokud nelze sjednotit název listu, máte problém.
Název souboru může být různý.
Pokud rozumím vašemu problému, tak vaše cesta je PoverQuery - bude to jednoduché a rychlé.
Není excel, přesouvám
https://stackoverflow.com/questions/17678551/splitting-date-into-2-columns-date-time-in-sql/17679058
Dlouhodobě mi bez referencí v excelu i accesu funguje něco takového Dim clipboard As Object
Set clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With clipboard
.Clear
.SetText sText
.PutInClipboard
End With 'clipboard
Set clipboard = Nothing
Bylo to bráno jako text, protože na začátku hodnoty v buňce A2 je vložen tabulátor.
Vzorec lze upravit=DOSADIT(A2;ZNAK(9);"")/1Ale spíše bych se podíval do toho importu csv, je-li správně nastaven. Pokud je vše OK a je-li to možné, ověřil bych správnost tvorby csv.
Ale na import bych stejně raději použil PowerQuery. Tam je možné tyto anomálie odstranit.
@GeorgeK
Umožňuje PQ načíst data do JEDNOTLIVYCH buněk?
Přímo ne. Ale pokud nahrajete výsledek powerquery (který si upravíte třeba tak, že výsledkem bude tabulka o 1 řádku a 1 sloupci) do datového modelu bez načítání do listu, pak to lze.=CUBEVALUE("ThisWorkbookDataModel";CUBEMEMBER("ThisWorkbookDataModel";"[Measures].[Součet Sloupec11]"))
Již vyřešeno, ale jen poznamenám.
Zbytečně VBA - dnes už je lépe a jednodušší řešit přes PowerQuery
Vložte přílohu. Výjimečně jsem si dal práci a vytvořil si soubor a m mně to funguje.
https://docs.microsoft.com/en-us/previous-versions/office/troubleshoot/office-developer/retrieve-macro-name-in-excel-using-vb
Asi to lze, ale jednodušší je to udržovat ručně. Pokud si kódy z jednotlivých modulů vykopírujete do listu a fyfiltrujete vše co začíná na [public][private]sub nebo [public][private]function, tak to je to daleko rychlejší než hledání, vytváření a ladění nějakého kódu.
Pak už si jen doplňujete.
Ještě jsem zkoušel, jestli to náhodou neumí Inquire, ale nevypadá to (nebo se blbě dívám ;) )
1. Funkci FILTER lze samozřejmě nasimulovat i ve starších excelech, ale budete si muset pomoct pomocnými sloupci.
2. Lze vyřešit i pomocí PowerQuery (jednoduchý dotaz bez VBA) a načíst do skrytého listu
Není excel - přesouvám
Zjednodušeně řečeno, nedá (nebo jsem na to ještě nepřišel). A je to obecně problém, který je na internetu řešen a vše co jsem našel, končilo v diskuzi něčím podobným:
I'm using Office 365 and "Preserve cell formatting on update" does not work.
U kontingenčních tabulek a grafů je bohužel problém, že si pamatují formátování pro různé nastavení filtrů. U tabulek se mi to daří řešit tak, že formáty nastavuji vždy při všech vypnutých filtrech. Pak to funguje.
U kontingenčních grafů to funguje stejně, jen si nejsem jistý 100% výsledkem.
Proto jsem kontingenční grafy opustil a řeším pomocí kontingenční tabulka + standardní graf (s navzorcovanou oblastí dat) a průřezy (slicery). Výsledek je 100%, jen přicházím o víceúrovňové osy (to tlačítko +/- u grafu)
@lubo
Zdravím - v případě takto dlouhých kódů bych požádal, aby byly vkládány jako textová příloha - v případě rozkliknutí se otevře přímo v prohlížeči a člověk tedy nemusí rolovat a rolovat a rolovat.
Takto dlouhé kódy se zobrazují špatně, ale i kdyby ne, tak je to nepřehledné.
V příloze je kód od lubo - není to něco, co jsem vytvořil - je to jen ukázka, jak by to mohlo jít.. Budu-li požádán, odstraním
Děkuji za pochopení
Kdysi jsem to hledal a pokud se pamatuji, našel jsem pouze placené doplňky. Možná novější verze excelu něco nabízí, já jsem se ale vydal zmíněnou cestou (UPDATE, DELETE + INSERT).
Je to tím, že upravuje každou buňku zvlášť a pokaždé přepočítává. Tzn. pokud v souboru nejsou žádné výpočty, úprava bude rychlá.
Vynásobení 1 (nebo přičtení 0) provede pouze jeden výpočet.
Nepotřebujete vůbec VBA
Do levého záhlaví (přes vzhled stránky) vložte&[Stránka]a do pravého&[Stránka]+25+mezera (bez té mezery to počítá divně)
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.