MS Excel

tezko napsat proceduru bez prilozeneho listu.
Ale zkusim nadhodit, jak by se to dalo udelat.

Cyklus na projizdeni vsech ID asi nebude problem.
Hledani se da udelat treba pomoci .Find (pri nenalezeni je chyba - musi se resit pomoci Err.Number).

Protoze jde o dva rozdilne sesity, je potreba znat jejich nazvy a pouzivat je v odkazech na bunky...citovat

snad to bude dobre.
V souboru Zdroj je tlacitko, ktere by melo kopirovani zajistit.citovat

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...citovat