Napíš do makra:

Sub StejnaBarvaPoloviny()
For i=1 to cca 100
If Rada(i).polovina.barva <> StejnaBarva then
Rada(i).polovina.barva = StejnaBarva
End If
Next i
MsgBox "Presne tohle resp trochu modifikovane je hotovo"
End Sub

Teda... ak som to správne pochopil...

P.S. Makro sa píše do editora VBA na karte Vývojár

Aký dotaz, taká odpoveď