Příspěvky uživatele

Ak je príloha XLSM musíte ju zabaliť do ZIP. A veľkosť max do cca 300 KB. Ak to je väčšie a nedá sa zmenšiť, tak do nahrajte niekam na úložisko (uloz.to, GoogleDrive, ...) a dajte link.

A viete aké to makro spôsobí problémy? Bude nutné uchovávať prípadnú pôvodnú farbu bunky, odstrániť jej podmienené formátovanie (PF) (samozrejme si ho zapamätať), pri zmene bunky, to všetko vrátiť naspäť (pre celý riadok a stĺpec defakto po jednej bunke), a celú operáciu zapamätania farieb a PF urobiť znovu pre inú bunku. To preto, lebo má PF prednosť pred manuálnym vyfarbením. To bude nereálne.

Nastavte tomu PF "krížu" zastavenie PF (to zaškrtávacie políčko), a by bolo pre celú oblasť ako prvé.

Tak ma ešte trklo, že na to idem zložito. Stačilo by iba UnpivotOtherColumns

EDIT:
Tak teraz pozerám tú Vašu novú prílohu. Používate Unpivot, tam treba práve názvy stĺpcov, ktoré budú variabilné. Použite ako píšem UnpivotOtherColumns. Takže sa treba len rozhodnúť, či bude zdroj Tabuľka alebo tabuľka. Pre KT nepotrebujete upravený zdroj zobrazovať na ďalšej Tabuľke. PQ dotaz môže byť rovno ako zdroj KT - viď moja príloha.

Tu som urobil príklad ešte na predošlú prílohu (tú Vašu najnovšiu pozriem neskôr). Princíp je taký, že sa so zdrojovou tabuľkou urobí to, že sa zoberú všetky názvy stĺpcov, ktoré by ste mal mať v jednom stĺpci aby fungoval riadkový súčet v KT, urobí sa pre každý stĺpec vlastná tabuľka, a tieto tabuľky sa rozbalia. Takže vznikne presne to, čo potrebujete do KT. Čiže všetky stĺpce okrem "měna" a "info" budú v jednom hodnotovom stĺpci. Kľudne ich môže byť viac, lebo to je robené aktuálnym zoznamom stĺpcov, a nie vzorcom v počítanom poli s pevnými stĺpcami. No mňa to napadlo jedine takto ...

Musela by byť tá zdrojová tabuľka inak orientovaná. Prípadne by ostala rovnaká ale ako zdroj pre KT by bol PQ dotaz, ktorý by zdroj upravil do takejto podoby. Potom súčet riadku funguje.

??? Vy chcete zrátať EUR + CZK ???
Alebo čo myslíte ?
Mena - Nastavenie poľa - Mezdisúčty a filtre - Vlastné - Súčet ? To Vám dá to isté čo KT...

Iba na okraj, možno by stačilo iba takéto jednoduché makro
Sub hotovo_skryt()
Dim T As String
With ActiveSheet.ListObjects(1)
T = .Name
If Evaluate("=SUMPRODUCT(SUBTOTAL(3,OFFSET(" & T & "[Sloupec7],ROW(" & T & "[Sloupec7])-MIN(ROW(" & T & "[Sloupec7])),,1)),N(" & T & "[Sloupec7]=""Hotovo""))") > 0 Then
.Range.AutoFilter Field:=7, Criteria1:="<>Hotovo"
Else
.AutoFilter.ShowAllData
End If
End With
End Sub

pr.

Skúste namiesto "Řádek" a "Sloupec" použiť "Row" a "Col". Vo funkcii CELL/POLÍČKO zrovna funguje aj v CZ mutácii napr. anglický parameter "filename" namiesto "návevsouboru". Tak snáď aj ostatné parametre fičia. Odpadne Vám problém na inojazyčnom Office. V SK Office ide aj SK aj EN parameter. Parameter sa totiž automaticky neprekladá ako vzorce.

Vo VBA "Hotovo" nie je to isté ako "HOTOVO". V Exceli v bunkách je to zhodné pomocou "=". Presné porovnanie je pomocou EXACT/STEJNÉ. Vo VBA je "=" ako v Exceli EXACT. Ak vo VBA chcete niečo ako "=" v Exceli, tak potom StrComp("Hotovo", "HOTOVO", vbTextCompare) = 0
Alebo použite UCase()/LCase()

Musí byť C1 veľkými písmenami? Ak áno, tak musíte mať menný zoznam názvov mesiacov vo Vašom jazyku, nájdete pozíciu a máte mesiac. Zložiť to nie je problém. Ale na inojazyčnom systéme budú stále Vaše (CZ) názvy.

Ak to môže byť aj malými písmenami, tak sa názov mesiaca zobrazí Vlastným formátom, zo zoznamu pevných dátumov, a v každom jazyku to zobrazené správne - daným jazykom. Zložiť to zase nie je problém do B2.

Tak ako?

Môžete prihodiť ešte ten zdrojový súbor s dátami (anonymizovaný)? S vyznačenými dátami na načítanie. Každý taký súbor bude mať 4 riadky dát? Zdrojové bunky idú za sebou zvislo aj vodorovne? Formát dát (číslo, dátum, text, %, ...)? Sú tam zlúčené bunky? Z Vašej prvej vety to skôr vyznie, že chcete načítať dáta z viacerých súborov (pobočiek) naraz, a nie označovať po jednom súbore ...

Príloha s makrom XLSM musí byť zabalená v ZIP, a menšia ako 300 KB (asi).

Stačí nahradiť kontrolnú podmienku
If Left(WS.Name, 1) = "0" Then
takouto kontrolou dvojčísla
If IsNumeric(Left(WS.Name, 2)) Then
alebo kontrolou dátumového názvu
If IsDate(Replace(WS.Name, ".", "/")) Then
A potom príslušne upraviť MsgBox, pretože hláška s 0 by nedávala zmysel.

Samozrejme, napr. v takomto prípade to vloží link na pôvodný súbor. Záleží, aké tam máte vzorce. Nejaká príloha so zachovanými vzorcami a štruktúrou by nebola?

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje