Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3   další »

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. 9
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ě? 8

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á. 3

Ok, to by šlo, jen to skrývání listů jsem dal ve chvíli uzavírání souboru. Pak se nestane, že na začátku někdo zakáže makra a listy zůstanou zobrazené.

Jen tam ještě přidat, aby soubor nešel po úpravách uložit, v případě, že byl otevřen bez hesla. 10


Strana:  « předchozí  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09