Stránka 2 z 2
Re: VBA import a kopirování buněk do zformátované tabulky
Napsal: 28 črc 2017 17:32
od rk9
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
Re: VBA import a kopirování buněk do zformátované tabulky
Napsal: 29 črc 2017 00:25
od atari
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
Re: VBA import a kopirování buněk do zformátované tabulky
Napsal: 29 črc 2017 21:30
od MePExG
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).
Re: VBA import a kopirování buněk do zformátované tabulky Vyřešeno
Napsal: 01 srp 2017 08:49
od rk9
Děkuji Vám oběma, kouknu se na Vaše obě řešení.