< návrat zpět

MS Excel


Téma: Přenos dat sešit/sešit s časovou konstantou rss

Zaslal/a 3.1.2014 19:36

Potřeboval bych pomoci vytvořit makro ,které bude přenášet data ze sešitu zdroj do sešitu simulator podle následujícího principu .Hodnoty ze dvou řádku najednou takto:G2(zdroj) do F5(simulator),dále M2-H5,H3-F6,M3-H6 a po 1 vteřině by se v simulatoru hodnoty aktualizovaly z dalších dvou řádků,tedy:G4-F5,M4-H5,H5-F6,M5-H6 atd.Přikládám oba soubory.
https://dl.dropboxusercontent.com/u/65338933/soubory.rar

Zaslat odpověď >

#017074
avatar
akoze stanzil som sa to nejak pochopit ale nepodarilo sato :))

vprincipe potrebujete nieco co by po 1s aktualizovalo data z ineho dokumentu

takze moja rada:
- urobte si makto v simulator na OnTime
- potom si tam dorobte otvaranie suboru v pozadi tj. Zdroj
- a nakoniec do toho makra dopiste to co presne potrebujete aktualizovat ... a to uz som nepochiopil co presne potrebujete

vypadalo by to asi takto:
Private xl As Excel.Application
Private W As Workbook

Sub Timer()
Set xl = CreateObject("Excel.Application")
Set W = xl.Workbooks.Open(Application.ThisWorkbook.Path & "\zdroj.xlsm")

cells(1,1) = w.cells(1,1)

W.Close False
Set xl = Nothing
Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub


pre efektivnost by bolo lepsie to otvaranie dokumentu vyhodit z cyklu a otvorit a zatvorit ho len razcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje