Notifications
Clear all

Macro não copia

5 Posts
4 Usuários
0 Reactions
1,088 Visualizações
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Boa noite
Tenho esta macro só que não consigo fazer rodar.

Sub Copiar_Formato()
'
' Copiar_Formato Macro
'

'
    Rows("2:2").Select
    Selection.Copy
    sheets("Modelo").Select
    Range("A2").Select
    ActiveSheet.Paste
    ActiveWindow.Zoom = 100
    ActiveWindow.Zoom = 100
    Columns("A:D").Select
    Columns("A").Select
    Selection.ColumnWidth = 46
    Columns("B").Select
    Selection.ColumnWidth = 10.86
    Columns("C").Select
    Selection.ColumnWidth = 11.43
    Columns("D").Select
    Selection.ColumnWidth = 12.43
    Range("A3").Select
End Sub

Alguém me pode ajudar é que eu gostaria que esta macro copia-se a linha 2 das colunas A, B, C, D e ao mesmo tempo todo o conteudo da coluna A até à ultima linha com dados. Agradecido.
Att.,
RM

 
Postado : 12/02/2017 4:23 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Infelizmente não tem como copiar da forma que pretende, o excel não aceita copiar Seleções Múltiplas.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/02/2017 6:27 pm
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Boa tarde e obrigado.
Mas pode copiar a coluna A3 até à última preenchida? Como.
Att.,
RM

 
Postado : 13/02/2017 11:42 am
(@teleguiado)
Posts: 142
Estimable Member
 

Boa tarde e obrigado.
Mas pode copiar a coluna A3 até à última preenchida? Como.
Att.,
RM

Pelo que entendi do código ele esta copiando somente o formato das colunas, e testando aqui esta fazendo isso.

É isso que você quer?? Copiar somente o formato?

Caso queira copiar e colar o conteúdo de uma planilha para outro aqui no forum se você fizer uma pesquisa vai encontrar alguns códigos. ;)

https://cse.google.com.br/cse?cx=partner-pub-8829010114171957%3A3054449148&ie=UTF-8&q=copiar+e+colar&siteurl=www.planilhando.com.br%2Fforum%2Fviewtopic.php%3Ff%3D10%26t%3D23560%26sid%3D65e43c04e5ceb10251688fdcc8be898e&ref=www.planilhando.com.br%2Fforum%2Fviewforum.php%3Ff%3D10&ss=9616j25527474j21&oq=copiar+e+colar&gs_l=partner.3..0.3252.12923.0.13129.17.6.0.11.11.0.344.886.3j1j1j1.6.0.gsnos%2Cn%3D13...0.9617j25536179j21j12..1ac.1.25.partner..3.14.170.zqrfraL_y0w#gsc.tab=0&gsc.q=copiar%20e%20colar&gsc.page=1

Obrigado.

Teleguiado.
E-mail: [email protected]

 
Postado : 13/02/2017 12:56 pm
(@skulden)
Posts: 170
Estimable Member
 

Para copiar seleções múltiplas você pode usar o método Union.

Segue uma planilha de exemplo, olhe o código e veja se lhe servirá.

obs: no exemplo ele está fazendo com células únicas mas você pode alterar para intervalos sem problema nenhum.

Abraços.

Se a resposta lhe foi útil, clique no joinha!

 
Postado : 13/02/2017 1:00 pm