Zdravím, na listu "Printer" do sloupce A bych si vydefinoval seznam tiskáren a pak pro nastavení tiskárny použil tento kód: Sub Makro1() On Error Resume Next I = 1 Do While Not (IsEmpty(Cells(I, 1))) Application.ActivePrinter = Sheets("Printer").Cells(I, 1).Value If Err.Number = ...

Ahoj, myslím si, že přes nějaké pomocné tabulky by to šlo i bez maker.

To vypadá, že tam máš v jednom listu 2 makra stejného názvu Worksheet_Change.

ad 1) vzorec pro podmíněné formátování = mod(řádek();7) = 0

Měl by tam být vzorec =B2=0 nebo =$B2=0 (pro případné kopírování formátování do více sloupců)

A nemáte tam podmínku B$2=0?

Zdravím, šel bych na to jinak:
=A(A1>=1;A1<5;A2=1)*E3+A(A1>=1;A1<5;A2=2)*E4+A(A1>=1;A1<5;A2=3)*E5 atd.

Zdravím,
užití UF se pokud možno vyhýbám. Posílám návrh jiného řešení. (List Calculation).

místo s.Words.Count zkus s.Characters.Count

I když ten filtr zrušíte, tak řádek je stále označený. Možná byste měla napsat, co s tím řádkem zamýšlíte dál. Tou sekvencí šipka dolů, šipka nahoru označíte jednu buňku z toho "vyfiltrovaného" řádku, a pak můžete zas kliknout a vybrat ten řádek (ta šipka nahoru je zbytečná pokud víte, že ...

Stiskne se šipka dolu a nahoru nebo obráceně

Myslím, že by to šlo nějak přes styly. V Office2007 se klikne v textu pravým tlačítkem a vybereš "Styly" -> "Vybrat text se stejným formátováním" a pak si můžeš hrát s formátováním.