Kabaka123
28.05.20,13:20
Mám v zošite 4 hárky.
V 1 hárku (cennik) sa mi nedá kopírovať ani vystrihnúť,
ani pri použití CTRL+C, CTRL+X

Excel zamrzne "NEREAGUJE"
Schránka je neaktívna.

V súbore nie sú žiadne makrá, ani definované názvy, aktivované žiadne doplnky.
Núdzový režim - to isté
Preposlala som súbor kolegyni - to isté.
Aj informatičke - to isté.
Stiahla som si Libre office portable - to isté.

DOPLNENIE-UPRESNENIE

"cenník" sa dá kopírovať a prilepiť len vtedy ak ho označim CTRL+A a CTRL+C (CTRL+X) alebo použijem kópiu hárku.

Ale pri označení 1 bunky, resp. rozsahu dát, PC zamrzne a NEREAGUJE

Poslala som si súbor. Otestujem doma.

DOPLNENIE

Objekty???

Tak to som fakt netušila.
Hlavne som ich nevidela a nakoľko som žiadne objekty nevkladala, tak toto mi ani nenapadlo. Netuším ako vznikli.

Otestovala som aj makro. Funguje.

ĎAKUJEM veľmi pekne.

VYRIEŠENÉ
ivka70
28.05.20,11:24
Asi mas ten subor poskodeny.
V tomto, co si pridala, kopirovat aj vkladat v danom zosite ide.
marjankaj
28.05.20,11:28
Stiahni si tento z porady a vyskúšaj.
Kabaka123
28.05.20,11:42
Funguje aj kopírovanie mimo excel? Napr. do wordu?
Preposlala som ten súbor kolegyni, a rovnako pri kopírovaní v "cenníku" jej excel zamrne, nereaguje
marjankaj
28.05.20,11:50
čo ti mám povedať? Mne to funguje.:cool:
misoft
28.05.20,11:54
Funguje to! Všetky štyri hárky fungujú.
Otázka je - čo na Excel používaš? Niečo od M$?
Skús Libre Office, alebo Open Office.
misoft
28.05.20,12:16
Sa pýtam: aký program je na tom pracovnom PC? A asi tuším - M$O, navyše starý, neaktualizovaný.
marjankaj
28.05.20,12:56
ako si tie data nakopírovala, keď píšeš, že ti to nefunguje?
Kabaka123
28.05.20,13:07
Takto, keď označím dáta v "cenníku" CTRL+A a CTRL+C, alebo urobím kópiu hárku, tak to ide...
Ale nedá sa mi kopírovať len napr. 1 bunka, resp. rozsah buniek, vtedy zarmzne, celú tabuľku viem skopírovať a prilepiť. Vtedy ju hodí do schránky.
ivka70
28.05.20,13:43
Mas tam asi 1000 objektov na zjednodusene ovladanie, tie sposobuju, ze to nedokaze skopirovat cele, par riadkov mu trva vecnost.
treba vsetky tie textove objekty zrusit.
Prvy najdes asi na urovni textu Bonewax v 3 riadku.

Asi je jednoduchsie ten list vytvorit nanovo (a nie kopirovanim, lebo tym kopirujes aj tie objekty.
mepex
28.05.20,17:18
Prikladám súbor z prílohy, v ktorom som všetky objekty zmazal. Milión to nebol, ale asi pár sto. Úprava podľa elninoslov (zabudol som pozrieť cenník). Postup F5 - Special - Object -/- delete. + úprava vzhľadu.
elninoslov
28.05.20,17:19
Konkrétne ich je tam 15238. Týmto ich jednoducho odstránite za 30 sek (do modulu listu).


Sub pokus() '15238
Dim i As Long
i = Shapes.Count
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
While i <> 0
Shapes(i).Delete
i = Shapes.Count
Wend
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

Veľkosť súboru sa zníži na 1/4
mepex
28.05.20,18:27
Skúste znovu asi som ju vtedy modifikoval.
Kabaka123
28.05.20,18:27
testovala som makro, vyhodí mi chybu. Samozrejme, že som súbor uložila ako xlsm.
elninoslov
28.05.20,22:44
A spúšťate to v aktívnom liste cenníku, a makro je tiež v module cenníku? Ja som si Office 2007 hodil rýchlo do virtuálky s Win7 a makro aj kopírovanie chodí. Každopádne mepex Vám napísal jednoduchšie riešenie odmazania tých objektov.
Kabaka123
29.05.20,05:18
Hodila som to len do modulu. Rovno do cenníka som to neskúšala, spravím tak. Keď som chcela ísť cestou "mepexa" tak mi zamrzol excel a "nereagoval". Makro funguje. Ďakujem
Kabaka123
29.05.20,05:27
Ďakujem