< návrat zpět

MS Excel

Téma: Excel VBA makro rss

Zaslal/a JirkaCzek 21.10.2022 13:25

Dobrý den
Potřeboval bych "nakopnout" jak na to.Potřeboval bych kopírovat řádky z jednoho listu do jiného po sedmi řádcích podle podmínky výběru viz obrázek.
Ve sloupci A nastavím podmínku "n" pro výběr toho co se má kopírovat.Makro by mělo tyto vybrané řádky zkopírovat na jiný list nějak takhle..

Sub CopyN()
Sheets("Polozky").Select
Sheets("Polozky").Unprotect "xxxx"
For A = 1 To (1 + 7 * PocetPolozek) Step 7 'po 7 radcich
Cells(A, 1).Select
If (Len(Cells(A, 1)) = "n") Then
'Vytvoř ListN
'Zkopiruj 7 řádků z "Polozky"
'opakuj pro všechny položky označené "n"
End If
Next A
End Sub

img

Zaslat odpověď >
elninoslov(21.10.2022 13:34)#053666
elninoslov
Najlepšie by bolo priložiť prílohu. Obrázok nie je priložený.
If (Len(Cells(A, 1)) = "n") Thenje nefunčné Len() vráti dĺžku hodnoty a porovnávate dĺžku s písmenom "n".
Vytvoriť list pre každú položku? A ako sa bude list volať?
...
Zaregistrujte sa, aby ste mohol priložiť anonymizovanú prílohu.citovat
elninoslov(23.10.2022 11:37)#053683
elninoslov
Pokúšam sa pochopiť, a zisťujem, že je to nedostatočne popísané a/alebo premyslené.
Ako nazvať nové listy? Podľa nejakej bunky? Čo ak bude taký list už existovať?
PocetPolozek - určite to chcete tak ako to počítate? Ak zadáte 5, kopírovať budete 6 skupín (lebo pripočítavate 1, teda prvý riadok ďalšej skupiny). A tých 5 má byť kontrolovaných alebo kopírovaných. To je rozdiel. Kontrolovaných môže byť 5, ale kopírovaných (vzhľadom na "n") iba 2. Alebo pokračovať dovtedy kým nebude nájdených 5?
Aký rozsah stĺpcov? Je stále rovnaký?
Kopírovať čo? Hodnoty? Aj vzorce? Aj formáty? Orámovania a farby? Šírky stĺpcov? ... Možno by bolo jednoduchšie kopírovať iba hodnoty do kópie listu vytvoreného zo skrytého prázdneho šablónového listu.
Určite to nemá hlavičky a idú dáta rovno od 1. riadku?

Príklad.
Příloha: zip53683_kopiruj-po-7-riadkoch-na-listy.zip (28kB, staženo 4x)
citovat
marjankaj(23.10.2022 12:37)#053684
avatar
Potřeboval bych "nakopnout" jak na to.

elninoslov napsal/a:

Pokúšam sa pochopiť, a zisťujem, že je to nedostatočne popísané a/alebo premyslené.

Asi slabo "kopeš" 2citovat

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