Google
 

miércoles, 17 de octubre de 2007

Eliminar y ocultar filas por condición

Para eliminar filas o ocultar filas de una columna especifica, por una condición, utilizaremos el siguiente código. Teniendo en cuenta que la columna especifica que utilizaremos para evaluar la condición será la COLUMNA "A" y la condición a utilizar será el encontrar en las filas de la columna A la condicion escrita "v"

Dim rngString As Range
Do
Set rngString = Columns("a").Find("v", MatchCase:=False, _ LookAt:=xlPart, LookIn:=xlValues)
If Not rngString Is Nothing Then

A continuación y en la misma macro podremos utilizar una de estas dos opciones dependiendo si queremos eliminar las filas (.delete) o si queremos solamente ocultar las filas (.hidden =true).
1. Rem para eliminar filas>
rngString.EntireRow.Delete
o
2. Rem para ocultar las filas>
rngString.EntireRow.Hidden = True

Y continuación de la macro ponemos lo siguiente...
End If
Loop Until rngString Is Nothing

2 comentarios:

Aitor dijo...

y esto donde hay que ponerlo? en una nueva macro? gracias.

LUIS JAVIER dijo...

Si cada tema en una macro nueva. Este tema que ocupa sobre "eliminar y ocultar filas por condición" todo eso en una macro nueva.

Google