Notifications
Clear all

Código que muda cor célula ativa

6 Posts
4 Usuários
0 Reactions
1,668 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde colegas.
Esse trabalho que envio em anexo precisa manter as cores da planilha como estão.
A célula ativa tem outra cor de fundo. O problema é que por onde ela passa deixa um fundo diferente da cor original.
Tem como resolver isso?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2018 9:31 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Olá veja se isso ajuda:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Target.Interior.ColorIndex = 36
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 28/05/2018 10:42 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

xlarruda esse não serve.
Preciso daquele código mesmo, ele vai ser adaptado numa outra pasta que contem outras formatações de células que não pode ser alteradas.
Já peguei outros códigos na net e o que deu certo foi esse do anexo.
Só ficou esse probleminha dele modificar onde passa.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2018 11:03 am
(@mprudencio)
Posts: 2749
Famed Member
 

Eu nem olhei o seu codigo, mas qdo vc passa por uma celula esta se torna a celula ativa, independente do tempo que isto dure.

Entao se eu entendi sua duvida acredito nao ser possivel fazer diferente.
Vc quer que o codigo funcione apenas na celula q o cursor parar.

Se vc nao quiser que funcione em determinada coluna da planilha basta excluir esta coluna no codigo.

Uma coluna que tenha uma formatação codicional por exemplo pode excluir do codigo.

if target.collumn <> 6 then

seu codigo aqui

end if

Seu codigo vai funcionar na planilha inteira menos na F neste caso.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 28/05/2018 4:08 pm
(@pedepano)
Posts: 18
Active Member
 

xlarruda esse não serve.
Preciso daquele código mesmo, ele vai ser adaptado numa outra pasta que contem outras formatações de células que não pode ser alteradas.
Já peguei outros códigos na net e o que deu certo foi esse do anexo.
Só ficou esse probleminha dele modificar onde passa.

https://youtu.be/hMBTO-5i4JI

 
Postado : 28/05/2018 7:53 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, bom dia.
Agradeço muito a atenção de todos e colaboração de todos.
Tentei de tudo, inclusive a dica do Pedepano.
Depois de muito garimpar na net encontrei um jeito de deixar a bagaça do modo desejado.

http://www.teclati.com/2010/06/detacar- ... excel.html

Abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/05/2018 6:00 am