Příspěvky uživatele
< návrat zpět
Opičák:
vyřešeno, fungovalo to úžasně. chvilku to louskal ale přelouskal to bravurně. Díky moc
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.
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
Já jsem měl v hlavě řešení, že tam dám něco ve smyslu SrcFile = "abc.xls"
DestFile = "123.xls"
SrcRng = SrcFile.Range("C:C")
DestRng = DestFile.Range("A:A")
Tahle část už mi taky trochu habrovala - takhle to asi moc napsat nejde :/
A pak něco jako
For x In SrcRng
no a tady už nevim jak bych to měl napsat
nějaký to if, else, ale vždycky mi to pak hlásí nějaký chyby. Ať už syntaxe, object required apod. vždycky vyřešim jednu hlášku a je tam jiná :/
Ale chtěl bych tam na začátku něco jako ten SourceFile, SourceRange, abych to pak mohl jednoduše přepsat a přehodit na jiný soubor, list, sloupec...
Hází mi to chybu "Subscript out of Range" a úplně se v tom tvým makru neorientuju, takže ani nedokážu najít v čem je chyba. To už je na mě moc profi :/ Vůbec se neorientuju v těch cyklech. :( S těmi položkami, které nenajde, by bylo nejlepší je označit třeba červeně. To bych si pak vyfiltroval a přidal.
Oops, chybička se vloudila. Díky
Btw vše potřebuji aby bylo funkční v Excelu 2003.
Zdravím,
myslel jsem, že bych to mohl dokázat napsat sám, ale narazil jsem na nejeden problém, které nejsem schopen vyřešit. Proto se obracím na vás a žádám o pomoc.
Ve stručnosti:
Mám zdrojový soubor (Zdroj) a cílový soubor (Cíl). V Cíli jsou data jako sériové číslo, název, datum prodeje,... Ve Zdroji jsou data stejná, akorát datum prodeje chybí. Potřebuji napsat makro, které zkopíruje datum prodeje ze Zdroje a vloží do Cíle do správného řádku (dle sériového čísla).
Další věc je, že zdrojových souborů mám víc a rád bych jednoduchou úpravou změnil název zdrojového souboru, sloupce apod. Potřebuji to udělat jednorázově z mnoha souborů, které mají velké množství dat.
Na příkladě (viz příloha):
Potřebuji makro v Cil.xls, které se podívá do Zdroj.xls na sloupec A (sériové číslo), ze kterého postupně zkontroluje každou buňku v něm. Pokud bude platit, že se buňka rovná některé z buňek v Cil.xls ve sloupci B (sériové číslo), potom zkopíruje datum prodeje (Zdroj.xls ve sloupci C) a vloží do Cíl.xls do sloupce A k položce, která odpovídá tomu seriovému číslu. Pokud to platit nebude, označí ten řádek výraznou barvou a skočí na další buňku.
Snad je to pochopitelné. Vcelku je to jednoduché, ale asi nejsem moc dobrý na vysvětlování 
Opravdu bych byl vděčný za pomoc. Nevím si rady.
Děkuji.
Uživatelské menu
\nMenu
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.
RSS nejnovější články