Destacar Linha

[Advaldo Luiz]

Boa tarde!

Tenho um código para destacar a linha inteira que a célula estiver selecionada.

O que poderia ser alterado para que ele destaca um determinado range?

Exemplo: gostaria que destacasse somente as linhas das colunas de A até D.

Segue o código:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Cells.Interior.ColorIndex = xlColorIndexNone

ActiveCell.EntireRow.Interior.ColorIndex = 15

End Sub

Att, Advaldo Luiz

[José Luiz]

Uma das formas possíveis é a seguinte:

Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row).Interior.ColorIndex = 15

[ ]’s  possibilitados  ;-))

JLM
Santo André – SP

--
Participe deste Grupo: envie e-Mail em branco para MsExcelBR...@googlegroups.com
---
Você recebeu essa mensagem porque está inscrito no grupo "MsExcelBR" dos Grupos do Google.
Para cancelar inscrição nesse grupo e parar de receber e-mails dele, envie um e-mail para msexcelbr+...@googlegroups.com.
Para ver essa discussão na Web, acesse https://groups.google.com/d/msgid/msexcelbr/6dde8437-2478-4c18-b857-7eb7cfd266afo%40googlegroups.com.

[Advaldo Luiz]

Magnífico, funcionou perfeito. Muito obrigado.

Em terça-feira, 4 de agosto de 2020 15:39:38 UTC-3, JLM escreveu:

Uma das formas possíveis é a seguinte:

Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row).Interior.ColorIndex = 15

[ ]’s  possibilitados  ;-))

JLM
Santo André – SP

 

De: msex...@googlegroups.com [mailto:msex...@googlegroups.com] Em nome de Advaldo Luiz
Enviada em: terça-feira, 4 de agosto de 2020 13:24
Para: MsExcelBR
Assunto: [MsExcelBR] Destacar Linha

 

Boa tarde!

Tenho um código para destacar a linha inteira que a célula estiver selecionada.

O que poderia ser alterado para que ele destaca um determinado range?

Exemplo: gostaria que destacasse somente as linhas das colunas de A até D.

 

Segue o código:

 

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Cells.Interior.ColorIndex = xlColorIndexNone

ActiveCell.EntireRow.Interior.ColorIndex = 15

End Sub

 

Att, Advaldo Luiz

--
Participe deste Grupo: envie e-Mail em branco para MsExcelBR...@googlegroups.com
---
Você recebeu essa mensagem porque está inscrito no grupo "MsExcelBR" dos Grupos do Google.

Para cancelar inscrição nesse grupo e parar de receber e-mails dele, envie um e-mail para msex...@googlegroups.com.

[jcalb...@gmail.com]

Bom dia!

 

Eu não consegui fazer funcionar.

Será que é possível disponibilizar uma planilha com essas instruções para que eu possa verificar onde errei?

 

 

Albertini

jcalb...@gmail.com

Para cancelar inscrição nesse grupo e parar de receber e-mails dele, envie um e-mail para msexcelbr+...@googlegroups.com.
Para ver essa discussão na Web, acesse https://groups.google.com/d/msgid/msexcelbr/adea990d-b575-411d-a7de-ba3ef9a588e2o%40googlegroups.com.

[José Luiz]

Olá, ai está.

 

'Código original

'Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

'    Cells.Interior.ColorIndex = xlColorIndexNone

'    ActiveCell.EntireRow.Interior.ColorIndex = 15

'End Sub

 

'Código alterado por JLM

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    Cells.Interior.ColorIndex = xlColorIndexNone

    Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row).Interior.ColorIndex = 15

End Sub

 

'Instruções:

'Para usar este código, clique inversamente na guia da planilha desejada.

'e escolha a opção "Exibir Código"

'Aparecerá a tela do VBA Cole ou digite as linhas do código Alterado acima.

'Importante o código deve ser colado/digitado em um módulo de planilha

'pois, se for colado/digitado em um módulo padrão, não funcionará.

[ ]’s  exemplificados  ;-))

JLM
Santo André – SP

Para ver essa discussão na Web, acesse https://groups.google.com/d/msgid/msexcelbr/003601d66b14%2454a70c00%24fdf52400%24%40gmail.com.

[adva...@gmail.com]

Vc tem que colocar o código na planilha, se colocar em um módulo não vai funcionar, pelo menos comigo não funcionou no módulo

Segue a planilha em anexo.