Super už to chodí tak jak má :)

Díky moc za rady

Ahoj, takhle jsem to měl také. Pokud tam máš: Set SCll = .Find(TCll.Value) tak to funguje bez chyby akorát hledáš hodnotu z listu1 v listu2.( buňky nemusí být shodné, ale buňka na listu2 musí obsahovat řetězec z buňky na listu1). já to otočil (v tvém případě): Set TSCll = .Find(SCll.Value) a už mi t...

Ahoj všem, zatím jsem dal dohromady následující Sub pokus() Dim List1 As Worksheet, Blok1 As Range, Bunka1 As Range Dim List2 As Worksheet, Blok2 As Range, Bunka2 As Range ' definice listu a bloku Set List1 = ActiveWorkbook.Worksheets("List1") Set List2 = ActiveWorkbook.Worksheets("Li...

Ahoj všem, potřeboval bych poradit s jedním makrem. V příloze je soubor. Potřebuji na listu1 ve sloupci A najít text z listu2 sloupce A a podle shody zkopírovat hodnotu ze sloupce B z listu2 do sloupce B na listu1. (To co z toho chci dostat je v souboru Výsledek.xlsx) Doufám že je dotaz srozumitený ...