Eu tenho este código no VBA:
Function SBarvou(range)
If range.Value = "R" Then
SBarvou = "O"
If range.Value = "R" And range.Interior.Color = RGB(255, 255, 0) Then
SBarvou = "O"
SBarvou.Interior.Color = RGB(255, 255, 0)
End If
End If
Função final
A primeira parte está funcionando, mas quando a célula de origem é amarela (RGB 255,255,0) ela não funciona. Eu preciso disso quando a célula de origem contém R e é amarela, então a célula de produto O e amarelo também.
Como consertar, por favor?
Tags colors microsoft-excel vba