Notifications
Clear all

Copiar somente valores e colorações

12 Posts
3 Usuários
0 Reactions
2,082 Visualizações
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

Pessoal

Tentei de várias formas e não consegui, se alguém puder me ajudar

Preciso copiar o conteúdo de P1 até U9

E colar em P2, para que o conteúdo colado fique de P2 até U10

Só que de P1 até U1 existem várias formatações condicionais de coloração, que se forem copiadas travam o sistema todo

Gostaria de copiar apenas os valores e as colorações de fonte e de preenchimento, não copiando as formatações condicionais

É possível fazer isso por VBA?

Obrigado

 
Postado : 01/03/2018 3:03 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Penso que a planilha de destino ja deveria estar formatada como desejado.

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 : 02/03/2018 5:35 pm
(@osvaldomp)
Posts: 858
Prominent Member
 
[P1:U9].Copy [P2]
 [P2:U10].FormatConditions.Delete

Osvaldo

 
Postado : 02/03/2018 6:10 pm
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

Boa tarde pessoal

Osvaldomp, testei aqui e a função apaga também as cores, preciso que delete apenas as regras das formatações condicionais

As cores foram geradas por formatação condicional em outro local da planilha mas se eu copiar e colar, o Excel leva tudo junto e eu só queria copiar a formatação das fontes e das cores, mas sem as regras. Como se eu tivesse pintado tudo manualmente, entendeu?

MPrudencio se eu gerar algumas poucas linhas com regras das formatações condicionais o sistema trava

Obrigado

 
Postado : 05/03/2018 6:25 pm
(@osvaldomp)
Posts: 858
Prominent Member
 

...testei aqui e a função apaga também as cores, preciso que delete apenas as regras das formatações condicionais
As cores foram geradas por formatação condicional em outro local da planilha mas se eu copiar e colar, o Excel leva tudo junto e eu só queria copiar a formatação das fontes e das cores, mas sem as regras.

Estou totalmente confuso com o que você quer. Os comandos que passei carregam a formatação das células de origem, menos a FC. Foi o que eu entendi que você queria. Ou entendi errado?
Mas agora você diz que apaga também as cores. Claro que apaga pois carrega a formatação da origem.
Ou você está querendo dizer que as células de destino também são coloridas por FC ? Se sim, aí precisamos de uma planilha de amostra.

Osvaldo

 
Postado : 05/03/2018 7:13 pm
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

Osvaldomp bom dia

Sim as colorações são geradas na origem por FC

Preciso que leve as cores sem as FC

O que eu gostaria de fazer, se possível é, copiar somente os valores e as colorações, sem os FCs que geram as colorações, para outro local da planilha onde as células estão em branco sem FC nenhum também, e lá no destino elas fiquem coloridas, iguais as da origem, porém no destino, sem FC por trás para as colorir

Como se lá no destino eu digitasse e pintasse tudo manualmente, copiando do original, mas sem FC pra fazer o trabalho

O problema está em ter muitas FC no destino, isso que tá travando, quando copio tudo, depois que gera umas 5 linhas com 6 colunas cada, já trava tudo, e preciso de pelo menos umas 30 linhas x 6 colunas

* Não sei se esse parágrafo vai complicar mais ou vai ajudar, mas vamos, lá. Na minha planilha depois de tudo pronto, não preciso mais de cálculo nenhum, é simplesmente um painel de informações, somente exibir o resultado que está em outro local, porém de ponta cabeça! Ou seja, a última linha da original passa ser a primeira do destino, a penúltima linha da original passa ser a segunda do destino, a antepenúltima linha da original passa ser a terceira do destino e assim por diante.
Inclusive se isso for possível ser feito em um formulário fora do Excel, tudo bem também.

Espero ter esclarecido

Obrigado

 
Postado : 06/03/2018 5:12 am
(@osvaldomp)
Posts: 858
Prominent Member
 

O que eu gostaria de fazer, se possível é, copiar somente os valores e as colorações, sem os FCs que geram as colorações, para outro local da planilha onde as células estão em branco sem FC nenhum também, e lá no destino elas fiquem coloridas, iguais as da origem, porém no destino, sem FC por trás para as colorir

Então, bingo! :P pois o comando que te passei faz exatamente isso !

Osvaldo

 
Postado : 06/03/2018 5:42 am
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

Mas não estão ficando coloridas, aparece somente os valores e a fonte em negrito, mais nada

 
Postado : 06/03/2018 5:53 am
(@osvaldomp)
Posts: 858
Prominent Member
 

Você pode disponibilizar uma amostra do seu arquivo Excel ?

Osvaldo

 
Postado : 06/03/2018 6:01 am
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

Segue anexo

 
Postado : 06/03/2018 3:57 pm
(@osvaldomp)
Posts: 858
Prominent Member
 

Experimente:

Sub copiarcolar()
 Dim r As Range
  [P1:U5].Copy [P2]
   For Each r In Range("P2:S2")
    r.Font.Color = r.DisplayFormat.Font.Color
    r.Interior.Color = r.DisplayFormat.Interior.Color
    r.FormatConditions.Delete
   Next r
End Sub

Osvaldo

 
Postado : 06/03/2018 5:49 pm
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

Osvaldomp

Fico impressionado com suas linhas de código, cara!

Enxuta e funcional

Que curso você fez pra ter esse raciocínio nos comandos de VBA? Reconheço algumas coisas nas suas linhas de código, mas não consigo interpretar

Muito bom, muito obrigado

 
Postado : 07/03/2018 12:01 pm