Copia aba com mesma formatação para outra

2024 - VBA & Macros

Post Recente por Rui Maciel 8 anos atrás

3 Posts

2 Usuários

0 Reactions

922 Visualizações

RSS

Rui Maciel

(@rui-maciel)

Posts: 190

Reputable Member

Topic starter

Boa noite
Tenho a seguinte macro para copiar para uma nova aba:

Sub Copiar()
Sheets("modelo").Select
Columns("A:D").Select
Selection.Copy
Sheets("nome").Select
Columns("A:D").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

No entanto, não copia com a mesma formatação, ou seja, mais concretamente as margens, como faço para alterar isso? Alguém tem uma forma para rodar, obrigado.
Att.,
Rui

Postado : 27/02/2017 7:08 pm

Syrax

(@syrax)

Posts: 160

Estimable Member

Veja se isso te ajuda

ao invés de você usar

ActiveSheet.Paste

usa

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

Postado : 27/02/2017 10:59 pm