• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Dobrý den, moc prosím o pomoc. Potřeboval bych poradit s vyplnění dokumentu ve Wordu z tabulky v Excelu.

Mám seznam jmen v Excel tabulce "seznam jmen.xlsx". Potřeboval bych asi nějaké makro. Které by do Wordu dotazník.docx doplnilo do řádku jméno z tabulky a uložilo dokument. Název uloženého souboru by bylo jméno.pdf
To samé by udělal automaticky se všemi jmény v sloupci A. V tomto příkladu by byly výsledkem 4 soubory pdf.

Předem moc děkuji za pomoc.

Za posledním řádkem se stejným týdnem vložit prázdný řádek a to samé za dalším týdnem. Snad jsem to popsal srozumitelně.

Zdravím,
rád bych poprosil o pomoc, nedaří se mi přijít na to jak upravit makro v přiloženém souboru. Potřeboval bych aby se při nakopírování dat do listu tisk. Přidal prázdný řádek při změně týdne v sloupci D. Děkuji předem.

Zdravím, jak to napsat aby nerozlišoval velká a malá písmena. Dík

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

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse