Posted By: Trhan (Trhan) on 'CZprogram' Title: Re: VBA Date: Fri Dec 7 14:16:29 2001 > > > Jak by mel vypadat kod VBA pro oznaceni vice radku na listu v > Excleovskem > > > sesitu (tj. oznaceni nespojite oblasti) a jejich nasledne odstraneni? > > > > > > Napr. testuji jednotlive hodnoty bunek ve sloupci a kdyz je splnena > urcita > > > > > podminka, tak dany radek oznacim, ale zatim neodstranuji! Chci pak > > odstranit > > > > > > vsechny oznacene radky najednou. > > > > Takhle to samozrejme taky delam, jenze v tomhle pripadu se to zaznamena jako > > oznaceni nespojite oblasti v jednom prikazu, treba oznaceni radku 3 a 5 a 7: > > Range("3:3,5:5,7:7").Select > > Jenze ja potrebuje, abych to mohl oznacovat cyklu - pri kazdem pruchodu > pridat oznaceni nejakeho radku a pritom nesmazat oznaceni jiz oznacenych > radku. Tak k tomu me napada: 1) bud do stringu pridavej oznaceni jednotl. radku - potom to jednoduse oznacis pomoci Range(MyStringWithRows).Select 2) nebo budes mit objekt typu Range, do ktereho budes vzdy pricitat dalsi Range pomoci metody Union. Jak na to (vypis z helpu excelu): Dim r1 As Range, r2 As Range, myMultiAreaRange As Range Worksheets("sheet1").Activate Set r1 = Range("A1:B2") Set r2 = Range("C3:D4") Set myMultiAreaRange = Union(r1, r2) myMultiAreaRange.Select No problem...