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
VBA import a kopirování buněk do zformátované tabulky Vyřešeno
Re: VBA import a kopirování buněk do zformátované tabulky
MePExG i já jsme Ti již psali, že jsem zadání nepochopili. Tak přestaň myslet a začni přemýšlet.rk9 píše:Já myslel ze jsem to popsal již v prvním příspěvku.
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
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
Re: VBA import a kopirování buněk do zformátované tabulky Vyřešeno
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
-
- 18
- 3569
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 9
- 2118
-
od MK_Vs
Zobrazit poslední příspěvek
02 lis 2023 09:26
-
- 0
- 1725
-
od FIDLIK
Zobrazit poslední příspěvek
20 říj 2023 21:16
-
- 2
- 1067
-
od Myerina
Zobrazit poslední příspěvek
30 led 2024 08:44
-
- 0
- 920
-
od Funstorm007
Zobrazit poslední příspěvek
19 dub 2024 21:01
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti