Comentários sobre: Destacar a linha selecionada alterando a cor de fundo http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/ Canal de soluções e dicas sobre Excel Avançado e VBA Sun, 04 Jul 2010 00:09:20 +0000 hourly 1 http://wordpress.org/?v=3.0 Por: Eder Cunha http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1218 Eder Cunha Thu, 18 Feb 2010 11:53:58 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1218 Reinaldo, através da dica que vc passou acima.. Substituir Target.Interior.ColorIndex = INT_BG_CEL_SELECIONADA Por: Range(“A” & Target.Row & “:D” & Target.Row).Interior.ColorIndex = INT_BG_CEL_SELECIONADA A linha mudou de cor da coluna A até a D, perfeito!! Dai surgiu um problema, quando a linha ficava perdia a seleção, as colunas de B até C ficavam coloridas, dai eu substitui o comando... Set LinhaSelecAnterior = Target por Set LinhaSelecAnterior = Range("A" & Target.Row & ":D" & Target.Row) e funcionou perfeitamente!!! É isso que acontece quando a dica é bem especificada e simplificada!! Valeu mesmo!!! Obrigado!! Eder Cunha Reinaldo, através da dica que vc passou acima..

Substituir

Target.Interior.ColorIndex = INT_BG_CEL_SELECIONADA

Por:

Range(“A” & Target.Row & “:D” & Target.Row).Interior.ColorIndex = INT_BG_CEL_SELECIONADA

A linha mudou de cor da coluna A até a D, perfeito!!
Dai surgiu um problema, quando a linha ficava perdia a seleção, as colunas de B até C ficavam coloridas, dai eu substitui o comando…

Set LinhaSelecAnterior = Target

por

Set LinhaSelecAnterior = Range(“A” & Target.Row & “:D” & Target.Row)

e funcionou perfeitamente!!!

É isso que acontece quando a dica é bem especificada e simplificada!!

Valeu mesmo!!!
Obrigado!!

Eder Cunha

]]> Por: Reinaldo Coral http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1182 Reinaldo Coral Fri, 12 Feb 2010 16:18:59 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1182 Substituir <strong>Target.Interior.ColorIndex = INT_BG_CEL_SELECIONADA</strong> Por: <strong>Range(“A” & Target.Row & “:D” & Target.Row).Interior.ColorIndex = INT_BG_CEL_SELECIONADA</strong> Abraço Substituir

Target.Interior.ColorIndex = INT_BG_CEL_SELECIONADA

Por:

Range(“A” & Target.Row & “:D” & Target.Row).Interior.ColorIndex = INT_BG_CEL_SELECIONADA

Abraço

]]> Por: Eder Cunha http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1094 Eder Cunha Tue, 02 Feb 2010 12:33:21 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1094 Reinaldo, só mais uma pergunta, eu sei que isso pra vc deve ser a coisa mais simples do mundo, mas como eu estou começando a "fussar" no VB agora, este codigo que vc escreveu para manter a cor da linha após mudar de celula ativa, ela funcionou com a dica que vc passou.. "Substitua por: If Target.Row >= 10 And Target.Row <= 25 Then" A pergunta é: Somente a celula ativa muda a cor, como faço para mudar as celulas da coluna A até a D? Prometo que não te importuno mais!!!! rsrsrs Muito obrigado!! Eder Cunha Reinaldo, só mais uma pergunta, eu sei que isso pra vc deve ser a coisa mais simples do mundo, mas como eu estou começando a “fussar” no VB agora, este codigo que vc escreveu para manter a cor da linha após mudar de celula ativa, ela funcionou com a dica que vc passou..

“Substitua por:

If Target.Row >= 10 And Target.Row <= 25 Then"
A pergunta é:
Somente a celula ativa muda a cor, como faço para mudar as celulas da coluna A até a D?
Prometo que não te importuno mais!!!! rsrsrs
Muito obrigado!!

Eder Cunha

]]> Por: Eder Cunha http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1088 Eder Cunha Mon, 01 Feb 2010 14:39:18 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1088 Puts.. se ajudou? Ajudou e muito!! Valeu mesmo, deu tudo certo, Muitissimo Obrigado!!! Eder Cunha Puts.. se ajudou?
Ajudou e muito!!
Valeu mesmo, deu tudo certo, Muitissimo Obrigado!!!

Eder Cunha

]]> Por: Reinaldo Coral http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1086 Reinaldo Coral Mon, 01 Feb 2010 13:45:48 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1086 O ideal é que você substitua por completo o código anterior, a princípio, por você não conhecer muito o VBA. Acredito que não tenha funcionado por uma linha de comando que você deve substituir deste código: Onde está escrito: <strong>If Target.Row >= 10 And Target.Row = 25 And Target.Row = 15 And Target.Row <= 25 Then</strong> Substitua por: <strong>If Target.Row >= 10 And Target.Row <= 25 Then</strong> Explicando um pouco: Na linha de comando <em>Case 1,2,3,4,...</em> você pode definir as colunas que serão afetadas pelo código. Na linha de comando<em> If Target.Row >= 10 And Target.Row <= 25 Then</em> você pode definir as linhas que serão afetadas pelo código. Espero ter ajudado. Abraço O ideal é que você substitua por completo o código anterior, a princípio, por você não conhecer muito o VBA.

Acredito que não tenha funcionado por uma linha de comando que você deve substituir deste código:
Onde está escrito:

If Target.Row >= 10 And Target.Row = 25 And Target.Row = 15 And Target.Row <= 25 Then

Substitua por:

If Target.Row >= 10 And Target.Row <= 25 Then

Explicando um pouco:
Na linha de comando Case 1,2,3,4,… você pode definir as colunas que serão afetadas pelo código.
Na linha de comando If Target.Row >= 10 And Target.Row <= 25 Then você pode definir as linhas que serão afetadas pelo código.

Espero ter ajudado.
Abraço

]]> Por: Eder Cunha http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1085 Eder Cunha Mon, 01 Feb 2010 12:51:45 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1085 Legal, agora funcionou, eu tinha copiado e colado, não deu certo, dai eu digitei tudo o que vc escreveu e funcionou, vai entender né?? Valeu mesmo!!! Eu sei que vc está com o tempo muito curto, mas se vc puder me dar uma dica, eu peguei o comando que vc enviou para o Fernando (para que a cor de fundo não fosse substituida) e mesclei junto com o programa inicial mas não funcionou, se vc não conseguir responder por falta de tempo não tem problema não pq isso é´ só um detalhe. Desde já agradeço!! Eder Cunha Legal, agora funcionou, eu tinha copiado e colado, não deu certo, dai eu digitei tudo o que vc escreveu e
funcionou, vai entender né??
Valeu mesmo!!!
Eu sei que vc está com o tempo muito curto, mas se vc puder me dar uma dica, eu peguei o comando que vc
enviou para o Fernando (para que a cor de fundo não fosse substituida) e mesclei junto com o programa
inicial mas não funcionou, se vc não conseguir responder por falta de tempo não tem problema não pq isso é´
só um detalhe.
Desde já agradeço!!
Eder Cunha

]]> Por: Reinaldo Coral http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1084 Reinaldo Coral Mon, 01 Feb 2010 12:21:45 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1084 Acredito que você tenha copiado o código (Ctrl+C) e colado(Ctrl+V) no VBA. Isso carrega a codificação web para o ambiente de texto puro. A codificação das aspas ("") não é transformada de maneira correta. Tente redigitar, manualmente, todas as aspas das linhas copiadas. Deve corrigir isto. Abraço Acredito que você tenha copiado o código (Ctrl+C) e colado(Ctrl+V) no VBA.
Isso carrega a codificação web para o ambiente de texto puro. A codificação das aspas (“”) não é transformada de maneira correta.
Tente redigitar, manualmente, todas as aspas das linhas copiadas. Deve corrigir isto.

Abraço

]]> Por: Eder Cunha http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1080 Eder Cunha Mon, 01 Feb 2010 09:34:16 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1080 Muito Obrigado pela atenção, fiz o que vc mandou e está dando erro de compilação e os dois pontos antes da letra D ( ":D" ) fica selecionado, como se não fosse para ele estar ali, o que será que eu fiz errado? Obrigado Reinaldo!!! No aguardo!!! Eder Cunha Muito Obrigado pela atenção, fiz o que vc mandou e está dando erro de compilação e os dois pontos antes da
letra D ( “:D” ) fica selecionado, como se não fosse para ele estar ali, o que será que eu fiz errado?

Obrigado Reinaldo!!!

No aguardo!!!

Eder Cunha

]]> Por: Reinaldo Coral http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1058 Reinaldo Coral Sat, 30 Jan 2010 01:05:20 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1058 Oi Eder, Podes substituir os comandos <strong>Rows(ActiveCell.Row)</strong>.Interior.ColorIndex = [número da cor] Por <strong>Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row)</strong>.Interior.ColorIndex = [número da cor] No seu caso, por exemplo, da coluna <strong>A</strong> até a coluna <strong>D</strong>: <strong>Range("A" & ActiveCell.Row & ":D" & ActiveCell.Row).Interior.ColorIndex = 15</strong> Um abraço. Oi Eder,

Podes substituir os comandos

Rows(ActiveCell.Row).Interior.ColorIndex = [número da cor]

Por

Range(“A” & ActiveCell.Row & “:D” & ActiveCell.Row).Interior.ColorIndex = [número da cor]

No seu caso, por exemplo, da coluna A até a coluna D:

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

Um abraço.

]]> Por: Eder Cunha http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/comment-page-1/#comment-1051 Eder Cunha Fri, 29 Jan 2010 13:23:24 +0000 http://www.exceldoseujeito.com.br/?p=6#comment-1051 Olá Reinaldo, gostei muito do codigo que vc postou e como eu não sou expert no assunto, gostaria de saber como faço para deixar a linha preenchida somente até a coluna D? Valeu cara, Obrigado!!! Eder Cunha Olá Reinaldo, gostei muito do codigo que vc postou e como eu não sou expert no assunto, gostaria de saber como faço para deixar a linha preenchida somente até a coluna D?

Valeu cara, Obrigado!!!

Eder Cunha

]]>