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