Makro v Excelu pro podbarvení celého řádku

Zdravím.

Rád bych Vás požádal o návod na makro, které mohu zkopírovat rovnou do excelu.

Popis:

Makro by mělo od prvního řádku hledat buňky, kde je text Bold.
Pokud je v buňce text Bold, pak označ celý řádek žlutě a přejdi na další řádek.

Ostatní řádky, kde není Bold nechat být.

Zastav tuto funkci když celý řádek je prázdný (neobsahuje žádný text).

Děkuji předem

Předmět	Autor	Datum
Sub ObarviRadky() Dim i As Long, Obsaz As Boolean i = 1 Do Obsaz = IsEmpty(Cells(i, 1).Value) If Cel… MachR55 04.11.2013 15:48	MachR55	04.11.2013 15:48
Díky moc. Nastavil jsem to na 6 sloupec a funguje to přímo skvěle! black21 05.11.2013 08:03	black21	05.11.2013 08:03
Domácí úkol? 3-[ host 04.11.2013 17:35	host	04.11.2013 17:35
Kdepa, pracovní. Ale pracuji úplně v jiných programech než je excel, takže jsem potřeboval poradit o… poslední black21 05.11.2013 08:04	black21	05.11.2013 08:04

Sub ObarviRadky()
Dim i As Long, Obsaz As Boolean
  i = 1
  Do
    Obsaz = IsEmpty(Cells(i, 1).Value)
    If Cells(i, 1).Font.Bold = True Then
      Rows(i).Interior.Color = 65535
    End If
    i = i + 1
  Loop Until Obsaz
End Sub

Testuje to jen obsah buňky v prvním sloupci. Pokud potřebuješ otestovat něco jiného, už si to lehce upravíš.

Díky moc. Nastavil jsem to na 6 sloupec a funguje to přímo skvěle!

Domácí úkol?

Kdepa, pracovní. Ale pracuji úplně v jiných programech než je excel, takže jsem potřeboval poradit od zkušenějších.

Zpět do poradny Odpovědět na původní otázku Nahoru