Excel makro "hledat označit kopírovat"

[Drucker]

Zdravím všechny,
prosím o pomoc s makrem.

Sem pouhý uživatel excelu a nemá dostatečné znalosti pro tvorbu makra, dokázal sem jen makro zaznamenat v excelu.

pokus.xlsm

(20.9 KiB) Staženo 48 x

Potřeboval bych aby makro dokázalo najít data z Listu1 v Listu2, tam označilo celý řádek kde jsou data a vložilo jej do Listu3 ve stejnem stavu jako je v listu 2.
děkuji za každou pomoc

[Reklama]

[Grimm]

Řešení pomocí polí. Pokud se však rozšíří data na Listu2 o nové sloupce bude potřeba upravit i kód.

[Drucker]

Zdravím, je to parádní jak to maká.
Za to moc děkuji

Ještě bych rád abych věděl kde mam změnit rozsach kopirovaného pole v Listu2, kdyby database byla ve více sloupcích než je tento pokus.
A druhou věc, jde nastavit ten příkaz na kopírování ,na kopírování jako text abych měl jistotu že to nezmění data v listu3.

Děkuji

[Grimm]

Ahoj, v přiloženém souboru je přidaná procedura Copy2, která si sama zjistí počet obsazených sloupců na listu 2 (počet sloupců se zjišťuje z prvního řádku, tedy hlavičky tabulky) a podle toho nastaví velikost pole "PoleCopy".
Co se týče formátu dat. Ten se bere ze zdrojového listu (list2) odkud se plní Pole2. Aby se zachoval formát dat je nahrazena vlastnost .VALUE2 za .VALUE

Obě procedury Copy i Copy2 pro zjištění posledního obsazeného řádku na jednotlivých listech používají proceduru Property Get Maxradek()

[Drucker]

Zdravím,
omlouvám se že píšu až teď ale v mam mnoho práce.
to makro se zkoušel na ostrou databázi ze který vznikl tento pokus ale nejde.
vyskočí chybová hláška.
Jelikož tomuto jazyku nerozumim tak se ptám kde dělám chybu.
díky

[Grimm]

Bez reálné přílohy se těžko radí, budeš se muset podívat v čem se liší příloha, která sem byla vložena od "ostré databáze".
Zatím střela od boku, jak jsou na tom jména listů použité v "ostré databázi"? Opravdu jsou použity názvy "List1, List2 a List3"?

Všimni si v kódu proměnné nazvané List, která obsahuje reálný název listu se kterým se poté v kódu pracuje. Než se naplní Pole1 má hodnotu/jméno listu "List1" (List = "List1"). Předtím než se daty naplní Pole2 je hodnota/jméno listu v proměnné List přiřazené jméno listu "List2".

Ten řádek, který se žlutě zbarvil je zodpovědný za vložení výsledků na poslední list tedy "List3". Před tímto řádkem kódu je tedy do proměnné List přiřazeno jméno posledního listu "List3".