< návrat zpět

MS Excel

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

Zaslal/a tarvisio 6.2.2016 22:40

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š

Příloha: zip29935_packing-list.zip (14kB, staženo 24x)
Zaslat odpověď >
vovka.h(7.2.2016 0:06)#029938
avatar
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
avatar
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
Hav-Ran
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: zip29947_packinglist.zip (21kB, staženo 28x)
citovat
tarvisio(7.2.2016 10:54)#029949
avatar
Díky za pomoc, použiju jednu z navrhovaných variant.citovat
elninoslov(7.2.2016 12:02)#029951
elninoslov
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje