Ahoj,
potřeboval bych radu jestli lze udělat nějaké makro, které když upravím se projeví na více listech najednou.
Např:
Mám 12 listů označených 01...12 a na 01 udělám makro že se sečtou data v sloupcích B a C a výsledek bude na D a ten se zkopíruje na G
a pro ostatní listy to musím v VBA ručně zkopírovat pro všech 12 listů.
Ale když pak potřebuji ještě v 01 něco poupravit tak zas musím vše ručně upravovat.
Ale kdyby bylo něco čím bych to upravil v jednom listě a to se zároveň udělalo i v dalších.
Děkuji za pomoc
Makro pro více listů Vyřešeno
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro pro více listů
Vítej na PC-help.
Proč tak složitě? Napiš si makro, které ti najednou upraví všechny záložky ...
případně si další záložky provzorečkuj
Proč tak složitě? Napiš si makro, které ti najednou upraví všechny záložky ...
Kód: Vybrat vše
Sub makro()
Dim ws As Worksheet
For Each ws In Worksheets
....
Next
End Sub
případně si další záložky provzorečkuj
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.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Makro pro více listů
Ahoj,
dík za přivítání.
Ale asi jsem to nepochopil
Tak přikládám soubor kde je k ukázce mé makro - modul 2 a to z předcozího příspěvku - modul 1
Dík
dík za přivítání.
Ale asi jsem to nepochopil
Tak přikládám soubor kde je k ukázce mé makro - modul 2 a to z předcozího příspěvku - modul 1
Dík
- Přílohy
-
- makro_kopirovani.xls
- (108.5 KiB) Staženo 51 x
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Makro pro více listů
Pokud nejsou ve sloupci AT2:AT333 potrebne vzorce, potom procedura muze vyadat takto (ve standardnim modulu, modifikuj dle potreby):
Kód: Vybrat vše
Option Explicit
Sub makro()
Dim Wsht As Worksheet, Blk As Range, Cll As Range
' pro vsechny listy mimo list prehled
For Each Wsht In ThisWorkbook.Worksheets
If Wsht.Name <> "prehled" Then
With Wsht
' vlozit a formatovat hlavicku sloupce
With .Range("AT1")
.Value = "souctik"
With .Font
.Name = "Arial"
.Bold = True
.Size = 10
End With
End With
' definovat blok souctu
Set Blk = Wsht.Range("at2:at333")
' secit dvojice bunek ATxx = AKxx + AMxx
For Each Cll In Blk.Cells
With Cll
.Value = .Offset(0, -9).Value + .Offset(0, -7).Value
End With
Next Cll
' prekopirovat sloupec A:A > AS:AS
.Range("as:as").Value = .Range("a:a").Value
End With
End If
Next
End Sub
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Makro pro více listů
To je úplně ono
Díky moc.
Ale ještě jedna malá otázečka, když přidám nový list jak ho vyřadím z toho makra tak jako "prehled"?
Nějak se mi to nedaří
Díky moc.
Ale ještě jedna malá otázečka, když přidám nový list jak ho vyřadím z toho makra tak jako "prehled"?
Nějak se mi to nedaří
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Makro pro více listů
V procedure uprav radek na tvar:
If Wsht.Name <> "prehled" And Wsht.Name <> "jmenolistu" Then
If Wsht.Name <> "prehled" And Wsht.Name <> "jmenolistu" Then
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Makro pro více listů Vyřešeno
Dík moc.
Já tam dával znaky jak ve vzorcích a tak, ale dát tam zase "Wsht.Name <>" to mě nenapadlo.
Já tam dával znaky jak ve vzorcích a tak, ale dát tam zase "Wsht.Name <>" to mě nenapadlo.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 2241
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
-
- 9
- 1280
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 7
- 744
-
od atari
Zobrazit poslední příspěvek
dnes, 09:56
-
- 2
- 982
-
od Myerina
Zobrazit poslední příspěvek
20 dub 2024 11:36
-
-
Jak přidám více monitorů do mini Windows PC.
od holatir427 » 06 lis 2023 13:59 » v Problémy s hardwarem - 8
- 1494
-
od mmmartin
Zobrazit poslední příspěvek
04 led 2024 11:27
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti