macro que borre las lineas de excel que cumplan determinada condicion

Iniciado por skan, 30 Marzo 2009, 17:23 PM

0 Miembros y 1 Visitante están viendo este tema.

skan

Buenas
¿Cómo hago en excel para que me borre las filas que contengan una celda (de una determinada columna) con un determinado valor?

Sabría hacer muy facilmente que mire todas las celdas de la columna y que la que cumpla una determinada condición la sutituya por un valor o mensaje pero lo que no sé hacer es que me borre toda la fila correspondiente.

gracias

Novlucker

Intenta con esto  ;)

Código (vb) [Seleccionar]
Do While ActiveCell.Value <> ""
'Recorremos 1x1 las celdas de una columna

celda = ActiveCell.Address
'Direccion auxiliar para volver a donde estabamos
If ActiveCell.Value = 2 Then
'Si el valor de la celda es dos(2) por ejemplo
    Rows(ActiveCell.Row).Delete Shift:=xlUp
    'Borramos toda la fila
    Range(celda).Select
    'Volvemos a donde estabamos
Else
    Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
'Si el valor no es dos(2) simplemente pasamos a la siguiente celda
End If

Loop


Saludos  ;D
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

skan

Gracias
Al compilar la macro en Excel me dice que
Error de compilación
el procedimiento externo no es correcto
y me deja señalada la palabra ActiveCell

skan


skan

Ah, ya está, era que se me olvidó incluirlo dentro de un sub

Novlucker

Muy bien, y ten en cuenta que debes de dejar como activa la celda a partir de la cual quieres revisar  :P

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein