MS Excel

Téma: jednoduché makro

Zaslal/a Kakashi24 7.2.2018 12:55

Dobrý den, potřeboval bych pomoct s tvorbou jednoduchého makra. Jsem úplný začátečník, věnující se této tématice pouhých 14 dní. Jedná se mi o úplně jednoduchou věc. Mám soubor "A" umístěný na distku D:/složka/nazev souboru.xlsm, tento soubor obsahuje list "SEND", kde jsou uloženy v bunkách hodnoty a formátování, sloučené bunky atd., žádné vzorce. Já bych rád makro, které by vzalo tento list a vložilo ho celý jak je do souboru "B", který je umístěný na disku S:/složka/nazev souboru.xlsm. A který obsahuje list "TOTAL" Já bych rád aby makro v souboru "A" otevřelo soubor "B" list "TOTAL" a vložilo celý obsah listu "SEND" souboru "A" do tohoto listu. Chápu že to je asi triviální dotaz a že to makro je jednoduché, ale bohužel v současné době nemám na něj dostatečné znalosti. Předem děkuji za jakoukoli radu a pomoc.

Zaslat odpověď >

Vovka(9.2.2018 9:40)#039415

Tak dlouhé čekání na odpověď tady není obvyklé. Proto odpovídám. Dalo by se to napsat stručněji, ale kvůli čitelnosti to je také okomentované. Proceduru KopieListu umístěte do standardního modulu ve zdrojovém sešitě.
Sub KopieListu()
Dim Venku As Workbook
Application.ScreenUpdating = False
' příprava přijímajícího sešitu
Workbooks.Open "S:\složka\nazev souboru.xlsm"
Sheets("TOTAL").Select
Range("A1").Select
Set Venku = ActiveWorkbook
' návrat do zdrojového sešitu pro obsah listu
ThisWorkbook.Activate
Sheets("SEND").Select
Cells.Copy
' přenos dat do přijímajícího sešitu
Venku.Activate
ActiveSheet.Paste
Range("A1").Select
' uložení a zavření přijímajícího sešitu
With Venku
.Save: .Close
End With
' úklid ve zdrojovém sešitě
ThisWorkbook.Activate
Application.CutCopyMode = False
Range("A1").Select
' zpráva o provedení
MsgBox "Přenos byl proveden"
End Sub
citovat

Téma: jednoduché makro

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje