Boa tarde Leandro.
Sua dúvida é simples, mas caso a explicação não seja clara, basta perguntar. Segue o passo a passo:
- Pressione 'Alt+F11' para abrir o Visual Basic
- Clique onde aparece 'VBA Project(NomeSuaPlanilha) com botão direito, vá em 'Inserir >> Módulo'
- Cole o código abaixo. Ele funcionará para a aba ativa, ou seja, apenas se vc executá-lo na aba que contém os dados e que deve retornar a saída.
Sub Colorir()
'
' Exibe a cor escolhida por um código RGB.
'
' Considera: RGB = R + 256*G + 256^2*B
'
On Error GoTo FimInesperado
Dim Cores(1 To 3)
Destino = "H3" 'Onde a cor será alterada
'ex.: O R está na célula V2=225, o G está na célula W2=221 e o B está na célula X2=214
Cores(1) = ActiveSheet.Range("V2")
Cores(2) = ActiveSheet.Range("W2")
Cores(3) = ActiveSheet.Range("X2")
ActiveSheet.Range(Destino).Interior.Color = RGB(Cores(1), Cores(2), Cores(3))
Exit Sub
FimInesperado:
MsgBox "Erro na Entrada de Dados!" & vbNewLine & "Verifique os Valores Digitados!" & vbNewLine & vbNewLine & Err.Description, vbCritical, "Operação Não Realizada!"
End Sub
Caso deseje que funcione em outra aba basta basta substituir 'ActiveSheet' por 'Sheets(NomeAba), por exemplo (existem outras formas, mas a melhor depende do caso).
Consegui ser claro?
Abraço.
Filipe Magno
