Este fórum está sendo desativado

[Domingsp]

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

[alexandrevba]

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

[wesleyribeiro123]

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

[Domingsp]

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!