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: 220
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 pište do fóra. Od toho tu je.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • propojení routeru a switche Příloha(y)
    od sandy22 » 08 říj 2023 18:58 » v Sítě - hardware
    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

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

Kdo je online

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