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
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
End If
Loop Until rngString Is Nothing
2 comentarios:
y esto donde hay que ponerlo? en una nueva macro? gracias.
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.
Publicar un comentario