COLORAÇÃO INTERIOR ...
 
Notifications
Clear all

COLORAÇÃO INTERIOR CELULA

6 Posts
4 Usuários
0 Reactions
1,142 Visualizações
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

bom dia Mestres.

Eu tenho uma planilha que tem varias células coloridas, mas quando preciso mover a célula, por exemplo A40 para A35 a cor da célula na acompanha, preciso que a cor que esta na célula A40 siga para A35.

Existe algum tipo de código não sendo formatação condicional para esse tipo de solução?

 
Postado : 23/12/2015 8:16 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Confesso que não entendi, o que é mover??

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

 
Postado : 23/12/2015 8:31 am
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Explicado.

Eu tenho uma planilha que tem uma macro, que ao clicar em uma seta, a onde estiver a célula ativa ela sobe ou desce a informação contida na célula, isto é: quando a célula ativa estiver na célula A40 por exemplo, mas quero mudar a posição para célula A22, somente faço o click na seta que vai mover o conteúdo da célula A40 para a célula A22.

Essa planilha é de programação de maquina na industria que trabalho.

Preciso de um código que ao mover o conteúdo da célula A40 para A22, o cor que a célula esta "pintada" continue mesmo movendo ele de posição...

Acho que agora esta mais fácil o entendimento.

 
Postado : 23/12/2015 8:58 am
(@mprudencio)
Posts: 2749
Famed Member
 

O nome da solução para o entendimento é uma planilha de exemplo..

Continuo boiando.

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 : 23/12/2015 4:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Denilson, o ideal seria colocar a rotina que utiliza e procurar utilizar termos mais apropriados, se não ficamos por suposições e adivinhações.
No primeiro instante quando disse "MOVER" de uma celula para outra pensei que seria mover o foco da celula ativa para outra, mas depois disse "MOVER" o "CONTEÚDO", então entendi que seria utilizar o "RECORTAR" uma celula e "COLAR" em outra.
Resumindo, se for isto, normalmente quando utilizamos RECORTAR e COLAR é carregado toda a formatação da celula junto com seu conteúdo, sendo assim se utilizar o Gravador de Macros teremos a seguinte Macro :

Sub Macro1()
    
    Range("A40").Select
    Selection.Cut
    
    Range("A22").Select
    ActiveSheet.Paste
    
End Sub

E estas 4 instruções (linhas) podem ser trocadas por uma somente, ficando :

Sub RecortaCola()
    
    Range("A40").Cut Destination:=Range("A22")
    
End Sub

Assim se tivesse colocado a rotina que está utilizando e não só dizer : "somente faço o click na seta que vai mover o conteúdo da célula A40 para a célula A22." seria mais fácil, pois não sabemos o que há por traz desta "SETA".

[]s

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

 
Postado : 23/12/2015 8:04 pm
(@edcronos2)
Posts: 346
Reputable Member
 

Vai ser necessário a macro que já está em funcionamento para se fazer os ajustes

oq vc quer é substituir a celula inteira com todos os atributos, ou pelo menos copiar os atributos de formatação para a nova posição do valor
mas oq vai ser feito na posição antiga do valor?

 
Postado : 23/12/2015 8:17 pm