< návrat zpět

MS Excel


Téma: Sloučení 2 tabulek do 1 seznamu rss

Zaslal/a 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

Zaslat odpověď >

#032376
avatar
Zde je ukázkový soubor
Příloha: rar32376_slouceni-dat-ze-dvou-tabulek.rar (10kB, staženo 59x)
citovat
#032377
avatar
http://wall.cz/index.php?m=topic&id=26400
Třeba pomůže toto, již se zde řešilo...
P.citovat
#032378
avatar
Já jsem prohledával forum ale toto jsem nenašel děkuji.
Jen to budu muset upravit to makro.citovat
#032384
avatar
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
#032385
avatar
Ještě přidávám ten muj excel
Příloha: rar32385_slouceni-dat-ze-dvou-tabulek.rar (34kB, staženo 23x)
citovat
#032388
€Ł мσşqμΐτσ
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 Sub
citovat
icon #032393
eLCHa
Ř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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09

odpocet a storno tl.

PavDD • 25.3. 9:51