< návrat zpět

MS Excel

Téma: VBA copy if you find same value then next cell rss

Zaslal/a Horstorm 13.7.2014 14:48

Potřebuji pomoct. Nejsem v makrech moc sběhlý, umím jednoduchá makra. Bohužel nastala situace, kdy potřebuji už jedno složitější. Mohl byste mi prosím někdo pomoci..?

Potřebuji na dvou listech udělat určité věci.
List 1 má ve sloupci I sériové číslo. To se nachází i na Listu 2 ve sloupci A (Sériová čísla nejsou totožná, v jednom listu jsou některá navíc a některá naopak chybí). Potřebuji aby se makro podívalo do Listu 1 na sériové číslo a pokud toto seŕiové číslo najde v Listu 2 aby z Listu 1 zkopírovalo údaje ze sloupců E, G a H (odpovídající tomu sériovému číslu) a vložilo je do Listu 2 do sloupců M, N, O. Pokud hodnotu nenajde, tak nic. A stejně tak aby to udělalo u všech tisíc záznamů.

Příklad v příloze.

Děkuji moc za pohotovou odpověď.

PS: Potřebuji to v Excelu 2003

Příloha: zip20491_priklad.zip (8kB, staženo 22x)
Zaslat odpověď >
Opičák(13.7.2014 15:19)#020492
Opičák
Šlo by to tak, ale předpokládám nějaké rychlejší řešení. Jde o to, jak často má makro "makat" jestli je to jen občasné hledání. Při tisíci řádcích to bude asi chvilku trvat.
Příloha: zip20492_prikladxx.zip (15kB, staženo 22x)
citovat
Pavlus(13.7.2014 15:20)#020493
avatar
Řekl bych, že tvořit makro je zbytečné. Vystačíš si se dvěma funkcemi, které Excel nabízí. ID, v tomto případě sériové číslo, vlož jako první sloupec a využij funkce SVYHLEDAT. Pokud nechceš zobrazovat případnou hlášku "#NENÍ_K_DISPOZICI", tak to ještě obal do funkce IFERROR.
P.

Ilustrační ukázka:
=IFERROR(SVYHLEDAT(List2!$A2;List1!$E$1:$H$21;2;NEPRAVDA);"---")EDIT: Excel 2003 ještě nezná IFERROR, tak si případně pomoz s KDYŽ:
=KDYŽ(JE.NEDEF(SVYHLEDAT(List2!$A2;List1!$E$1:$H$21;2;NEPRAVDA))=PRAVDA;"---";SVYHLEDAT(List2!$A2;List1!$E$1:$H$21;2;NEPRAVDA))citovat
Horstorm(13.7.2014 15:51)#020494
avatar
Opičák: Tvoje řešení se mi moc líbí. Potřebuji to zkopírovat jen jednorázově. Akorát mám ještě dotaz: bude to fungovat i když budou seriová čísla napřeskáčku?

Pavlus: Funkcí bych to taky zvládnul vyřešit, avšak já se toho listu chci zbavit a data tam chci mít natvrdo.citovat
Horstorm(13.7.2014 15:57)#020495
avatar
Opičák:
vyřešeno, fungovalo to úžasně. chvilku to louskal ale přelouskal to bravurně. Díky moccitovat
Pavlus(13.7.2014 15:59)#020496
avatar
V tom případě ti pak stačilo pouze překopírovat hodnoty ;-)...
Kopírovat/"Vložit jinak"/Hodnoty
P.citovat

Uživatelské menu

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

Menu

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.

On-line nástroje