Hey pessoal, eu preciso de ajuda para implementar um código. Eu preciso realizar a formatação de celulas com determinado valores. Ex: Contrato 3997; pinta amarelo Contrato 3998; não pinta. Estilo formatação condicional, só que eu já tenho um código quase pronto e gostaria de usa-lo segue o mesmo. Private Sub PintaContrato() Dim Celula Dim i As Integer Dim Contrato(5) As Integer Dim MinhaFaixa As Range Set MinhaFaixa = Range("C2:R18") Set Celula = MinhaFaixa.Cells Contrato(1) = "3997" Contrato(2) = "3998" Contrato(3) = "3999" Contrato(4) = "4000" Contrato(5) = "6900" For i = 1 To 5 If MinhaFaixa.Value = Contrato(i) Then Celula.Interior.CollorIndex = 6 End If Next End Sub Uma coisa eu percebi eu estou atrelando a variavel minhaFaixa.cells a Celula, e estou pedindo para ela ser pintada, mas variavel celula ela esta setada como a Range, e é isso que ocorre a macro pinta a range. só que eu não consigo criar uma forma para ele pintar os valores da matriz dentro da range.
