COPIAR FILAS A OTRA HOJA

Pido disculpas por las mayúsculas del título.

Hola "japbcn"
Sin utilizar macros, la solucion mas sencilla es utilizar un autofiltro,
elegir 0 en la columna A y despues copiar y pegar en otra hoja

Un saludo
Pedro J.

Hola.
He estado buscando en el grupo algún hilo del que poder sacar la
información que necesito, pero no he encontrado nada que pudiera
adaptar.
Tengo una hoja de cálculo con unas 15.000 filas con datos.
En la columna A tengo los valores 1 y 0.
Necesito copiar en otra hoja, las filas cuyos valores en A sean cero.
Como puedo hacerlo?

Muchas Gracias
Joan Antoni Passaret
Barcelona

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 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 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