Guru do Excel e Power BI

Enviado: **21 Nov 2017 às 00:08**

Bom dia, Na Coluna L de Plan3 tenho alguns valores. E na coluna O da Plan10 já existem três valores. Nessa macro preciso copiar os valores da coluna L de Plan3 e colar na coluna O da Plan10, colando sempre na primeira celula vazia, abaixo da ultima preenchida. Ou seja, a macro vai sempre acumulando valores em coluna O. Mas nesse código que tentei adaptar, apresenta erro em Range("O" & ult).Select

"O metodo Range do objeto Global falhou"

Código: Selecionar todos

Sub COP_PLAN3()
 Sheets("Plan3").Range("L2:L14").Copy
 Sheets("Plan10").Activate
 ult = Cells(Rows.Count, "O").End(xlUp).Offset(1)
 Range("O" & ult).Select
 ActiveSheet.Paste
  Application.CutCopyMode = False
End Sub

Enviado: **21 Nov 2017 às 07:08**

Bom dia!!

Seria isso?

Código: Selecionar todos

Sub AleVBA_5832()
Sheets("Plan3").Range("L2:L14").Copy Sheets("Plan10").Range("O" & Rows.Count).End(xlUp)(2)
End Sub

Obs: (explique essa parte que eu não entendi...) vai pegar sempre o intervalo ("L2:L14") da guia PLan3? Do primeiro ao ultimo valor da coluna L?

Att

Enviado: **21 Nov 2017 às 07:36**

DomingSP
Bom dia,

Brother, tente o seguinte:

Código: Selecionar todos

Sub COP_PLAN3()
Sheets("Plan3").Range("L2:L14").Copy
Sheets("Plan10").Activate
ult = Cells(Rows.Count, 15).End(xlUp).Row
Range("O" & ult).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub

Enviado: **21 Nov 2017 às 11:53**

Boa tarde, caras. Obrigado pela atenção dedicada.
Olha as duas soluções funcionam. A do Wesley inicialmente escreve em cima da ultima linha preenchida de col O. Por exemplo:
Coluna L: 5 7 12
Coluna O: 0 1 2
Depois da execução da macro, em col O ficava: 0 1 5 7 12. Ele escrevia sobre o 2 de O. Mas bastou fazer essa mudança: ult = Cells(Rows.Count, 15).End(xlUp).Row + 1 e funciona perfeito.
A do Alexandre funciona logo de cara.
Valeu!

Guru do Excel e Power BI

Copiar e colar na primeira célula vazia

Copiar e colar na primeira célula vazia

Re: Copiar e colar na primeira célula vazia

Re: Copiar e colar na primeira célula vazia

Re: Copiar e colar na primeira célula vazia