MS Excel

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

Zaslat odpověď >

elninoslov(21.10.2022 13:34)#053666

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

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: zip