MS Excel

Dobrý den, po několika marných pokusech zkopírovat odněkud a upravit funkční makro se obracím na vás s prosbou a vložení funkčního kódu s těmito požadavky:
Potřebuji zkopírovat data Z:
Zdroj.xlsm List1 Rozsah: A1:S25
DO: Cil.xlsx název listu, do kterého se mají data zkopírovat dynamicky přečíst z buňky AO1 zdrojového souboru
Nakonec uložit a zavřít oba sešity.
Pro jistotu: umístění obouklsouboru: C:\Pokus
Předem moc děkuji

Zaslat odpověď >

daal(4.2.2016 20:40)#029881

Dobrý den,

toto:

"DO: Cil.xlsx název listu, do kterého se mají data zkopírovat dynamicky přečíst z buňky AO1 zdrojového souboru"

nedává moc smysl. "do kterého"znamená souboru s nějakým názvem nebo složky? Název se může měnit? Nebo co?citovat

daal(4.2.2016 20:46)#029882

už chápu, sorry, za pár pošlucitovat

hard(4.2.2016 20:49)#029883

Máte pravdu, napsal jsem to zmatečně, zkrátka do jakého listu se mají data zkopírovat je proměnlivá hodnota (není podstatné), cílové umístění bude přečteno z buňky AO1 (makro přečte Text: např. "list1"), což bude název listu, kam se mají data vložit. Adresa umístění tedy není pevně daná.citovat

daal(4.2.2016 21:44)#029885

Nepíšete o žádných omezeních, takže bez ověření (zámku, existence sešitu, listu, hodnoty apod.)

Viz. příloha

Příloha: txt

29885_code.txt (2kB, staženo 22x)

citovat

hard(4.2.2016 22:23)#029886

Děkuji moc, kód vypadá naprosto precizně, leč se mi nedaří data zkopírovat. Zároveň jste se správně zeptal na omezení, šlo by kód poupravit na to, že zdrojová data, data v listu1, budou zamčena, a to bez hesla? Můžete prosím Váš kód vložit a otestovat v mém pokusném souboru? Byl bych Vám opravdu vděčen.

Příloha: zip

29886_pokus.zip (25kB, staženo 22x)

citovat

daal(4.2.2016 23:01)#029889

Já volal oba sešity z jiného souboru, proto Vám to asi nefachalo :)

Tak zkuste:

Příloha: txt

29889_code.txt (2kB, staženo 25x)

citovat

daal(4.2.2016 23:05)#029890

Jestli chcete, aby se zavíral i ten zdrojový soubor, vložte před:

CopyData = True

toto:

ThisWorkbook.Close savechanges:=False

savechanges nastaveno na false neuloží data ve zdrojovém souboru, true naopak ano - tak pozorcitovat

hard(5.2.2016 0:09)#029892

Fantazie a hluboká poklona, moc děkuji!citovat

daal(5.2.2016 8:49)#029899

Koukám, že jsem se v tom posledním příspěvku upsal/ukopíroval

ThisWorkbook.Close savechanges:=False

vložte až za

If CopyData("C:\Pokus\Cil.xlsx") = False Then Exit Sub

No ráno moudřejší večera.

Měj te secitovat

Téma: Kopírovat data ze zdrojového do cílového sešitu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje