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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

rk9
nováček
Příspěvky: 11
Registrován: červenec 17
Pohlaví: Muž

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

Příspěvekod rk9 » 27 zář 2017 17:15

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
Nemáte oprávnění prohlížet přiložené soubory.



Reklama
Uživatelský avatar
atari
Level 4.5
Level 4.5
Příspěvky: 1673
Registrován: říjen 08
Pohlaví: Muž

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

Příspěvekod atari » 29 zář 2017 20:58

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!

Uživatelský avatar
Grimm
nováček
Příspěvky: 44
Registrován: září 17
Pohlaví: Muž

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

Příspěvekod Grimm » 30 zář 2017 23:38

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
Nemáte oprávnění prohlížet přiložené soubory.

rk9
nováček
Příspěvky: 11
Registrován: červenec 17
Pohlaví: Muž

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

Příspěvekod rk9 » 06 říj 2017 18:59

@Grimm Díky moc funguje to perfektně


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - VBA - sloučení buňek
    od Albeda » 15 pro 2017 13:04 » v Kancelářské balíky
    2
    400
    od Albeda
    20 pro 2017 07:47
  • Excel 2016 - kopírování vč. skrytých buněk
    od pavelo » 29 srp 2017 11:32 » v Kancelářské balíky
    1
    332
    od Pavlus - Excel
    29 srp 2017 12:49
  • excel vba automaticka vyska radku sloucenych bunek
    od zutano » 20 bře 2018 10:51 » v Kancelářské balíky
    7
    649
    od atari
    22 bře 2018 10:20
  • Makro VBA kopírování z jiného sešitu
    od Acce » 28 srp 2017 09:48 » v Kancelářské balíky
    6
    547
    od Acce
    31 srp 2017 16:01
  • Excel - kopírování dat z jednoho souboru do druhého pomocí VBA
    od simstriks » 14 zář 2017 09:28 » v Kancelářské balíky
    26
    1744
    od simstriks
    11 říj 2017 14:50

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti