< návrat zpět

MS Excel

Téma: Zjednodušení VBA kódu - přesun dat až 40 řádků rss

Zaslal/a OB 8.5.2024 11:00

Ahoj, prosím o pomoc se zjednodušením kódu, který funguje.
Když tento fungující soubor s tímto kódem použiji v jiném excelu, tak mi to hodí error: Procedure too large.

Popis souboru:

1. v listu "formular": zapisuji data z ranní a noční směny "buňky žlutě podbarvené (20 rádků pro každou směnu, ale ne vždy jsou všechny řádky vyplněné). Pak zmáčknu tlačítko ULOŽIT DATA a tyto data se přesunou dál do listu "data"

2. v listu "data": tam se data z listu formulare překopírují dle nastavených sloupců, pak se v listu data (Tabulka15) v prvním sloupci "text01" vyfiltrují prázdné řádky a ty se pak vymažou a zůstane souvislá data

Díky za jakékoliv zjednodušení!

Příloha: rar56510_ob20240508_1045.rar (40kB, staženo 7x)
Zaslat odpověď >
Excel-Friend(8.5.2024 17:33)#056511
avatar
Dobrý den,

v příloze upraveno. Pro více informací--> kontakt na mě naleznete na https://excelfriend.cz

Pěkný den
Příloha: zip56511_ob20240508_1045_ef-revize.zip (48kB, staženo 8x)
citovat
OB(9.5.2024 7:26)#056512
avatar
Ahoj, pracuje to dobře. Zapomněl jsem napsat v zadání, že se mi data v listu "data" zapisují pořád dál pod sebe, abych měl data z předchozích dní, měsíců, roků. Ta data pak zpracovávám pomocí kont.tabulky.

OBcitovat
elninoslov(9.5.2024 19:59)#056513
elninoslov
Namiesto Copy/PasteSpecial by som použil Value2=Value2.

Pozícia hlavičiek v Data, alebo hlavičky v Formular sa menia, a je teda potrebné hľadať ich umiestnenie?

V Data sa jedná o 2 "zhluky" susedných stĺpcov (Text1:Text8 a Text15:Text20)?

Predpokladám, že v Data medzi týmito stĺpcami/zhlukmi sa nachádzajú aj nejaké vzorcované stĺpce. Je tak?

Hrozí použitie filtra vo Formular? A v Data?

Použil by som CodeName listov.citovat
OB(10.5.2024 5:58)#056514
avatar
1.
Z listu "formular" se zapusují data 1:1 např. ze sloupce text01, se přepisují data do listu "data" sloupce text01.

2.
V listu "formular" se nachází vzorce, ale z těchto buněk převádím pouze hodnotu-text do listu "data"

3.
použití filtru jen v listu "data" sloupci A, pokud budou ve sloupci prázdné mezery (filtroval jsem v minulosti, protože se mi data z listu "formular" přepisovali i s prázdnými řádky)citovat
elninoslov(11.5.2024 1:02)#056515
elninoslov
Skúste.
Ale na toto ste mi neodpovedal:

"elninoslov" napsal/a:

Pozícia hlavičiek v Data, alebo hlavičky v Formular sa menia, a je teda potrebné hľadať ich umiestnenie?

Myslím tým, či je pevne dané, že vo formular!I1 je "text15" a teda tento stĺpec vo formulári zodpovedá stĺpcu data!O:O, lebo v data!O1 je "text15". Či sa nemôže stať, že v formular!I1 bude napr. "text27", a teda bude nutné nájsť, že to zodpovedá stĺpcu data!AA:AA.
Chápeme sa?
Excel-Friend to tam zapracoval, tak či to mám aj ja, či je to potrebné, alebo su tieto väzby stĺpcov (názvy+pozície) dané a nemenné.
Příloha: zip56515_ob20240508_1045_rev2.zip (36kB, staženo 5x)
citovat
OB(13.5.2024 17:14)#056517
avatar
Super funguje to, tak jak má. Díky jste ESA! 1citovat

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