Stránka 1 z 1

VBA kopirování buněk do zformátované tabulky s podmínkou

Napsal: 27 zář 2017 17:15
od rk9
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).

Kód: Vybrat vše

Sub kopie()
  PocetRadku = Sheets("vstup").Range("a1").End(xlDown).Row - 2
   
    Set OblastKop = Range("A3:W20")
    radek = 3
    For i = 21 To 21 + ((PocetRadku - 1) * 18) Step 18
        OblastKop.Copy Range(Cells(i, 1), Cells(i + 18, 23))
       
        Cells(i, 1) = Sheets("vstup").Cells(radek, 2)
        Cells(i, 6) = Sheets("vstup").Cells(radek, 5)
        Cells(i, 7) = Sheets("vstup").Cells(radek, 6)
        radek = radek + 1
               
    Next i
   
End Sub



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

plan.zip
(31.08 KiB) Staženo 35 x

Re: VBA kopirování buněk do zformátované tabulky s podmínkou

Napsal: 29 zář 2017 20:58
od atari
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!

Re: VBA kopirování buněk do zformátované tabulky s podmínkou

Napsal: 30 zář 2017 23:38
od Grimm
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.

plan.xlsm
(28.77 KiB) Staženo 56 x

Re: VBA kopirování buněk do zformátované tabulky s podmínkou

Napsal: 06 říj 2017 18:59
od rk9
@Grimm Díky moc funguje to perfektně