copiar seleccion

Pero ¿qué es lo que está seleccionado al hacer el Copy?. Si, por ejemplo, fuera una columna completa, y luego intentaras pegarla a partir de una celda que no estuviera en la fila 1, obtendrías un error porque resultaría imposible pegar 65536 filas a partir de, por ejemplo, la fila 5.

Si pones la instrucción

MsgBox Selection.Address

justo antes del Copy, al menos sabrás el rango que estás intentando pegar... También pudiera ser que la hoja destino estuviera protegida, o alguna otra cosa que no se me ha ocurrido.

Un saludo.


Fernando Arroyo
MS MVP - Excel


"jon" escribió en el mensaje news:

Hola,

Tengo este codigo que no funciona cuando llega a la linea
"Activesheet.paste", es decir no pega.

Alguna soluccion???

Saludos y gracias por anticipado

jon

Sub PRUEBA()
Selection.Copy
Workbooks.Open FileName:="C:\WINDOWS\Escritorio\DIARIOS\PRUEBA.xls"
Range("A65365").End(xlUp).Offset(1, 0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Hola majetes:
¿puede ser que tengas el botón que ejecuta la macro seleccionado?
Si es así en la propiedades le puedes cambiar "take focus on click" a
false.

"Fernando Arroyo" escribió en el mensaje
news:%
Pero ¿qué es lo que está seleccionado al hacer el Copy?. Si, por ejemplo,
fuera una columna completa, y luego intentaras pegarla a partir de una celda
que no estuviera en la fila 1, obtendrías un error porque resultaría
imposible pegar 65536 filas a partir de, por ejemplo, la fila 5.

Si pones la instrucción

MsgBox Selection.Address

justo antes del Copy, al menos sabrás el rango que estás intentando pegar...
También pudiera ser que la hoja destino estuviera protegida, o alguna otra
cosa que no se me ha ocurrido.

Un saludo.


Fernando Arroyo
MS MVP - Excel


"jon" escribió en el mensaje
news:

Hola,

Tengo este codigo que no funciona cuando llega a la linea
"Activesheet.paste", es decir no pega.

Alguna soluccion???

Saludos y gracias por anticipado

jon

Sub PRUEBA()
Selection.Copy
Workbooks.Open FileName:="C:\WINDOWS\Escritorio\DIARIOS\PRUEBA.xls"
Range("A65365").End(xlUp).Offset(1, 0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub