Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar somente valo...
 
Notifications
Clear all

Copiar somente valores e colorações #2

 
2024 - VBA & Macros
Post Recente por RAMZERO 7 anos atrás
3 Posts
2 Usuários
0 Reactions
916 Visualizações
RSS
 RAMZERO
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

Pessoal bom dia!

Tenho o seguinte código desenvolvido pelo amigo Osvaldomp:

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

Esse código copia o conteúdo de P1:U5 e cola em P2 deletando somente as formatações condicionais que existem na range P1:S1, ou seja, a aparência continua intacta, como fontes, cores de fonte e de preenchimento. Neste exemplo, a range de P1:U1 já existem valores finais e nenhuma fórmula, somente as formatações condicionais na range P1:S1

Gostaria de saber se tem como fazer, baseado no exemplo, porém se agora na range de P1:U1 existissem fórmulas e não valores finais

Obrigado

 
Postado : 20/04/2018 5:41 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Quando não sei fazer algo no VBA, vou ao menu EXIBIÇÃO >> MACROS >> GRAVAR MACRO
Faço o que eu quero aí volto ao menu EXIBIÇÃO >> MACROS >> PARAR GRAVAÇÃO
Aperto Alt + F11 e vejo como a macro fez aquilo. Tento entender e tento adaptar.

 
Postado : 20/04/2018 5:50 am
 RAMZERO
(@ramzero)
Posts: 127
Estimable Member
Topic starter
 

Fala Klarc28

Cara desde a primeira vez que vc me deu essa dica, eu sempre tento fazer isso antes de pedir ajuda aqui, mas vamos lá

Quando eu fiz, resultou nisso:

    Range("P1:U1").Select
    Selection.Copy
    Range("P2").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Até deu certo, só que sempre resulta numa seleção de células e toda vez que eu preciso olhar outra coisa na planilha, a tela volta pra seleção se o código rodar de novo

Queria eliminar esse problema, ficando "livre" para navegar pela planilha, e também, aprender a enxugar o código acima, pois nas minhas tentativas, não tive sucesso

Pode me ajudar?

Obrigado

 
Postado : 21/04/2018 9:02 am
Forum Jump:
  Tópico Anterior
Próximo Tópico