Příspěvky uživatele
< návrat zpět
Tak jsem to otestoval a přesunul dle potřeby, ale stále mi to vykazuje chyby, když spustím makro (v příloze z cílového sešitu).
Nepochopil jsem co provádí:
"Radek = Workbooks(CIL).Worksheets("REG").Range("D:D").Find(what:=Workbooks(ZDROJ).Worksheets("Reg. Office").Cells(i, 4), lookat:=xlWhole).Row"
ale platí že makro má postupně projít v souboru cíl na listu reg všechny vyplněné buňky ve sloupci D a porovnat je se zdrojem. Pokud najde data ve zdroji, zkopíruje odtud požadovaná data. Pokud ne, napíše to do sloupce B "nenalezeno" ...což ale píše i když data najde.... takže jsem asi něco pokazil... Mohl by ses na to kouknout? Díky...
Moc děkuju, Poki... jsem to otestoval a přesně tak si to mělo být...jen přehodím makro ze zdroje do cíle a upravím to...mělo by se spouštět z cílového formuláře....teda pokud to zvládnu...když ne, ještě tě zkusím otravovat... Díky moc a krásný víkend... P.S. Kam mám poslat čokoládu? 
Přikládám data...názvy zdrojového souboru se bude čas od času lišit, nicméně si asi vždy udělám kopii a přejmenuju jí jako zdroj, což se mi zdá nejjednodušší.
ahoj, myslel jsem, že to nebude nic složitého, ale nedaří se mi vytvořit makro, které by v jednom sešitu vybralo postupně ze sloupce D (počínaje řádkem 9) ID číslo a vyhledalo ho v druhém sešitě dle daného rozsahu. Pokud to číslo najde, zkopíruje to data ve stejném řádku v rozsahu sloupce H až O a S až U. Pokud to číslo nenajde, vypíše do jedné z buňěk hodnotu "nenalezeno". Pomůže mi někdo? Díky.
Uživatelské menu
\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