Excel - ELIMINAR FILAS !!! AYUDA !!!!

HOLA A TODOS !!!

TENGO EL SIGUIENTE CODIGO QUE ELIMINA LAS FILAS QUE CONTENGA CAMPO DE COLOR ROJO:

Sub EliminarFilas()
'Hacemos un bucle Do While el cual se ejecutará hasta que haya una celda vacía
Do While ActiveCell.Value <> ""

'Eliminar los que tengan fondo rojo
If ActiveCell.Interior.ColorIndex = 3 Then

'... elimina la fila
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
Else
End If
'Recorre una fila hacia abajo
ActiveCell.Offset(1, 0).Select
Loop
End Sub


LO QUE QUIERO ES QUE SEA AL REVÉS QUE QUEDEN SOLO LOS ROJOS, Y QUE SE ELIMINE LOS QUE NO ESTÉN PINTADOS, COMO PUEDO HACER ????

POR CIERTO INTENTE PINTADO DE ROJO LOS VALORES UNICOS Y ASI USAR LA FORMULA, PERO NO FUNCIONA CORRE PERO NO BORRA NADA... ALGUNA OTRA FORMULA O MACROS PARA ELIMINAR VALORES UNICOS ?????

Pues cambias el codigo de = a rojo a <> de rojo


Pd ... ese bucle se me hace conocid jejejeje

SI DOCTOR, ES DE TU AUTORÍA, UNA CONSULTA TENGO LA SIGUIENTE TABLA:

LO DE ROJO DEBERÍA ELIMINARSE POR QUE, SUS TITULO SON IGUALES, SOLO DEBEN QUEDARSE LOS QUE EN LA COLUMNA D, DIFIERAN LOS TITULOS.

( LO DE ROJO DEBE ELIMINARSE, PERO TENGO 100 MIL DATOS.


TENDRÁS MAGIA PARA ESTO DOCTOR ?

• AYUDA_TRAER.rar(9,3 KB)

Prueba lo q t acabe de dar

Psi

Si claro si funciona, pero ESTA VE SLO PUSE DE ROJO PARA QUE SE NOTARA QUE SE DEBE BORRAR, PERO NO ESTAN LOS 100 MIL DATOS DE ROJO, NECESITO UNA FORMULA O MACRO QUE PUEDA DEJAR SOLO LOS QUE EN LA COLUMNA D DIFIERAN CON EL TITULO DE LA C.

Ya lo.veo.....estoy ennel.cell