Ahoj,
chtěl jsem se zeptat, zda jde nastavit a případně jak v Excelu propojení více sešitů do jednoho a jeho následná aktualizace.
Příklad: soubor.xlsx má (sdíleno - otevřeno třeba na 5PC) v tomto souboru je odkaz na buňku umístěnou v souboru např. narozeniny.xlsx
Nyní bych potřeboval, když v narozeninách udělám změnu v buňce tak aby se změna provedla na všech PC bez nutnosti vypnout a zase zapnout s načtením aktuálních dat soubor.xlsx
Zkoušel jsem nastavit Připojení sešitu (doufám, že správně) viz přiložený obrázek a bohužel to nefunguje. Změna se projeví jen na PC kde provedu změnu v narozenin, ale ne na ostatních PC bez retartu souboru.xlsx
Nevím jak dál, byl bych rád když někdo poradí nebo jestli nějaký vhodný makro? aktualizace třeba 1xza 2hodiny a tak.
Děkuji
Excel - propojení sešitu a jejich aktualizace
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel - propojení sešitu a jejich aktualizace
Na aktualizování linků a také automatické uložení xls(m) používám makro níže. Interval updatu se nastavuje u Const TimeOut.
Nakopíruj do modulu:
Nakopíruj do ThisWorkbook:
Makro se spustí při otevření xls(m) a pak každých x minut.
Nakopíruj do modulu:
Kód: Vybrat vše
Public vartimer As Variant
Const TimeOut = 5 ' 5 minut
Sub autoupdate()
' provedeme update
On Error Resume Next
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
On Error GoTo 0
ActiveWorkbook.Save
'volame makro
Call cas
End Sub
Sub cas()
vartimer = Format(Now + TimeSerial(0, TimeOut, 0), "hh:mm:ss")
If vartimer = "" Then Exit Sub
Application.OnTime TimeValue(vartimer), "autoupdate"
End Sub
Sub ukladani()
On Error Resume Next
Application.OnTime earliesttime:=vartimer, _
procedure:="autoupdate", schedule:=False
On Error GoTo 0
End Sub
Nakopíruj do ThisWorkbook:
Kód: Vybrat vše
Private Sub Workbook_Open()
Call cas
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ukladani
End Sub
Makro se spustí při otevření xls(m) a pak každých x minut.
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.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 10
- 3329
-
od ITCrowd
Zobrazit poslední příspěvek
09 říj 2023 12:11
-
-
Propojení tabletu se 2 zařízeními
od zicomp » 24 kvě 2023 15:40 » v Mobily, tablety a jiná přenosná zařízení - 0
- 1434
-
od zicomp
Zobrazit poslední příspěvek
24 kvě 2023 15:40
-
-
-
2 monitory na různých místech + propojení
od Asanoth » 04 bře 2024 11:25 » v Rady s výběrem hw a sestavením PC - 3
- 684
-
od Asanoth
Zobrazit poslední příspěvek
18 bře 2024 11:19
-
-
-
Instalace aktualizace pro Windows 10 Příloha(y)
od hanni2000 » 17 srp 2023 13:24 » v Windows 11, 10, 8... - 2
- 1103
-
od sim20
Zobrazit poslední příspěvek
17 srp 2023 14:46
-
-
-
Windows 10 - Chyba aktualizace 0x80070643
od nations112 » 12 led 2024 18:58 » v Windows 11, 10, 8... - 11
- 3652
-
od petr22
Zobrazit poslední příspěvek
12 bře 2024 21:46
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti