Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5
Excel 2003 - tisk (26.2.2016 20:10)

Zdravím,
v práci mám Excel 2003. Bylo by reálné, vytvoření tlačítka, které by po kliknutí použilo data z aktivního řádku a otevřelo jiný list s předvyplněnými hodnotami tohoto řádku? Použilo by pouze některé buňky.
Kdyby to umělo i dva a více řádků naráz (třeba označené do bloku), byla by to bomba. Po označení více řádků by se otevřel jeden list, kde by bylo v hlavičce společné číslo zakázky a pak v řádcích vypsané díly včetně výrobních čísel.

Kontingenční tabulka (12.7.2011 5:17)

stevas@seznam.cz

Kontingenční tabulka (11.7.2011 13:54)

Mám 2003. Problém je v tom, že je u nás celkem běžný pohyb zaměstnanců mezi středisky. A jestli to dobře chápu, tak bych při změně zaměstnance za jiného, musel tabulku vytvářet znovu.:-( M.

Kontingenční tabulka (11.7.2011 9:08)

No právě v tabulce je středisko KOM, ale někde to bere i jména z ostatních středisek. Přidal jsem si do tabulky i pole se střediskem (stejně jako měsíc). Aktualizoval tabulku a spustil makro. A pořád mě to tiskne i jména co vůbec v datech nejsou. odkud si to ty jména natahuje. Stahl jsem si ten soubor z netu a doplnil do něj to makro. A opět to tiskne lidi z jiných středisek. Tak nevím, kde jsou schovaný. Že je v datech nevidím, ale někde si je to makro najít muselo.

Kontingenční tabulka (11.7.2011 6:01)

Já bych to i napsal, kdybych to věděl. Jen to tiskne všechny střediska. Ani sem nevěděl, že tam jsou. Potřeboval bych to ještě omezit na středisko KOM. Jinak super. Dík

Kontingenční tabulka (8.7.2011 9:44)

Přikládám soubor. M.

Kontingenční tabulka (7.7.2011 6:15)

Asi dělám něco špatně

Sub konti_tisk()
Dim i As Long
Dim a As PivotItem
Dim c As New Collection
Dim cc
Dim b As Boolean
Dim s As String
Dim Jméno As String
' ---------------------------------------------------------
PolozkaKontiTabulky = "Jméno" 'Uprav podle své tabulky !!!
' ---------------------------------------------------------
With ActiveSheet.PivotTables("Kontingenční tabulka 1")
' Vybuduji buffer možných jmen
For Each a In .PivotFields("Jméno").PivotItems
c.Add (a.Name)
Next a
b = True
For Each cc In c ' Nastavím první a ostatní skryji (jinak chyba)
.PivotFields("Jméno").PivotItems(cc).Visible = b ' Tady se mě to sekne
If b Then b = False
Next cc
s = ""
For Each cc In c ' Vytisknu
.PivotFields("Jméno").PivotItems(cc).Visible = True
If s <> "" Then
.PivotFields("Jméno").PivotItems(s).Visible = False
End If
' Ni`jak ji vytisknu
ActiveSheet.PrintOut
s = cc
'Debug.Print cc
Next cc
End With
Set c = Nothing
Set a = Nothing
End Sub

Kontingenční tabulka (1.7.2011 7:24)

Zdravím, mám vytvořenou kontingenční tabulku (pro evidenci docházky z externích dat). V horní části mohu filtrovat podle jména, měsíce a roku. Pokouším se vymyslet způsob jak vytisknout všechny jednotlivé záznamy podle jména. Rok i měsíc si vyberu ručně a pak jsem se pokusil vytvořit makro aby mě vytisklo jednotlivé záznamy docházky, všech zaměstnanců hromadně. Ale nějak nemohu přijít na to, jak to do toho makra dostat, aniž bych tam nemusel vypisovat jmenovitě jednotlivé zaměstnance. Milan


Strana:  « předchozí  1 2 3 4 5

Uživatelské menu

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

Menu

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.

On-line nástroje