Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro não copia igu...
 
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,300 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
(@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
(@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
(@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
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Boa noite
Utilizei a mesma macro, mas para transferir selecionei toda a plan e formatei o tamanho, aí deu certo, obrigado.

 
Postado : 01/03/2017 2:51 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico