Makra v Excelu
- Střelec 5
- Level 1.5
- Příspěvky: 122
- Registrován: srpen 07
- Bydliště: Východní Čechy
- Pohlaví:
- Stav:
Offline
A tady stejná tabulka ale v jiném sešitu než předchozí ,z které se data budou pomocí maker kopírovat sem a to podle barev. Totožná barva k té samé barvě v tomto sešitu a do stejných buněk. Samozřejmě sešity jsou 2 ks a jde o to ze sešitu č.1 třeba zmáčknutím tlačítka data exportovat do tabulky druhé (této),která muže být buď zavřená a nebo otevřená.A nebo to bude transportovat data samo,nevím co je možné vytvořit v excelu.
Střelec 5
- Střelec 5
- Level 1.5
- Příspěvky: 122
- Registrován: srpen 07
- Bydliště: Východní Čechy
- Pohlaví:
- Stav:
Offline
senior37 píše:Podľa toho čo píšeš som pochopil, že potrebuješ data ktoré sa menia, poslať (vyexportovať) do inej tabuľky, kde už budú len samotné údaje, teda čísla ale nepreviazané vzorcami, čiže sa nezmenia ak sa zmenia údaje v zdrojovej tabuľke. Príklad, môže byť uzavretý výkaz údajov z procesu za určité obdobie.
Riešenie by so videl v systeme premenných vo VBA. Teda asi takto:
Cieľový zošit musí byť pre spustením makra zatvorený, otvorí ho makro. Toto je najjednoduchší spôsob exportu. V prípade, že do cieľového zošita budeš potrebovať nahrávať incrementalne, napr jeden deň = 1 riadok, čim budeš vytvárať dajaku históriu, poriešime to nabudúce, keď vyskúšaš toto. Ešte aby som nezabudol, po vytvorenom makre si vytvor tlačítko v zdrojovom zošite aj liste ato z ponúky: Zobraziť > Panely s nástrojmi > Formuláre a k tomu tlačítku priradiš toto makro.
Todle je to co by bylo dobré,jen to zkouším jak udělat makro a nejde mi to makro udělat,nefunguje.Asi dělám něco špatně.Ale co??
Střelec 5
Ty tabulky jsou naprosto shodné. Takže, jak jsem to pochopil, barvy tam nehrají žádnou roli, protože data napsaná v první tabulce budou na naprosto shodných pozicích v druhé tabulce. V tom případě bude nejjednodušší zkopírovat celou tabulku najednou.
Nebo je někde háček? Třeba v první tabulce se data vyplňují průběžně (např. každý den jen jeden sloupec) a přenesou se do druhé tabulky, kde se nějak upraví, takže si po pár dnech data ve stejných sloupcích neodpovídají?
Nebo ti jde jen o to, že např. 4. den v měsíci vyplníš sloupec 4 a chceš aby se přenesly jen tato nová data do sloupce 4 ve druhé tabulce?
Nebo je někde háček? Třeba v první tabulce se data vyplňují průběžně (např. každý den jen jeden sloupec) a přenesou se do druhé tabulky, kde se nějak upraví, takže si po pár dnech data ve stejných sloupcích neodpovídají?
Nebo ti jde jen o to, že např. 4. den v měsíci vyplníš sloupec 4 a chceš aby se přenesly jen tato nová data do sloupce 4 ve druhé tabulce?
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!
Skúsil som to čo som napísal skopírovať do makra včítane poznámok a dopadlo to takto. V prvom riadku som urobil chybu, namiesto Worksheets("Sheet1") malo byť Worksheets("Sheet1").Select, sorry. Ostatné riadky boli v poriadku, ale pri kopírovaní z html sa nejakým spôsobom vsunuli medzery do reťazca pre premenné ako tep = Range ("D4").Value ' premenná pre teplotu ale iba u premenných pre načítanie a nie pre zápis správne ma byť: tep medzera=medzeraRangemedzera("D4").Value. Alebo skús skopírovať do vytvoreného modulu toto:
Sub Export()
' Export Macro
Worksheets("Hárok1").Select 'tento riadok možno vynechať, ak budeš makro spúšťať napr. tlačitkom z tohoto listu. Namiesto ("Sheet1") napíš ("skut. názov listu")
rp1 = Range("C6").Value
rp2 = Range("C7").Value
skl1 = Range("C8").Value
skl2 = Range("C9").Value
rp1a = Range("D6").Value
rp2a = Range("D7").Value
skl1a = Range("D8").Value
skl2a = Range("D9").Value
Workbooks.Open Filename:="C:\Data\Výkazy\Cieľ.xls"
Worksheets("Hárok1").Select
Range("C6") = rp1
Range("C7") = rp2
Range("C8") = skl1
Range("C9") = skl2
Range("D6") = rp1a
Range("D7") = rp2a
Range("D8") = skl1a
Range("D9") = skl2a
ActiveWorkbook.Save ' Uloženie cieľového zošitu
ActiveWorkbook.Close ' Zavretie cieľového zošitu
End Sub
Názov zošitov je Zdroj.xls a Cieľ.xls
Sub Export()
' Export Macro
Worksheets("Hárok1").Select 'tento riadok možno vynechať, ak budeš makro spúšťať napr. tlačitkom z tohoto listu. Namiesto ("Sheet1") napíš ("skut. názov listu")
rp1 = Range("C6").Value
rp2 = Range("C7").Value
skl1 = Range("C8").Value
skl2 = Range("C9").Value
rp1a = Range("D6").Value
rp2a = Range("D7").Value
skl1a = Range("D8").Value
skl2a = Range("D9").Value
Workbooks.Open Filename:="C:\Data\Výkazy\Cieľ.xls"
Worksheets("Hárok1").Select
Range("C6") = rp1
Range("C7") = rp2
Range("C8") = skl1
Range("C9") = skl2
Range("D6") = rp1a
Range("D7") = rp2a
Range("D8") = skl1a
Range("D9") = skl2a
ActiveWorkbook.Save ' Uloženie cieľového zošitu
ActiveWorkbook.Close ' Zavretie cieľového zošitu
End Sub
Názov zošitov je Zdroj.xls a Cieľ.xls
- Střelec 5
- Level 1.5
- Příspěvky: 122
- Registrován: srpen 07
- Bydliště: Východní Čechy
- Pohlaví:
- Stav:
Offline
Tabulky co jsem poslal jsou stejné ale ,každá je v jiném sešitu s jiným názvem na která navazují jiné další data a grafy ,barvy nejsou důležité jen ukazují kam se která data dopisují.Data se do tabulky doplňují každou hodinu podle stavu na dílně. Jen co jsem tady na fóru našel hodiny do buňky a ty jsou také na makro.Nebudou se makra mezi sebou tlouci a dělat neplechu??
Střelec 5
Nebudú.Střelec 5 píše::wink: Tabulky co jsem poslal jsou stejné ale ,každá je v jiném sešitu s jiným názvem na která navazují jiné další data a grafy ,barvy nejsou důležité jen ukazují kam se která data dopisují.Data se do tabulky doplňují každou hodinu podle stavu na dílně. Jen co jsem tady na fóru našel hodiny do buňky a ty jsou také na makro.Nebudou se makra mezi sebou tlouci a dělat neplechu??
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 424
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 18
- 3577
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 0
- 812
-
od Jsimi
Zobrazit poslední příspěvek
06 úno 2024 22:43
-
- 2
- 1316
-
od X
Zobrazit poslední příspěvek
02 čer 2023 18:06
-
- 1
- 1813
-
od atari
Zobrazit poslední příspěvek
28 dub 2023 12:08
Kdo je online
Uživatelé prohlížející si toto fórum: Seznam[Bot] a 6 hostů