VBA Se com cor

0

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?

    
por Roman Žydyk 15.05.2017 / 15:40

0 respostas