Excel - propojení sešitu a jejich aktualizace

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

p.bublik
Level 2
Level 2
Příspěvky: 227
Registrován: únor 12
Bydliště: Jižní čechy
Pohlaví: Muž
Stav:
Offline

Excel - propojení sešitu a jejich aktualizace

Příspěvekod p.bublik » 05 pro 2014 19:57

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
Přílohy
Výstřižek.JPG

Reklama
Uživatelský avatar
mike007
Master Level 7.5
Master Level 7.5
Příspěvky: 5860
Registrován: srpen 07
Bydliště: Pardubice
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Excel - propojení sešitu a jejich aktualizace

Příspěvekod mike007 » 07 pro 2014 21:44

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:

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-helpJak 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
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12867
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Propojení soundbaru s TV
    od Zakk » 11 led 2025 23:05 » v Vše ostatní (hw)
    1
    2327
    od Melvidor Zobrazit poslední příspěvek
    12 led 2025 12:01
  • Propojení TV-NTB přes HDMI/USB-C
    od bradto » 26 bře 2025 20:22 » v Vše ostatní (hw)
    16
    10920
    od šulda Zobrazit poslední příspěvek
    28 bře 2025 21:30
  • Propojení Mixu UI24 a wifi routeru
    od huri » 17 říj 2024 17:59 » v Problémy s hardwarem
    1
    1946
    od zeus Zobrazit poslední příspěvek
    17 říj 2024 21:12
  • Nejde nainstalovat aktualizace Win 10 64 (KB5046613)
    od Minapark » 16 lis 2024 09:04 » v Windows 11, 10, 8...
    8
    4426
    od Minapark Zobrazit poslední příspěvek
    20 lis 2024 12:00

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů