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

Příspěvky uživatele

Dobrý den,

bohužel nemohu přiložit soubor, jelikož jsou zde citlivá firemní data, ale pokusím se to popsat co nejpodrobněji.
Mám tabulku pro šest linek, která má 5 listů. Na Listu5 jsou data a na Listu1, Listu2, Listu3 a Listu4 jsou různé grafy k linkám. Na všech čtyřech listech jsou všechny linky. Při tisku musíme všechny stránky přebrat a srovnat podle linek. Tak mě napadlo jestli by se nedalo tyto grafy seřadit rovnou při tisku makrem. Vypotil jsem Makro z toho co jsem kde našel. Funguje to, ale občas na grafu zmizí formátování(např. místo 81,5% se tam objeví 81,5123584). Asi je to tím, že je to takový "bastl".

Předem děkuji za pomoc.

Sub Tisk()

Application.Dialogs(xlDialogPrinterSetup).Show

' Linka 1
Worksheets("List1").PageSetup.PrintArea = "$A$67:$W$99"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea = "$A$67:$AG$99"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$73:$W$108"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$73:$W$108"
Worksheets("List4").PrintOut

' Linka 2
Worksheets("List1").PageSetup.PrintArea = "$A$100:$W$132"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea = "$A$100:$AG$132"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$109:$W$144"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$109:$W$144"
Worksheets("List4").PrintOut

' Linka 3
Worksheets("List1").PageSetup.PrintArea = "$A$133:$W$165"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea = "$A$133:$AG$165"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$145:$W$180"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$145:$W$180"
Worksheets("List4").PrintOut

' Linka 4
Worksheets("List1").PageSetup.PrintArea = "$A$1:$W$33"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea = "$A$1:$AG$33"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$1:$W$36"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$1:$W$36"
Worksheets("List4").PrintOut

' Linka 5
Worksheets("List1").PageSetup.PrintArea = "$A$166:$W$198"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea="$A$166:$AG$198"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea="$A$181:$W$216"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea="$A$181:$W$216"
Worksheets("List4").PrintOut

' Linka 6
Worksheets("List1").PageSetup.PrintArea = "$A$34:$W$66"
Worksheets("List1").PrintOut

Worksheets("List2").PageSetup.PrintArea ="$A$34:$AG$66"
Worksheets("List2").PrintOut

Worksheets("List3").PageSetup.PrintArea = "$A$37:$W$72"
Worksheets("List3").PrintOut

Worksheets("List4").PageSetup.PrintArea = "$A$37:$W$72"
Worksheets("List4").PrintOut

End Sub

Netušil jsem, že je to až tak moc složité. Mockrát děkuji za každou pomoc.

Asi to mám blbě, snažil jsem se to splácat, co jsem kde našel abych nemusel otravovat někoho z vás, ale bohužel. Jde mi jen o jeden konkrétní list.

Ale kdyby jste mi ukázal obě varianty, byl by jste moc laskav.

Předem děkuji

Dobrý den,

pokusil jsem se o Makro, ale už si nevím rady.
Potřeboval bych při stisknutí tlačítka odemknout list a při druhém stisknutí list zamknout s dotazem na heslo.

Přílohu je asi zbytečné přikládat, ale zkopíruji Makro.

Děkuji za radu.

Sub Zamknout_Odemknout()

Dim sPass As String
sPass = InputBox("Heslo k odemknutí listu:", "Uzamknout
list")
Dim wsSheet As Worksheet
Set wsSheet = Worksheets("List1")

If sPass = InputBox("Zadejte heslo ještě jednou:",
"Potvrdit heslo") Then
For Each sh In ActiveWorkbook.Sheets
wsSheet.Protect Password:=sPass
Next
Else

MsgBox ("Zadané heslo není správné!")
End If

' zde si nevím rady

sPass = InputBox("Heslo:", "Odemknout list")

For Each sh In ActiveWorkbook.Sheets
wsSheet.Unprotect Password:=sPass
Next

End Sub

Musím nad tím chvíli přemýšlet, ale už vidím světlo na konci tunelu.

Děkuji pěkně i Vám.

To bohužel u nás ve firmě není možné. Naše IT sídlí v Německu a je s nimi těžká spolupráce. Mockrát Vám děkuji za snahu a omlouvám se, že jsem Vás připravil zbytečně o čas. Třeba se najde ještě někdo tak hodný jako Vy a pomůže mi.

Děkuji.

Aha tak to se omlouvám, to jsem mohl napsat jako první. V práci používáme MS Office Standard 2010. Nicméně v práci si bohužel nic nenainstaluji, všechny tyto funkce máme deaktivovány.
Myslel jsem, jestli by nešlo nějaké makro, které když si otevřu obě aktuální okna, tak přenese všechny data do správných buněk.
Vím, že je to složité, obzvláště když to má řadit podle datumu. Moc si vážím, že mi chcete pomoci. Děkuji.

Děkuji za pomoc, ale mám s tím nějaký problém.
Tohle už je pro mě vyšší dívčí.

Dobrý den všem,

prosím o pomoc. Každý den v práci musím přepisovat data z jedné tabulky do druhé. Nejprve si otevřu soubor "Denní protokol", který má v názvu datum aktuálního dne a jsou v něm data z předešlého pracovního dne. Potom si musím otevřít soubor "Graf" a do něj opsat veškerá data. Nešlo by toto vyřešit Makrem? V příloze zasílám ukázku. Z důvodu ochrany dat jsem byl nucen pozměnit názvy, ale rozložení stránek je zachované. Pokud by jste potřebovali další informace, rád odpovím. Nevím jestli jsem to napsal srozumitelně. Mockrát předem děkuji, pokud se budete mým problémem zabývat.

Je to naprostá bomba!
Moc jste mi pomohl. Děkuji.

Dobrý den syd,

máte můj obrovský obdiv. Velmi děkuji, je to fakt super. Vážím si, že jste u toho seděl do noci. Mám ještě dotaz na makro Přesuň, to mi píše error. Je možné, že dělám něco špatně?

Děkuji za váš čas.

Dobrý den všem,

mohl by mi někdo pomoci s Makrem?
Udělal jsem si jednoduchou tabulku na evidenci výkonu.
Týdenní a Měsíční. V Týdenní je výkon na směnu a v Měsíční je průměr za den. Při vyplnění dat do Týdenní tabulky a zadání konkrétního datumu se mi spočítá průměrný výkon za den. Při stisknutí tlačítka Přesuň bych potřeboval aby se data připsali ke konkrétnímu datumu v tabulce Měsíc.
Při stisknutí tlačítka Archivace bych potřeboval aby se data přesunula do Listu Archiv Měsíc a Archiv Týden, kde by se data měla zapisovat pod sebe. Nevím jestli jsem to zapsal dost srozumitelně.

Děkuji za každou pomoc.
Tabulky dělám rád, ale Makru bohužel vůbec nerozumím.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse