Ještě upřesním, že kopírované buňky (B4:Y48) se vždy nacházejí v sešitě "výkony"citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: kopírování dané oblasti buněk do jiného souboru
MS Excel
Téma: kopírování dané oblasti buněk do jiného souboru 
Zaslal/a petrnavra 9.3.2016 14:52
Zdravím vás pánové.
Potřebuji od Vás pomoc s makrem, které by mi umožnilo, pomocí kliknutí na tlačítko, vybrat soubor(vždy to bude soubor "něco_výkony_LINX");(něco = vždy jiné označení), následně otevřít, zkopírovat pevně danou oblast buněk(B4:Y48) do jiného souboru ("STŘIHAČKA - pomůcka") do buňky A2 a otevřený soubor následně zavřít.
Mockrát děkuji za rady
Předpokládám že makro budeš spouštět z cílového souboru. Pak je třeba někde si definovat to "něco".
Application.ScreenUpdating = False
Dim nazev As String
Dim soubor as String
Dim ws1 As Worksheet
nazev = "výkony" 'jméno listu ze kterého budeme kopírovat
soubor = "C:\něco_výkony_LINX.xlsx" 'zdrojový soubor
Dim wb As Workbook
Set ws1 = Sheets("výkony") 'Název listu do kterého budeme kopírovat
Set wb = Workbooks.Open(soubor, False, True)
Dim ws2 As Worksheet
Set ws2 = wb.Sheets(nazev)
ws2.range("B4:Y48").copy
ws1.range("A2").PasteSpecial xlPasteAll
wb.Close False
Application.ScreenUpdating = True
citovat
Application.ScreenUpdating = False
Dim nazev As String
Dim soubor as String
Dim ws1 As Worksheet
nazev = "výkony" 'jméno listu ze kterého budeme kopírovat
soubor = "C:\něco_výkony_LINX.xlsx" 'zdrojový soubor
Dim wb As Workbook
Set ws1 = Sheets("výkony") 'Název listu do kterého budeme kopírovat
Set wb = Workbooks.Open(soubor, False, True)
Dim ws2 As Worksheet
Set ws2 = wb.Sheets(nazev)
ws2.range("B4:Y48").copy
ws1.range("A2").PasteSpecial xlPasteAll
wb.Close False
Application.ScreenUpdating = True
citovat
Alebo aj bez makra.
1. Do Tabuľky v zošite "Výběr.xlsx" pripísať to "něco".
2. Ak bude vykonaná nejaká zmena v tejto Tabuľke, tak v "STŘIHAČKA - pomůcka.xlsx" sa postaviť na B4 a upraviť definovaný názov HDN, potom dať Obnoviť všetko na karte Údaje, inak netreba.
3. Iba meniť vo "Výběr.xlsx" rozbaľovací zoznam v D1. Na základe tejto bunky sa "STŘIHAČKA - pomůcka.xlsx" aktualizuje.
1. Do Tabuľky v zošite "Výběr.xlsx" pripísať to "něco".
2. Ak bude vykonaná nejaká zmena v tejto Tabuľke, tak v "STŘIHAČKA - pomůcka.xlsx" sa postaviť na B4 a upraviť definovaný názov HDN, potom dať Obnoviť všetko na karte Údaje, inak netreba.
3. Iba meniť vo "Výběr.xlsx" rozbaľovací zoznam v D1. Na základe tejto bunky sa "STŘIHAČKA - pomůcka.xlsx" aktualizuje.
Příloha: 
30753_kopiruj-z.zip (71kB, staženo 23x)
citovat30753_kopiruj-z.zip (71kB, staženo 23x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články