Zde je ukázkový soubor
Příloha: 
32376_slouceni-dat-ze-dvou-tabulek.rar (10kB, staženo 60x)
citovat32376_slouceni-dat-ze-dvou-tabulek.rar (10kB, staženo 60x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Sloučení 2 tabulek do 1 seznamu
MS Excel
Téma: Sloučení 2 tabulek do 1 seznamu 
Zaslal/a golfino 19.8.2016 20:33
Zdravím. Potřeboval bych pomoci se sloučením tabulek. Mám list zelenina kde je tabulka se seznamem zeleniny. Poté mám list ovoce kde je tabulka se seznamem ovoce. A chtěl bych aby se tyto 2 tabulky sloučili na 3tím listě v jednu velkou tabulku. S tím že pokud někdo doplní v prvním listě zelenina nějaký další řádek aby se automaticky i přenesl do sloučeného seznamu. Díky za rady Tom
Já jsem prohledával forum ale toto jsem nenašel děkuji.
Jen to budu muset upravit to makro.citovat
Jen to budu muset upravit to makro.citovat
Pomohl by mi někdo dosadit makro od Ron de Bruina do mého excelu? www rondebruin.nl/win/s3/win002.htm
Potřeboval bych sloučit dva listy seznam ovoce a seznam zeleniny do 1 listu dle jeho makra. Ale jen tyto dva listy. Když jsem použil jeho makro tak mi to slučovalo vždy všechny listy do jednoho. Mě stačí jen ty 2.
Děkuji za rady.citovat
Potřeboval bych sloučit dva listy seznam ovoce a seznam zeleniny do 1 listu dle jeho makra. Ale jen tyto dva listy. Když jsem použil jeho makro tak mi to slučovalo vždy všechny listy do jednoho. Mě stačí jen ty 2.
Děkuji za rady.citovat
Ještě přidávám ten muj excel
Příloha: 32385_slouceni-dat-ze-dvou-tabulek.rar (34kB, staženo 23x)
citovat32385_slouceni-dat-ze-dvou-tabulek.rar (34kB, staženo 23x)Tohle nakopíruj do Listu4 "CELKOVÝ SEZNAM OVOCE I ZELENINY"
kde při každém přepnutí se makro spustí.
Private Sub Worksheet_Activate()
Dim Prdk As Long, Krdk As Long
With List4 'Jmeno cílového listu "CELKOVÝ SEZNAM OVOCE I ZELENINY"
Prdk = 4 ' počátční řádek v cilovém listu
Krdk = .Cells(Cells.Rows.Count, 2).End(xlUp).Row ' Poslední řádek v cilovém listu
.Range(.Cells(Prdk, 2), .Cells(Krdk, 3)).Delete 'Odstraní seznam v cílovem listu
List1.Range(List1.Cells(2, 1), _
List1.Cells(List1.Cells(Cells.Rows.Count, 2).End(xlUp).Row, 2)).Copy .Cells(Prdk, 2) 'Kopirování seznamu z první tabulky
Prdk = .Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1
List2.Range(List2.Cells(2, 1), _
List2.Cells(List2.Cells(Cells.Rows.Count, 2).End(xlUp).Row, 2)).Copy .Cells(Prdk, 2) 'Kopirování seznamu z druhé tabulky
End With
End Subcitovat
kde při každém přepnutí se makro spustí.
Private Sub Worksheet_Activate()
Dim Prdk As Long, Krdk As Long
With List4 'Jmeno cílového listu "CELKOVÝ SEZNAM OVOCE I ZELENINY"
Prdk = 4 ' počátční řádek v cilovém listu
Krdk = .Cells(Cells.Rows.Count, 2).End(xlUp).Row ' Poslední řádek v cilovém listu
.Range(.Cells(Prdk, 2), .Cells(Krdk, 3)).Delete 'Odstraní seznam v cílovem listu
List1.Range(List1.Cells(2, 1), _
List1.Cells(List1.Cells(Cells.Rows.Count, 2).End(xlUp).Row, 2)).Copy .Cells(Prdk, 2) 'Kopirování seznamu z první tabulky
Prdk = .Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1
List2.Range(List2.Cells(2, 1), _
List2.Cells(List2.Cells(Cells.Rows.Count, 2).End(xlUp).Row, 2)).Copy .Cells(Prdk, 2) 'Kopirování seznamu z druhé tabulky
End With
End Subcitovat
Řekl bych, že toto je po vyhledávání nejčastější dotaz.
Dělejte to opačně. Vytvořte tabulku na 3tím listě a tu pak rozdělujte na ovoce a zeleninu (např KT) ...citovat
Dělejte to opačně. Vytvořte tabulku na 3tím listě a tu pak rozdělujte na ovoce a zeleninu (např KT) ...citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články