Copiar a otra hoja todas las filas que contengan un determinado valor en una celda

[torpedro1001]

Hola:

Disculpad, pero hay muchos temas parecidos y no encuentro la respuesta exacta.

Tengo una hoja con una base de datos de productos. Una de las columnas, tiene datos de "VENDIDO", "RESERVADO", etc

En otra hoja coloco en A1 "VENDIDO".

Quisiera que en esa segunda hoja, copiara todas las filas de la primera hoja en las que pone "VENDIDO".

Cuando en la primera hoja, un producto cambie de "VENDIDO" a otro estado, esta fila tiene que desaparecer de la hoja 2.

Luego generaré otra hoja con "RESERVADO", ETC.

Muchas gracias.

copiar.xls

[Armando Montes]

Ese es un trabajo para filtros, haz lo siguiente para lo basico:

1. Enciende la grabadora

2. Aplica autofiltro en la hoja 2

3. Copia lo filtrado a la hoja correspondiente: Vendido o Reservado

4. Apaga la grabadora

5. Sube el ejemplo, el libro, con el codigo generado para depurarlo e incorporar lo faltante para copiar a la hoja correspondiente.

[torpedro1001]

Hola Armando:

gracias por tu rápida respuesta.

A ver si te he entendido.

He cogido la tabla datos y le he aplicado filtros.

He encendido la grabadora.

Le he aplicado a la tabla el filtro RESERVADO

He copiado los datos y los he pegado en la tabla de reservados.

He vuelto a datos, he quitado el filtro.

He cerrado el macro.

El resultado obtenido es el que buscaba.

No se si es eso lo que me decías, pero el resultado es el que necesitaba.

Solo tengo una cuestión y es que el número de filas de la tabla datos es variable, por lo que el rango de filas que tengo que copiar ha de ser muy grande, ya que si al grabar el macro sólo copio las filas donde hay reservas y resulta que son 10, pero, otro día resulta que son 20, sólo se copiaran las 10 de cuando cree el macro, por lo que me tendré que curarme en salud y hacer un copiar pegar extenso. Con ello en la tabla en la que pego, habrá siempre un gran número de filas con el formato copiado, pero sin datos. No es que esto me genere un gran problema, sólo es por entender.

Subo el archivo con lo que he hecho.

copiar 2.xls

[Armando Montes]

Hola Pedro, te felicito! esas son ganas de aprender.

Aqui van 2 codigos, prueba ambos para que veas la diferencia, es minima:

Sub FilterCopy()

With Hoja1

    .Range("A1").AutoFilter Field:=6, Criteria1:="RESERVADO"

    .AutoFilter.Range.Offset(1).Copy Hoja3.Range("A12")

    .Range("A1").AutoFilter

End With

End Sub

Sub crFilterCopy()

With Hoja1.Range("A1")

    .AutoFilter Field:=6, Criteria1:="RESERVADO"

    .CurrentRegion.Copy Hoja3.Range("A11")

    .Range("A1").AutoFilter

End With

End Sub[/CODE]

[torpedro1001]

Yo también te felicito a ti por tu "labor humanitaria" a estas horas de la madrugada.

Desde que hice mi primera hoja hace 20 años me quedé fascinado. He hecho hojas muy chulas y disfruto mucho haciéndolas, pero nunca he precisado programar y no he profundizado en el tema.

He entrado a editar el macro e incluso he copiado las secuencias que me das en uno nuevo pero la verdad no veo como hacer que funcione.

He modificado el macro para que se ajuste mejor a lo que quiero y aunque cutre, pero en principio funcionaba bien en el despacho con Excel 2013, pero en casa con el 2010, no funciona bien y se salta filas al copiar. No se si habrá alguna incompatibilidad con las versiones. Tampoco me funcionó demasiado bien de 2010 para 2013.

copiar 3.xls

[Armando Montes]

Solo necesitas adpatar a tus rangos, algo asi:

Sub FilterCopy()

With Hoja1

    .Range("A5").AutoFilter Field:=6, Criteria1:="RESERVADO"

    .AutoFilter.Range.Offset(1).Copy Hoja3.Range("A5")

    .Range("A5").AutoFilter

End With

End Sub

Sub crFilterCopy()

With Hoja1.Range("A5")

    .AutoFilter Field:=6, Criteria1:="VENDIDO"

    .CurrentRegion.Copy Hoja3.Range("A4")

    .Range("A5").AutoFilter

End With

End Sub[/CODE]