Página 1 de 1

[RESOLVIDO] Pintar Celula dependendo da Linha selecionada

Enviado: 13 Abr 2022 às 11:02
por AndreSpecker
Pessoal, alguem sabe se é possível

Ao clicar em uma linha da coluna D ou E
Automaticamente pintar a linha da coluna B
Que contem a mesma informação da coluna F

Ex.: Na imagem está selecionado a célula D7, então ele pintaria a célula B12 que é a mesma informação da F7
Pintaria uma cor genérica, não precisa ser a mesma da coluna F7

Imagem

Re: Pintar Celula dependendo da Linha selecionada

Enviado: 13 Abr 2022 às 12:27
por osvaldomp
#
Cole uma cópia do código abaixo no módulo da planilha de interesse.
#
Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim c As Range
 [B4:B50].Interior.Color = xlNone
 If Intersect([D4:E50], Target) Is Nothing Or Cells(Target.Row, 6).Value = "" Then Exit Sub
 Set c = [B4:B50].Find(Cells(Target.Row, 6))
 If Not c Is Nothing Then c.Interior.Color = vbYellow
End Sub

Re: Pintar Celula dependendo da Linha selecionada

Enviado: 13 Abr 2022 às 13:32
por AndreSpecker
Caraca, showw, muito obrigadooo :D