MS Excel

Ahoj,

měl bych prosbu zda mi někdo pomůže s tímto:

Potřebuji aby bylo v souboru Packing List.xlsm tlačítko, které zkopíruje A8 až G24 do druhého sešitu Data.xls hned na začátek. Tlačítko vždy data v souboru přepíše.
Podmínka je, že soubor Data musí mít příponu .xls (Excel 97-2003), protože z tohoto souboru pak tahá informace jiný program který nepodporuje novější verzi.

Děkuji za pomoc.
Luboš

Zaslat odpověď >

vovka.h(7.2.2016 0:06)#029938

To dokážete sám s pomocí makrokamery. Otevřete současně oba sešity, přepněte se do sešitu se zdrojem dat a spusťte makrokameru. Proveďte ručně požadovanou operaci včetně návratu do zdrojového sešitu. Ukončete nahrávání a do zdrojového sešitu přidejte tlačítko, jemuž přidělíte do vlastnosti Makro jméno vygenerované procedury. K provádění kódu z makra bude nutné, aby přijímající sešit byl otevřený (nahrát data do zavřeného sešitu nejde).citovat

tarvisio(7.2.2016 8:23)#029946

Dekuji za pomoc. Mylslel jsem ze to pujde udelat i do zavreneho sesitu.(nebo vytvorit vzdy novy sesit).citovat

Hav-Ran(7.2.2016 9:32)#029947

A čo tak vytvoriť súbor Data.xls , ktorý si automaticky naťahá dáta zo súboru Packing List.xlsm a tento po aktualizácii sa zatvorením sám uloží. Netreba pritom žiadne makro ...Otvor oba súbory z jedného adresára a ulož najprv Packing a potom Data. Vzťah vzorcov bude tak zakonzervovaný a automaticky sa bude aktualizovať, ak to samozrejme uložíš do Dôveryhodného umiestnenia v ochrannom nastavení svojho Excelu (Možnosti-Dôveryhodné umiestnenie či ako ...)

Příloha: zip

29947_packinglist.zip (21kB, staženo 28x)

citovat

tarvisio(7.2.2016 10:54)#029949

Díky za pomoc, použiju jednu z navrhovaných variant.citovat

elninoslov(7.2.2016 12:02)#029951

Ak to bude vzorcami tak si overte či ten "jiný program" zožerie tie 0 (nuly) ktoré vzniknú ťahaním prázdnej bunky vzorcom. Ak nie tak vzorce upravte takto:
=IF('[Packing List.xlsm]LIST'!A9=0;"";'[Packing List.xlsm]LIST'!A9)
=KDYŽ('[Packing List.xlsm]LIST'!A9=0;"";'[Packing List.xlsm]LIST'!A9)

Ak to chcete makrom, tak by som nepoužil nahrávanie makra ale niečo takéto:
Sub Kopiruj()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\Data.xls"
.DisplayAlerts = True
With Workbooks("Data.xls")
.Worksheets("Data").Cells(2, 1).Resize(16, 6).Value = ThisWorkbook.Worksheets("LIST").Cells(9, 1).Resize(16, 6).Value
.Close SaveChanges:=True
End With
.ScreenUpdating = True
End With
End Sub

A načo tam máte zlúčené bunky, keď ich evidentne nepotrebujete ?citovat

Téma: Kopírování dat do nového sešitu tlačítkem

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Makro smyčka

Makro smyčka

Čas od do

Čas od do

Čas od do

Čas od do

Čas od do