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

950 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

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

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

Postado : 02/03/2013 5:24 am