Este fórum está sendo desativado

[angras]

Bom dia
Tenho uma lista com números (G5:G505) em J3 insiro o número 348 e em G5:G505 o número 348 é "pintado" de vermelho e permanece vermelho, outros números serão inseridos em J3. Não posso usar formatação condicional, preciso pintar o número dessa lista que estiver informado em J3. Hoje o trabalho é manual. Uma macro faz isso? Qual?0

[Foxtri]

Boa tarde.
Veja se serve.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim XRange As Range
If Selection.Rows.Count > 1 Or Selection.Columns.Count > 1 Then Exit Sub
If Target.Row = 3 And Target.Column = 10 And Target.Value <> "" Then
Cells(WorksheetFunction.Match(Range("J3").Value, Range("G5:G505"), 0) + 4, 7).Interior.ColorIndex = 3
End If
End Sub

[angras]

Grati pela ajuda Foxtri