SuperFórum.cz

Třeba zrovna Power Query občas potřebuji. Navíc při své práci nikdy nevím, co vše se mi bude hodit. Dobře odpovím si tedy sám. Power Pivot neumí nic zásadního, co by nešlo dělat nějakým jiným způsobem v Power Query. Je to tedy slepá vývojová cesta Microsoftu.

Zdravím,
měl bych dotaz obecného charakteru. Má smysl učit se s Power Pivotem? Nemohu se ubránit dojmu, že je to jen taková lepší kontingenční tabulka. Power Query je užitečný. Navíc v něm kontingenční tabulku z různých datových zdrojů vytvořím taky.
Má někdo jiný názor?

Mám doplněk s makry, který byl vytvořen v Excelu 2013. Dostal jsem v práci Excel 2019 a při pokusu o spuštění doplňku mi VBA hlásí různé chybové hlášky. Chtěl jsem se proto zeptat, zda Excel 2019 vlastní panely nástrojů podporuje a pokud ano, jak doplněk upravit? Nebo je třeba již bezvýhradně použít...

Něco jsem zkusil. Je to jen nástřel. Vše se tiskne na výchozí tiskárně. Nastavení konkrétních vlastností tisku by bylo třeba ještě doplnit. Makro tiskne oblasti obsahující konstanty a vzorce.
Sub Tisk_vice_oblasti()

Dim Oblast As Range
Dim Podoblast As Range

Set Oblast = Union(ActiveSheet.Cel...

Děkuji za radu. Aspoň jsem se zas něco přiučil.

Funkce SUMIF považuje výraz

Kód: Vybrat vše

"<=$U$1"

za text. Řešením je vložit místo něj skutečnou hodnotu datumu místo odkazu na buňku nebo použít vzorec:

Kód: Vybrat vše

=KDYŽ($A$32252:$A$32255<=$U$1;SUMA(($E$32252:$E$32255))

If Cells(i, 7) = "" Then 'Když je buňka prázdná, tak se vymaže obsah buněk
Range(Cells(i, 1), Cells(i, 7)).ClearContents ' v rozsahu sloupců A až G.
r = Cells(Rows.Count, 1).End(xlUp).Row ' Zjištění řádku poslední buňky v tabulce,
'která je vyplněna.
...

Sub Smaz_prazdny_radek()
Dim i As Long
Dim r As Long

Application.ScreenUpdating = False

For i = 1000 To 10 Step -1

If Cells(i, 7) = "" Then
Range(Cells(i, 1), Cells(i, 7)).ClearContents
r = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(i + 1, 1), Cell...

Zdravím,

použil bych tenhle vzorec, který bych vložil do B2 a rozkopíroval:
=IFERROR(ČÁST(B$1;HLEDAT($A2;B$1)-1;1);"")
Vzorec bude fungovat v případě, že levá horní buňka (nevyplněná) má adresu A1. Viz obrázek.
Jinak je samozřejmě potřeba vzorec upravit.
http://jpeg.cz/images/...

Zdravím,

makro jsem si na to již sám vytvořil. Přesto se zeptám, jak by šlo rychle a efektivně 6000 souborů CSV sloučit do jednoho. Mám k tomu k dispozici pouze MS Office.

Zdravím,
díval jsem se jak to funguje, pokud je dotaz vytvořen pomocí MS Query .
1. Klikne se do tabulky.
2. Klikne se do Nástroje tabulky karta Návrh .
3. Na kartě Návrh se aktivuje menu Vlastnosti .
4. Objeví se dialogové okno Vlastnosti externích dat .
5. Zde se odtrhne možnost Nastav...

Dostal jsem radu na jiném fóru:

Kód: Vybrat vše

Textik = WorksheetFunction.Text(Bunka.Value, "[$-405]dddd")

Zdravím,

používám v makru v Excelu funkci WorksheetFunction.Text, která je obdobou funkce HODNOTA.NA.TEXT.
Potřeboval bych poradit, jak pracovat s datumy, aby se mi názvy dnů zobrazily česky nikoli anglicky.
Když použiju kód VBA:
Textik = WorksheetFunction.Text(Bunka.Value, "dddd&quo...

Zdravím,

má být těch listů z každého sešitu více nebo jeden? A před který list se tyto listy mají kopírovat? A co to znamená kopírovat z již předem aktivní oblasti? Dotaz je třeba více specifikovat.

Zdravím,

jde to udělat pomocí ovládacího prvku Pole se seznamem, který je dostupný na kartě Vývojář a funkcí Svyhledat, viz vzorový sešit: http://www.uschovna.cz/zasilka/KN7XI7CWIRPL3R3V-2W6/