Extraer filas excel (con condición) en otra hoja del libro...
Tengo una tabla a7 a n1000 llena de datos.
a b c d e g ........n
7 nombre dirección situación articulo fabrica precio ... N
Y quisiera extraer en hoja2 las filas que en la columna c "situación" ponga "ok" eliminándolas de la tabla de la hoja 1 y poniéndolas el la primera fila libre en la hoja 2...
1 Respuesta
Respuesta de Luis Mondelo
2
Te mando mi solución, ejecuta esta macro y todo listo:
Sub ejemplo()
'por luismondelo
Sheets("hoja1").Select
Range("c1").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = "ok" Then
ActiveCell.EntireRow.Copy
Sheets("hoja2").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Subrecuerda finalizar la consulta
y para que la copie en hoja 2sin borrar la fila de hoja 1.....
muchas gracias estoy aprendiendo mucho contigo este verano...
Entonces la macro quedaría así:
Sub ejemplo()
'por luismondelo
Sheets("hoja1").Select
Range("c1").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = "ok" Then
ActiveCell.EntireRow.Copy
Sheets("hoja2").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Ya sé que hace tiempo de esta entrada pero estaba buscando algo así ahora y lo he encontrado. El problema es que no me funciona. Solo me copia reiteradamente la primera fila que cumple los atributos y al volver siempre sobre sí misma, se convierte en un bucle cerrado que me cuelga Excel. Qué hago mal? - Pepa Reyes