VBA import a kopirování buněk do zformátované tabulky Vyřešeno

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ž

Re: VBA import a kopirování buněk do zformátované tabulky

Příspěvekod rk9 » 28 črc 2017 17:32

Já myslel ze jsem to popsal již v prvním příspěvku. V sešitě mám list vstup kde je několik řádků s údaji (číslo, datum začátku, datum konce, ostatní nejsou zatím potřebné) a potřebuji zjistit kolik je tam těch řádků a podle toho kolik je tam řádků, tolikrát se mi zkopíruje na listě plan skupina buněk A3:W20 v posledním priloženém souboru jsem tuto oblast (pole) pojmenoval (zakazka). Např.: zjistí že tam je 35 řádků tak udělá 35 kopií a pak vezme udaje z listu vstup a od druhého řádku postupně nakopíruje na list plan (číslo, datum začátku a datum konce) řádek po řádku dokud nezkopíruje všech 35 řádků do příslušných buněk.
Nevím jak a co už mám jiného vysvětlit, tak zde ji přiložený i obrázek
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 import a kopirování buněk do zformátované tabulky

Příspěvekod atari » 29 črc 2017 00:25

rk9 píše:Já myslel ze jsem to popsal již v prvním příspěvku.
MePExG i já jsme Ti již psali, že jsem zadání nepochopili. Tak přestaň myslet a začni přemýšlet.

Tento kód vlož do modulu a spusť při zobrazeném listě "plan". Provede to, co jsi požadoval v zadání (přepodklad je, že první oblast řádek 3 až 20 je vyplněný):

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

MePExG
Level 1
Level 1
Příspěvky: 58
Registrován: srpen 16
Pohlaví: Muž

Re: VBA import a kopirování buněk do zformátované tabulky

Příspěvekod MePExG » 29 črc 2017 21:30

Prikladám riešenie pomocou kontingenčnej tabuľky a vzorcov, bez programovania (toto riešenie potrebuje aby vstup bola nezmenená zdrojová tabuľka pre kt [tj. meniť iba údaje, nie tabuľku] a po zmene na liste kt v nej ju dať aktualizovať Alt+F5).
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 import a kopirování buněk do zformátované tabulky  Vyřešeno

Příspěvekod rk9 » 01 srp 2017 08:49

Děkuji Vám oběma, kouknu se na Vaše obě řešení.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • VBA kopirování buněk do zformátované tabulky s podmínkou
    od rk9 » 27 zář 2017 17:15 » v Kancelářské balíky
    3
    236
    od rk9
    06 říj 2017 18:59
  • 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 3 hosti