Notifications

Clear all

Macro não copia igual

2024 - VBA & Macros

Post Recente por Rui Maciel 8 anos atrás

10 Posts

4 Usuários

0 Reactions

1,323 Visualizações

RSS

Rui Maciel

(@rui-maciel)

Posts: 190

Reputable Member

Topic starter

Bom dia
Tenho a seguinte macro para copiar tudo igual para uma nova folha:

Sheets("Modelo").Select
Columns("A:F").Select
Selection.Copy
Sheets(nome).Select
Columns("A:F").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Contudo, não copia com as margens iguais, como faço para tal acontecer, alguém tem ideia, obrigado desde já.
Att.,
Rui

Postado : 01/03/2017 3:56 am

hronconi

(@hronconi)

Posts: 314

Reputable Member

Envie um modelo do seu arquivo para podermos identificar onde está seu problema, pois o código acima copiou normalmente para mim.

Obrigado.

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado!

Postado : 01/03/2017 5:15 am

Rui Maciel

(@rui-maciel)

Posts: 190

Reputable Member

Topic starter

Aqui vai obrigado.
Pretendo com o uerform ufm_Anos criar novo ano numa nova aba com as configurações da aba Modelo.
Att.,
Rui

Postado : 01/03/2017 5:38 am

hronconi

(@hronconi)

Posts: 314

Reputable Member

Rui,

Utilize assim que vai funcionar:

Sub Copiar()
    Sheets("modelo").Select
    Cells.Select
    Selection.Copy
    Sheets("Nome").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado!

Postado : 01/03/2017 6:10 am

Rui Maciel

(@rui-maciel)

Posts: 190

Reputable Member

Topic starter

Boa tarde Henrique
Não funciona, está a copiar sem as margens iguais e passa para o dobro das páginas. Eu não utilizo a macro "Sub Copiar()", está diretamente no userform ufm_anos.
Att.,
Rui

Postado : 01/03/2017 6:37 am

teleguiado

(@teleguiado)

Posts: 142

Estimable Member

Aqui funcionou.

Obrigado.

Teleguiado.
E-mail: [email protected]

Postado : 01/03/2017 11:50 am

Rui Maciel

(@rui-maciel)

Posts: 190

Reputable Member

Topic starter

Será por ter o office 2016?

Postado : 01/03/2017 12:21 pm

Rui Maciel

(@rui-maciel)

Posts: 190

Reputable Member

Topic starter

Será por ter o office 2016?

É que copia mas não mantém as margens na nova folha criada.
Att.,
Rui

Postado : 01/03/2017 12:33 pm

Syrax

(@syrax)

Posts: 160

Estimable Member

Rui lembro que fiz esse código para você e o mesmo copiou as bordas
tinha feito o teste antes de te enviar...

dois usuários acima, disseram que o código está funcionando para eles

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 : 01/03/2017 1:33 pm