Copia rango y pega en columna

[mago18]

Hola a todos:

hice esta pequeña macro que me copia un rango de celdas (L5 a L148) y la pego en la columna AN desde la celda AN5. este copido y pegado las realizo varias veces pero si copio y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[conmed]

Hola mago18,

Prueba con esto:

Sub Copia()
'*****************
'...::CONMED::...
'*****************
'
Pegar = Range("L5:L148")
Range("AN5").Select
Do While ActiveCell.Value <> Empty...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Goldfinger]

trata con esta macro
Sub copiar()
Set origen = Range("l5").CurrentRegion
Set destino = Range("an5").CurrentRegion
fDest = destino.Rows.Count

If fDest > 1 Then Set destino =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Mas o menos lo mismo:

Sub Copia()
Range("AN5").Select
Do Until ActiveCell = Empty: ActiveCell.Offset(0, 1).Select: Loop
Range("L5:L148").Copy ActiveCell
End Sub

 

[mago18]

Buena tarde a todos:

Muchas gracias por su ayuda, he probado sus aportes y la de conmed me sirve más ya que mis datos a copiar tienen fórmulas y solo quiero pegar los resultados.

Muchas gracias