Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
P/ o Reinaldo acres...
 
Notifications
Clear all

P/ o Reinaldo acrescentar - Macro copiar linhas

 
2024 - VBA & Macros
Post Recente por ilbeh morais 12 anos atrás
3 Posts
2 Usuários
0 Reactions
936 Visualizações
RSS
 ilbeh morais
(@ilbeh-morais)
Posts: 51
Trusted Member
Topic starter
 

Boa noite

Essa macro foi desenvolvida pelo Reinaldo em 01/04/2013 e funciona a contento, mas pediria ao mesmo que fizesse alteração para que macro copiasse apenas os valores.

Sub Copiar()
Sheets("Plan1").Range("G2:P2").Copy Destination:=Sheets("Plan1").Cells(Range("F2").Value + 4, 7)
'Se quiser limpar os dados depois de copiados
Sheets("Plan1").Range("F2:P2").ClearContents
End Sub

Grato :D

 
Postado : 01/03/2013 10:13 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

E conveniente não direcionar sua duvida/pergunta a uma pessoa, para não inibir outras pessoas que possam responder/participar; pois se essa pessoa não estiver disponivel, ficará sem resposta

Veja se lhe atende:

Sub Copiar()
Sheets("Plan1").Range("G2:P2").Copy
Sheets("Plan1").Cells(Range("F2").Value + 4, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
'Se quiser limpar os dados depois de copiados
Sheets("Plan1").Range("F2:P2").ClearContents
End Sub
 
Postado : 02/03/2013 5:24 am
 ilbeh morais
(@ilbeh-morais)
Posts: 51
Trusted Member
Topic starter
 

Bom dia
Ok. farei isso na proxima vez.
Grato

 
Postado : 02/03/2013 7:49 am
Forum Jump:
  Tópico Anterior
Próximo Tópico