< návrat zpět

MS Excel


Téma: Kopie řádků rss

Zaslal/a 15.10.2022 18:09

Zdravím, potřeboval bych VBA, které:
1.pokud bude prázdná buňka ve sloupci 11,
nebo
2.Ve sloupci 11 bude 1 a zároveň bude nějaká textová poznámka ve sloupci 12 nebo 13 nakopíruje mi to příslušné řádky do nového listu "Nesouhas" (v kterém mám záhlaví, tak vkládat od druhého řádku)
Díky

Zaslat odpověď >

#053648
elninoslov
Ak chcete riešenie, musíte dodať oveľa viac informácií, prílohu, a lepší popis.
Dáta nemajú hlavičku? Iba výsledok má hlavičku? Kopírovať riadky? Celé riadky (16000 stĺpcov)? Ako určiť rozsah oblasti, podľa ktorého stĺpca? Je to Tabuľka alebo tabuľka? Treba predchádzajúce výsledky mazať? Sú vedľa dát a výsledkov iné údaje (či sa dá použiť UsedRange)? Sú dáta filtrované? Sú tam medzery, zlúčené bunky? Kopírovať aj formáty buniek (orámovanie apod.), alebo iba údaje? Sú tam vzorce či len dáta (ak vzorce, tak kopírovať vzorce alebo výsledky)? O koľko sa asi jedná údajov 100/250000? Tie dáta sú import z nejakého súboru? Ak áno, dal by sa možno použiť bezmakrový prístup cez PowerQuery priamo zo súboru (ten bude potrebné priložiť). Aký je to Office?

Už teraz som venoval premýšľaniu o Vašom probléme viac času ako Vy.citovat
#053668
avatar
Jen vykopírovat data při kliknutí na tlačítko, v případě , že už na listu2 některá data budou samozřejmě přepsat novýmí daty (aktuálními). Ze zdrojové tabulky nemazat. Jedná se jen o data. Prohledává tak max 7000 řádků.Jedná se o Office 365
Prostě:
1.pokud bude prázdná buňka ve sloupci 11,
nebo
2.Ve sloupci 11 bude 1 a zároveň bude nějaká textová poznámka ve sloupci 12 nebo 13 nakopíruje mi to příslušné řádky do nového listu "List2" (v kterém je záhlaví, tak vkládat od druhého řádku)
Díky
Příloha: zip53668_sesit1.zip (12kB, staženo 9x)
citovat
#053669
elninoslov
Ak to teda chápem správne, tak napr. takto:
Příloha: zip53669_kopie-radku.zip (21kB, staženo 9x)
citovat
#053670
avatar
Ano pochopil jste to přesně.citovat
#053672
avatar
No omlouvám se zapomněl jsem že v 11 sloupci se používají vzorce. Moje chybacitovat
#053674
elninoslov
Vy teda potrebujete uchovať v Zostave rovnaké vzorce aké sú v tom 11. stĺpci v liste Souhrn. Podľa mňa je zostava výstup nejakých dát, a meniť v nej by sa hodnoty nemali. Teda postrádam zmysel, aby tam boli vzorce, ktoré svoju hodnotu už raz vypočítali v Souhrn. Môžete priložiť ten vzorec? A ide iba o vzorec v 11. stĺpci?citovat
#053675
avatar
Prostě ten kod opravy v 11 sloupci v Listu1 se načítá z jiného listu.Jen sloupec 11
Nebo to pojmout tak, že to co je v opravě, tedy prázdné pole 11 (je tam jen ten vzorec, který doplní kod opravy podle kritéria závad) to nakopíruje do třeba listu3 (V Opravě), a vše ostatní, kde je vyplněno ve sloupci hodnota větší než 1 a má textovou poznámku ve sloupci 12 nebo 13 nakopíruje do třeba Listu4 (Soupis). V každém listu kam by se generoval výstup by byl první řádek záhlaví
Nepotřebuji vzorec ponechat, jen mi to prostě nevykopíruje ty prázné bunky, protože je v nich vzoreccitovat
#053676
elninoslov
V tom prípade ale stačí iba upraviť riadok s kontrolou na tento
If D(i, 1) <> "" And (D(i, 11) = "" Or (D(i, 11) = 1 And Not (D(i, 12) = "" And D(i, 13) = ""))) Thenteda aby sa nekontrolovalo IsEmpty a porovnávalo = či <> "". Teda v prípade, že vzorec vracia "". Vzorec som sa nedozvedel.

"listu3 (V Opravě)", "Listu4 (Soupis)" o ničom takom ste nepísal.
"V každém listu kam by se generoval výstup by byl první řádek záhlaví" - čože? Takže koľko tých listov budete generovať. Veď nech sa to urobí v jednom cykle.
"větší než 1 a má textovou poznámku ve sloupci 12 nebo 13 nakopíruje do třeba Listu4 (Soupis)" - takže každý generovaný list bude mať svoje rozdielne podmienky, predpokladám.

Ak by ste dal na začiatku reálnu anonymizovanú prílohu (reálne rozsahy, formáty, umiestnenia, typy dát, vzorce, listy, podmienky ..., iba zmenené na nie citlivé dáta), tak to máte dávno hotové, ja by som na "neštartoval" kvôli dávkovaniu informácií, a máme obaja cez víkend viac času na upratovanie a na manželku 5

Tak aké sú podmienky pre ktorý list?citovat
#053678
avatar
Díky teď už si s tím snad dokážu poradit a upravit. Člověk se musí taky něco naučit sám a zkoušet :-)
Díkycitovat

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