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


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4832
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12250
    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
    1936
    od Melvidor Zobrazit poslední příspěvek
    12 led 2025 12:01
  • Aktualizace Win.11
    od DancaDvor » 27 srp 2024 06:54 » v Windows 11, 10, 8...
    4
    3258
    od kecalek Zobrazit poslední příspěvek
    28 srp 2024 19:35
  • Propojení TV-NTB přes HDMI/USB-C
    od bradto » 26 bře 2025 20:22 » v Vše ostatní (hw)
    16
    8669
    od šulda Zobrazit poslední příspěvek
    28 bře 2025 21:30

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

Kdo je online

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