Ahoj lidi, můžete mi prosím někdo poradit, děkuji.
Mám následující problém, mám Excelovský sešit s mnoha listy na kterých jsou data vždy k jednomu vozidlu, potřebuji vytvořit makro, které přenese potřebná data z konkrétního listu, do listu posledního, který je specielně naformátován pro tisk. Nechci ale dělat makro pro každý list zvlášť a tak dotaz zní, zda je možné vytvořit univerzální makro, které by si jako zdrojovou oblast dat samo do sebe uložilo adresu listu, ze kterého bylo stisknuto tlačítko? Bohužel kvůli přehlednosti se nejedná o konzistentní pole s daty, ale o jednotlivé buňky rozházené po listě. Jsou však na každém listě na stejném místě. Takže je potřeba měnit opravdu pouze adresu listu.
Děkuji za pomoc a doufám že jsem to napsal pochopitelně, kdyžtak dovysvětlím.
Viktor
EXCEL - Makro volající list s podmíněnou adresou
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: EXCEL - Makro volající list s podmíněnou adresou
Vítej na PC-Help
To by snad neměl být problém. Můžeš sem vložit ten dokument, abych viděl o co jde?
To by snad neměl být problém. Můžeš sem vložit ten dokument, abych viděl o co jde?
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: EXCEL - Makro volající list s podmíněnou adresou
Obsahuje to důvěrné informace, tak jsem je smazal a tak jsou pole prázdná, ale i tak si myslím uděláš jasnou představu.
Jde o to, aby po stisku tlačítka"Tisk předávacího protokolu" na listu třeba "list1" se přenesla potřebná data z "list1" na list "Předávací protokol" a tento se vytiskl. Pokud by to bylo tlačítko na "list2" aby se přenesla data z "list2" atd.
Díky,
Viktor
Jde o to, aby po stisku tlačítka"Tisk předávacího protokolu" na listu třeba "list1" se přenesla potřebná data z "list1" na list "Předávací protokol" a tento se vytiskl. Pokud by to bylo tlačítko na "list2" aby se přenesla data z "list2" atd.
Díky,
Viktor
- Přílohy
-
- Vozidla4net.xls
- (153 KiB) Staženo 54 x
Viktor
Re: EXCEL - Makro volající list s podmíněnou adresou
Myslel lsem třeba nějak takhle:
Přičemž právě potřebuji nějak udělat aby ta adresa R[x] byla proměnná podle toho z jakého listu je to tlačítko stisknuto.
Viktor
Sub TiskPP()
'
' TiskPP Makro
' Makro zaznamenané 18.3.2008
'
'
Sheets("Předávací protokol").Select
Range("C3:D3").Select
ActiveCell.FormulaR1C1 = "=DATA!R[-1]C[-2]"
Range("G3:H3").Select
ActiveCell.FormulaR1C1 = "=DATA!R[-1]C[-5]"
Range("K3:L3").Select
ActiveCell.FormulaR1C1 = "=DATA!R[-1]C[-8]"
Range("C4:D4").Select
ActiveCell.FormulaR1C1 = "=DATA!R[-2]C[3]"
Range("K4:L4").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("C5:D5").Select
ActiveCell.FormulaR1C1 = "=DATA!R[-3]C[4]"
Range("G5:H5").Select
ActiveCell.FormulaR1C1 = "=DATA!R[-3]C[1]"
Range("C6:J6").Select
atd... atd...
Přičemž právě potřebuji nějak udělat aby ta adresa R[x] byla proměnná podle toho z jakého listu je to tlačítko stisknuto.
Viktor
Viktor
Re: EXCEL - Makro volající list s podmíněnou adresou
Stačí když makro pro zkopírování dat napíšeš takto a přiřadíš ho ke všem tlačítkům pro tisk protokolu:
Pokud na některém listu zmáčkneš tlačítko pro tisk protokolu, pak se tento aktivní list "označí" jako Zdroj a list "Předávací protokol" (list s indexem 6) se označí jako Cíl. Pak můžeš zkopírovat data ze zdrojového listu na předávací protokol přímo a nemusíš používat mezistupeň - list "DATA". Jeden příklad pro zkopírování SPZ jsem napsal, ať víš, jak na to.
Kód: Vybrat vše
Sub Protokol()
Set Zdroj = ActiveSheet
Set Cíl = Worksheets(6)
Cíl.Range("C3") = Zdroj.Range("B1")
End Sub
Pokud na některém listu zmáčkneš tlačítko pro tisk protokolu, pak se tento aktivní list "označí" jako Zdroj a list "Předávací protokol" (list s indexem 6) se označí jako Cíl. Pak můžeš zkopírovat data ze zdrojového listu na předávací protokol přímo a nemusíš používat mezistupeň - list "DATA". Jeden příklad pro zkopírování SPZ jsem napsal, ať víš, jak na to.
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: EXCEL - Makro volající list s podmíněnou adresou
Dobrá práce Mikeli.
Já se k tomu dostal před hodinou a začal jsem vymýšlet složitější procedury.
Tohle je určitě jednodušší.
Já se k tomu dostal před hodinou a začal jsem vymýšlet složitější procedury.
Tohle je určitě jednodušší.
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: EXCEL - Makro volající list s podmíněnou adresou
To jsou ještě pozůstatky hodin Programování, kdy mi náš profesor hodně vtloukal do hlavy zásadu KISS
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
Re: EXCEL - Makro volající list s podmíněnou adresou
Byl jsem teď mimo republiku, tak jsem se sem dostal až teď. Děkuji moc za radu, to je přesně to co jsem potřeboval, jen nevěděl jak by to mělo být přesně napsáno.
Ještě jednou díky.
Ještě jednou díky.
Viktor
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - filtr hyperlinku na druhý list Příloha(y)
od mikiracan » 06 čer 2023 11:49 » v Kancelářské balíky - 2
- 2728
-
od mikiracan
Zobrazit poslední příspěvek
18 srp 2023 10:17
-
-
- 9
- 1228
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 16
- 6692
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 2
- 1973
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
-
- 5
- 2763
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů