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ž
Stav:
Offline

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
Přílohy
kopirovani.jpg

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

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 2
Level 2
Příspěvky: 193
Registrován: srpen 16
Pohlaví: Muž
Stav:
Offline

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).
Přílohy
planKT.xlsm
(493.43 KiB) Staženo 41 x

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

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
  • Import PDF do excelu Příloha(y)
    od luko02420 » 13 kvě 2023 11:29 » v Kancelářské balíky
    18
    3255
    od luko02420 Zobrazit poslední příspěvek
    16 kvě 2023 11:27
  • PowerQuery - import dat do sloupců Příloha(y)
    od MK_Vs » 31 říj 2023 10:00 » v Kancelářské balíky
    9
    1902
    od MK_Vs Zobrazit poslední příspěvek
    02 lis 2023 09:26
  • VPS Hosting pro import vlastního VM (proxmox)
    od FIDLIK » 20 říj 2023 21:16 » v Vše ostatní (sw)
    0
    1566
    od FIDLIK Zobrazit poslední příspěvek
    20 říj 2023 21:16
  • Součet údajů z tabulky.
    od Myerina » 30 led 2024 08:30 » v Kancelářské balíky
    2
    847
    od Myerina Zobrazit poslední příspěvek
    30 led 2024 08:44
  • Tisk z excelu mění výšky buněk
    od Moonddur » 28 dub 2023 11:50 » v Kancelářské balíky
    1
    1655
    od atari Zobrazit poslední příspěvek
    28 dub 2023 12:08

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti