asi si zabudol aktivovať bunku A1 pred vložením oblasticitovat
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: Makro na kopírování
Ne nechci k predeslym, ale cele smazat a zadat aktualni datacitovat
Dim w As Workbook 'A
Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls")
Range("A1:AC2000").Select
Selection.Copy
w.Close SaveChanges:=True
Set w = Nothing
A ted, jenom vložit do souboru v kterém je makrocitovat
MS Excel
Téma: Makro na kopírování 
Zaslal/a Fantasyk 15.6.2020 5:05
Zdravím hackeři,
můžete mi někdo poradit kde mám chybu?
Dim w As Workbook 'A
Set w = Workbooks.Open(Filename:="adresa.xls")
ThisWorkbook.Sheets("Zpian").Range("A1:AC9999").Copy 'B
w.Sheets("zpian").Range("A1:AC9999").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
Application.CutCopyMode = False
w.Close SaveChanges:=True
Set w = Nothing
v tomhle: w.Sheets("zpian").Range("A1:AC9999").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
mi to píše chybu 
(15.6.2020 6:20)#046935
Oblasti v oboch zošitoch sú rovnaké? Nie sú tam zlúčené iné bunky, alebo na iných miestach?
Skúste zameniť xlAdd za xlPasteSpecialOperationAdd.
A určite chcete hodnoty pridávať k predošlým?citovat
Skúste zameniť xlAdd za xlPasteSpecialOperationAdd.
A určite chcete hodnoty pridávať k predošlým?citovat
elninoslov napsal/a:
Oblasti v oboch zošitoch sú rovnaké? Nie sú tam zlúčené iné bunky, alebo na iných miestach?
Skúste zameniť xlAdd za xlPasteSpecialOperationAdd.
A určite chcete hodnoty pridávať k predošlým?
elninoslov napsal/a:
Oblasti v oboch zošitoch sú rovnaké? Nie sú tam zlúčené iné bunky, alebo na iných miestach?
Skúste zameniť xlAdd za xlPasteSpecialOperationAdd.
A určite chcete hodnoty pridávať k predošlým?
Ne nechci k predeslym, ale cele smazat a zadat aktualni datacitovat
Bez skúšania od boku
Dim w As Workbook 'A
Set w = Workbooks.Open(Filename:="adresa.xls")
w.Sheets("zpian").Range("A1:AC9999").Value=ThisWorkbook.Sheets("Zpian").Range("A1:AC9999").Value
w.Close SaveChanges:=True
Set w = Nothingcitovat
Dim w As Workbook 'A
Set w = Workbooks.Open(Filename:="adresa.xls")
w.Sheets("zpian").Range("A1:AC9999").Value=ThisWorkbook.Sheets("Zpian").Range("A1:AC9999").Value
w.Close SaveChanges:=True
Set w = Nothingcitovat
Tak nic z toho mi nefunguje :-(
Prostě chci jen z jednoho souboru zkopírovat všechny data v listu zpian a zkopírovat do aktivního kde je makro do listu Zpian..citovat
Prostě chci jen z jednoho souboru zkopírovat všechny data v listu zpian a zkopírovat do aktivního kde je makro do listu Zpian..citovat
Dim w As Workbook 'A
Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls")
Range("A1:AC2000").Select
Selection.Copy
w.Close SaveChanges:=True
Set w = Nothing
A ted, jenom vložit do souboru v kterém je makrocitovat
Váš prvý kód otvára zošit adresa.xls (tam má byť celá cesta) a do neho vloží data zo zošitu, v ktorom spúšťate makro.
Ale teraz podľa posledného kódu je náznak, že to môže byť aj opačne. Že chcete kopírovať z toho otváraného. Aj keď ten posledný kód je zlý, ak to spúšťate z modulu skopíruje data z aktívneho listu aktívneho zošitu, a to bude po otvorení predsa práve ten otvorený súbor. Pred Range chýba vlastník.
Každopádne nebudem špekulovať, čo asi chcete ako urobiť z Vašich nefunkčných kódov. Napíšte odkiaľ sa má kopírovať (súbor + list), a kam sa má kopírovať (súbor + list). Ďalej či sú oblasti rovnaké, či sú nemenné, alebo či treba zisťovať ich veľkosť (lebo v kódoch používate rôzne oblasti).citovat
Ale teraz podľa posledného kódu je náznak, že to môže byť aj opačne. Že chcete kopírovať z toho otváraného. Aj keď ten posledný kód je zlý, ak to spúšťate z modulu skopíruje data z aktívneho listu aktívneho zošitu, a to bude po otvorení predsa práve ten otvorený súbor. Pred Range chýba vlastník.
Každopádne nebudem špekulovať, čo asi chcete ako urobiť z Vašich nefunkčných kódov. Napíšte odkiaľ sa má kopírovať (súbor + list), a kam sa má kopírovať (súbor + list). Ďalej či sú oblasti rovnaké, či sú nemenné, alebo či treba zisťovať ich veľkosť (lebo v kódoch používate rôzne oblasti).citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Vynásobit hodnoty kurzem - Power Query
lubo • 25.4. 19:18
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 15:12
Relativní cesta - zdroje Power Query
Alfan • 25.4. 15:08
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 14:21
Relativní cesta - zdroje Power Query
Alfan • 25.4. 10:49
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 10:47
Relativní cesta - zdroje Power Query
Alfan • 25.4. 10:40
RSS nejnovější články