![elninoslov](./pictures/avatars/5a6387658a0f4.jpg)
Ten tretí kód, štvrtá procedúra, je divný. Čo má robiť ten vzorec ? Na čo je tam VALUE a INDIRECT ? Nestačí priamy odkaz na zošit ? Veď ak vkladáte vzorec makrom, tak predpokladám, že ho vkladáte pri zmene v tom listboxe. Alebo nie ? A určite nestačí Formula namiesto ArrayFormula ? Bez prílohy ani ranu !
Sub vyber1(OznacenySoubor As String)
Application.Workbooks.Open ("C:\Users\usr1\Desktop\J\" & OznacenySoubor), UpdateLinks:=0
Workbooks(OznacenySoubor).Worksheets("Data").Range("A40:B65").Copy
End Sub
Polepšite sa
![4](./plugins/templates/wall_2C/images/smileys/4.gif)