makro na obarvovani textu Vyřešeno

[jiri255]

Zdravím,
opět bych chtěl ještě požádat o pomoc. Mám ještě jeden menší problém z makrem na obarvování textu.
Našel jsem údajně funkční makro, které pokud najde ve sloupci A na nějakém řádku černý text, tak ho
změní na jinou barvu, ale to makro končí hned na druhém řádku chybou, nevíte někdo v čem by mohl
být problém?
Ve sloupci A je například na řádku 1 text "aaaaaaa" ,na řádku 5 text "bbbbb", atd...

Kód: Vybrat vše

Sub obarveni()
Columns("A:A").select
ozn_text = thisComponent.currentController.ViewCursos
If Text.charColor = 16711680 Then
ozn_text.charColor = -1
End If
End Sub


Předem děkuji za pomoc

[Reklama]

[cmuch]

Tady je jiné makro které projde sl.A a kde je nastaven text na černou tak ho přenastaví na červenou.

Kód: Vybrat vše

Sub ObarviBunky()

  For radek = 1 To Range("A" & Rows.Count).End(xlUp).Row + 2
    'pokud ma bunka nastaven font na cernou tak prebarvi na cervenou
    If Cells(radek, "A").Font.Color = vbBlack Then
      Cells(radek, "A").Font.Color = vbRed
    End If
  Next radek
End Sub

[lubo.]

Možná u toho makra také byl uveden program, pro ktery je určeno. (Calc - LO/AOO)

[jiri255]

to makro od cmuch, funguje bezvadně děkuji za pomoc