COPIAR FILAS A OTRA HOJA

Hola Infinitogool

Lo siento pero no me funciona.
Se queda clavada en Range("A1").Select

He probado a poner en marcha la grabadora de macros, y hacerlo
manualmente, para luego ver el código y aprovecharlo, pero como que a la
hora de hacer el "pegado" en la otra hoja, me da error
"imposible pegar la información ya que el area de Copiado y de Pegado son
distintas..."
y tampoco puedo aprovecharlo.
No podríamos hacer un For... Next o algo similar que fuera mirando fila
por fila y copiándolo en la hoja nueva?

Gracias

Joan Antoni


"Infinitogool" escribió en el mensaje
news:

Hola Joan
Esta macro te copiaria los datos de la hoja datos a la hoja destino
La hoja destino deberia existir


Sub copiar()
Application.ScreenUpdating = False
Selection.AutoFilter Field:=1, Criteria1:="0"
Selection.CurrentRegion.Select
Selection.Copy
Sheets("destino").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Datos").Select
Range("A1").Select
Selection.AutoFilter
End Sub

Un saludo
Pedro J.

Muchas gracias por tu rapida respuesta.
El problema es que no es una hoja de cáculo para mi, y tengo que dejarlo
todo automatizado para que no haya errores.
Por eso preferiría esta vez, una macro.
Muchas gracias.

Joan Antoni

Hola "japbcn"

en principio, para que funcione la macro tienes que tener seleccionada una
celda del rango de datos
..si no quieres selecciona, pon al principio
Sheets("datos").Select
Range("A1").Select

doy por sentado que los datos los tienes en A1:lo que sea

a ver si te funciona...

un saludo
Pedro J.

Hola Infinitogool

Lo siento pero no me funciona.
Se queda clavada en Range("A1").Select

He probado a poner en marcha la grabadora de macros, y hacerlo
manualmente, para luego ver el código y aprovecharlo, pero como que a la
hora de hacer el "pegado" en la otra hoja, me da error
"imposible pegar la información ya que el area de Copiado y de Pegado son
distintas..."
y tampoco puedo aprovecharlo.
No podríamos hacer un For... Next o algo similar que fuera mirando fila
por fila y copiándolo en la hoja nueva?

Gracias

Joan Antoni


"Infinitogool" escribió en el mensaje
news:

Hola Joan
Esta macro te copiaria los datos de la hoja datos a la hoja destino
La hoja destino deberia existir


Sub copiar()
Application.ScreenUpdating = False
Selection.AutoFilter Field:=1, Criteria1:="0"
Selection.CurrentRegion.Select
Selection.Copy
Sheets("destino").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Datos").Select
Range("A1").Select
Selection.AutoFilter
End Sub

Un saludo
Pedro J.

Muchas gracias por tu rapida respuesta.
El problema es que no es una hoja de cáculo para mi, y tengo que
dejarlo todo automatizado para que no haya errores.
Por eso preferiría esta vez, una macro.
Muchas gracias.

Joan Antoni