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 SubNakopí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 SubMakro 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 prosím 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 prosím pište do fóra. Od toho tu je.
- 
				
- Mohlo by vás zajímat
 - Odpovědi
 - Zobrazení
 - Poslední příspěvek
 
 
- 
				
- 2
 - 13967
 - 
						od Snekment
						Zobrazit poslední příspěvek 
29 led 2025 15:05
 
 - 
				
- 1
 - 3381
 - 
						od Melvidor
						Zobrazit poslední příspěvek 
12 led 2025 12:01
 
 - 
				
- 16
 - 13648
 - 
						od šulda
						Zobrazit poslední příspěvek 
28 bře 2025 21:30
 
 - 
				
- 13
 - 6048
 - 
						od MonikaVavrova
						Zobrazit poslední příspěvek 
22 říj 2025 13:06
 
 - 
				
- 10
 - 992
 - 
						od Prorock
						Zobrazit poslední příspěvek 
včera, 15:01
 
 
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 19 hostů


