MS Excel

tu prikladam dve moznosti prva je kde pozera vsetky otvorene workbook a do kazdeho ineho to hodi. druha moznost je presne definovana oblast.

Sub test1()
Dim aExcel As Workbook
Dim aSheet As Worksheet
Range("A3:I10").Copy
For Each aExcel In Workbooks
If Not aExcel Is ThisWorkbook Then aExcel.ActiveSheet.Paste
Next
End Sub

Sub test2()
Range("A3:I10").Copy
Windows("test2.xlsx").Activate
Range("A3").Select
ActiveSheet.Paste
End Subcitovat

Sorry za otázku. A tie inštancie sú otvorené na tom istom počítači? Lebo z otázky to nie je zrejmé. citovat

ano, na jednom PCcitovat

nějak se mi to nedaří. zkoušel jsem i toto
https://stackoverflow.com/questions/46506734/copy-and-paste-between-different-excel-instancescitovat

to jsem zkoušel, ale jedná se o toto. používám excel jako časomíru k závodům, ten druhý, soubor out, má sloužit jako online náhled výsledků pro závodníky. Tam chci kopírovat aktuální výsledky, vždy jak někdo doběhne do cíle. to umím, ale dále chci, aby výsledky , když bude zaplněn poslední řádek, automaticky rotovaly (po 15 s), tzn. nejdříve řádky 0-27, pak po 15 s se ukážou řádky 28-64 atd., a pořád dokola.nato nemohu přijít a udělat to tak, abych neomezil excel, kde pořád dál měřím výsledk. kdyby to šlo udělat v jedné instanci, tak by mi to nevadilo, ale nevím jak.citovat