Před časem se mi zde na foru VBA import a kopirování buněk do zformátované tabulky dostalo pomoci od jednoho profíka a nyní bych opět potřeboval pomoc s úpravou/rozšířením onoho kódu (VBA kód a excel se taktéž nachází v příloze).




Nyní tento kód funguje tak, že na listu vstup spočítá počet řádků a podle výsledku zkopírujte tolikrát na listu plan oblast A3:W20 a do buněk dosadí data z listu vstup.
Nyní jsem na list vstup přidal ještě jeden sloupec "V plánu Ano/Ne" kdy na některých řádcích je hodnota Ano (což znamená že již je nakopírováno na listu plan) a tam kde nic není se musí dokopírovat na list plan, za poslední tabulku (myšleno poslední volný řádek) ve stejné podobě.
Zkoušel jsem do kódu doplnit podmínku:
If Sheets("vstup").Cells(i, 8 ).Value = "" Then
Ale tak snadné to očividně nebude :(

rk9 píše: ... a tam kde nic není se musí dokopírovat na list plan, za poslední tabulku (myšleno poslední volný řádek) ve stejné podobě ...

Já tomu zadání nějak nerozumím. Vyjádři se konkrétně s označením buněk co a kam se mám zkopírovat. ( "Tam kde nic není... to je třeba na měsíci .)
A pokud dáváš přílohu Excel tak to nebal do ZIP !! Přiděláváš tím práci, přečti si návod povolené přípony!

Něco sem zkusil. Makro kopíruje řádky na listu vstup pouze pokud je ve sloupci H hodnota "Ne".
Po překopírování hodnotu přepíše na "Ano".
Pokud všechny řádky obsahují hodnotu "Ano" nic se nekopíruje.

@Grimm Díky moc funguje to perfektně