Bom dia Mestres.
Estou precisando de uma ajuda.
O código abaixo é para preenchimento da célula ativa, mas estou com uma duvida em relação a coloração da célula que não estou encontrando uma coloração em verde bem claro....
Outro detalhe que não estou achando um código para deixas todas as células da linha seleciona em negrito.
Segue o codigo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'O OBJETO "TARGET" RECEBE A CÉLULA QUE ACABA DE SER SELECIONADA,
'POR CLIQUE DO MOUSE OU PELO TECLADO
'DESCOBRINDO QUAL A ÚLTIMA LINHA PREENCHIDA NA PLANILHA
ULTIMA = Range("A3").End(xlDown).Row
'SAIR DO PROCEDIMENTO SE A CÉLULA SELECIONADA NÃO ESTIVER ENTRE AS LINHAS 7 E A ÚLTIMA PREENCHIDA.
If Target.Row < 3 Or Target.Row > ULTIMA Then Exit Sub
'SAIR DO PROCEDIMENTO SE A CÉLULA SELECIONADA NÃO ESTIVER ENTRE AS COLUNAS 1 E 47 (DE A ATÉ AU).
If Target.Column < 1 Or Target.Column > 47 Then Exit Sub
'APLICANDO PADRÃO INICIAL EM TODAS AS CÉLULAS DA TABELA
With Range("A3" & ":AU" & ULTIMA).Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'COM A LINHA SELECIONADA (TARGET.ROW), DEFININDO FORMATAÇÃO DE DESTAQUE
With Range("A" & Target.Row & ":AU" & Target.Row).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
End Sub
Postado : 18/12/2015 5:25 am