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
Level 4
Příspěvky: 1282
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!

Grimm
nováček
Příspěvky: 3
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
  • VBA import a kopirování buněk do zformátované tabulky
    od rk9 » 05 črc 2017 07:27 » v Kancelářské balíky
    15
    677
    od rk9
    01 srp 2017 08:49
  • Jak nastavit okraje buněk tabulky?
    od vlazy » 30 dub 2017 23:11 » v Programování a tvorba webu
    3
    344
    od vlazy
    01 kvě 2017 01:53
  • Makro - sčítání buněk dle příznaku a kopírování
    od lurban » 26 říj 2016 09:02 » v Kancelářské balíky
    0
    328
    od lurban
    26 říj 2016 09:02
  • Kopírování a třídění označených buněk do jiných sešitů
    od jacobh » 09 bře 2017 10:28 » v Kancelářské balíky
    3
    347
    od xlnc
    10 bře 2017 17:26
  • Excel 2016 - kopírování vč. skrytých buněk
    od pavelo » 29 srp 2017 11:32 » v Kancelářské balíky
    1
    148
    od Pavlus - Excel
    29 srp 2017 12:49

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

Kdo je online

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