Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  36 37 38 39 40 41 42 43 44
Překopírování dat z jednoho listu do druhého (22.1.2019 21:13)

Ahoj,

já to zase pochopil, že potřebuje data zálohovat a ne přemazat. Třeba by to mohlo být takto.

Tisk přes makro (21.1.2019 20:48)

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". 8

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

Odemknout list a zamknout (10.1.2019 16:31)

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

Odemknout list a zamknout (10.1.2019 15:32)

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

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

Předem děkuji

Odemknout list a zamknout (10.1.2019 9:39)

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

Makro - přenos dat z jednoho souboru do druhého (15.11.2018 15:48)

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.

Makro - přenos dat z jednoho souboru do druhého (15.11.2018 14:47)

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.

Makro - přenos dat z jednoho souboru do druhého (15.11.2018 10:55)

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.

Makro - přenos dat z jednoho souboru do druhého (15.11.2018 8:29)

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

Makro - přenos dat z jednoho souboru do druhého (14.11.2018 19:28)

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.

Makro - vytváření historie2 (12.8.2018 10:32)

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

Makro - vytváření historie2 (12.8.2018 7:44)

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. 4 Je možné, že dělám něco špatně?

Děkuji za váš čas.

Makro - vytváření historie2 (11.8.2018 19:29)

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

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


Strana:  1 ... « předchozí  36 37 38 39 40 41 42 43 44

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