Sigue las instrucciones para la macro
Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: copiafilaroja
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub copiafilaroja()
'copia filas rojas en hoja nueva
'por.dam
Set h1 = Sheets("Hoja1")
Set h2 = Sheets.Add
h1.Select
ini = "A"
fin = "F"
For i = 2 To h1.Range(ini & Rows.Count).End(xlUp).Row
si = 0
For j = 1 To Range(fin & 1).Column
Cells(i, j).Select
If Cells(i, j).Interior.ColorIndex = 3 Then
si = 1
Else
si = 0
End If
Next
If si = 1 Then
Range(ini & i & ":" & fin & i).Select
h1.Range(ini & i & ":" & fin & i).Copy h2.Range(ini & h2.Range(ini & Rows.Count).End(xlUp).Row + 1)
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next
MsgBox "Proceso terminado", vbInformation, "Copia filas rojas"
End Sub
Indicaciones:
Al color rojo le corresponde el número 3, según la paleta de colores de excel. Si escogiste otro color cercano al rojo, tal vez tengas otro número, para saber el número que tienes en la celda, puedes probar con la siguiente macro para conocer el número
Pon el cursor en una celda de color rojo
Sub numcolor()
MsgBox ActiveCell.Interior.ColorIndex
End Sub
Si el resultado es diferente a 3, entonces Presiona Alt + F11, entra a la macro que te envié, y cambia en la siguiente línea el número 3 por el número que te apareció en el mensaje.
If Cells(i, j).Interior.ColorIndex = 3 Then
Saludos. Dam
Si es lo que necesitas.