Příspěvky uživatele
< návrat zpět
Mám mnohem složitější soubor, s více listy, které jsou mezi sebou provázané daty, vyplním pouze první list a zbytek se automaticky doplní pomocí vzorců. Příklad je pouze zjednodušený. Dneska to dělám, tak, že všechny listy před tiskem upravím. Jen sem si říkal, že by bylo hezké vyplnit první list a zbytek jen vytisknout. Nemůžu na to přijít, takže asi zůstanu u ruční úpravy.
Zdravím,
nevíte někdo jak nastavit nebo vyřešit, tisk dokumentu se vzorci? Potřebuji vytisknout jen stránky s daty, stránek se vzorci bez dat si nevšímat.
V příloze mám jednoduchý příklad. Jde mě o to aby se vytiskl jeden list. Pokud možno i v záhlaví "list 1 z 1". Bez mazání řádků se vzorci.
Lámu si nad tím hlavu a nic mě nenapadá, nejspíš to ani bez smazání "prázdných" řádků nejde. Dík Milan
Díky všem,
po menší úpravě je problém vyřešen.
Dobrý den,
měl bych dotaz na převod filtrovaných dat. V přiloženém souboru je tlačítko, které převede požadovaný počet řádků (od aktivní buňky) na druhý list. Potřebuji tam dostat aby vzal pouze vyfiltrovaná data a skrytých řádků si nevšímal. Už se s tím mořím několik dní, ale je to nad moje síly.
To jak se kopírují formáty to vím.
Na všech, listech mám volné tlačítko, které bylo kdysi spojeno s makrem co už nepoužívám. Takže jsem si vytvořil makro a na všech listech jsem jen proklikal tlačítko a mám to.
Makro sem si nahrál při prvním listu, asi nic moc, ale účel splnilo.
Cells.FormatConditions.Delete
Range("D6:G998").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E6"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0
End With
Range("B6:C998").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=A($B6>0;$E6>0)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0
End With
Range("D6:D998").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF(D:D;D6)>1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Range("J6:J998").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF(D:D;J6)>0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
End With
Range("K6:K998").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$I$3"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
End With
Range("I3:J3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$L$3=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
End Sub
Ono to není pár kliků, těch pravidel tam mám celkem dost. (trochu se je snažím zredukovat)
vzorečky, různé oblasti atd.
Udělal sem si makro na každou podmínku. Když to makro na každém listu spustím, tak se mě formátování nastaví přesně jak má.
marjankaj napsal/a:
No zapni si nahrávanie makra
A makro si už iba "učešeš".
Na nahrávání maker jsem úplně zapomněl. To se dá perfektně využít.
Dík
Příloha není potřeba.
Jak už jsem psal hned na začátku. Struktura všech listů je totožná. Upravit jeden list a pak ho kopírovat by šlo, pokud bych neměl na dalších listech kontingenční tabulky a jiné vazby na jednotlivé listy. U nich by se mě vše rozhodilo.
Doufal jsem, že by šlo třeba použít VBA. Kde by se určil zdrojoví list a nechat jeho podmíněné formátování nakopírovat na určené listy.
Dobrý den, nevíte jak udělat úpravu podmíněného formátování na více listech naráz? Mám cca 30 listů se stejnou strukturou. Byly vytvořeny v Excel 2003. Teď mám 2016. Potřebuji nějak upravit podmíněné formátování na všech listech a nedělat úpravy na každém listu zvlášť, ale hromadně. Díky
PowerQuery v Excel 2016 jsem použil a funguje. Jenže mám někde asi chybu. Pokud po otevření souboru dám aktualizaci, vyběhne mě chyba (viz příloha). Když zobrazím dotazy, tak aktualizace proběhne. Pak můžu zavřít dotazy a vše funguje jak má. Dokud nezavřu a opět nespustím soubor. Nevím si rady, jestli jsem někde něco špatně nastavil. Neví někdo co je špatně? 
OK, to vypadá dobře.
Nedávno jsem přešel z verze Office 2003 na 2016. Takže kontingenční tabulky jako bych se znovu učil. Všechno je jinde a tápu. Nějak se s tím poperu.
Dík
Zdravím,
potřebuji makro abych z několika listů přenesl určitá data na jeden list, viz příloha.
OK, dík
Zdravím,
potřeboval bych asi tlačítko. Aby se vložil prázdný řádek mezi buňky s rozdílnými daty. Nějak se mi nedaří přijít jak na to.
Díky
Koukal jsem se, že jde obejít i to heslo. Je to spíš proti někomu, kdo se moc nevyzná. 
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články