Ocultar filas que no cumplan una condición
Tengo una rango de 8 columnas y mas de 60000 filas. Necesito que se oculten todas las filas de un rango que no cumplan 2 condiciones
Que no sean igual a 2 textos diferentes. Los textos están en 2 celdas fuera del rango.
Y los textos que deben buscar para ocultar no están en la 1ra columna sino uno en la 3a y en la 6a columna.
Y que al cambiar los datos de las celdas fuera del rango se actualice solo. Sin darle a ejecutar macro
1 respuesta
Te anexo la macro para que la pongas en los eventos de tu hoja.
Las celdas donde se escriben los textos son la G1 y H1.
La fila donde empieza a revisar en la número 5.
Cambia G1, H1 y 5 por los datos que necesites.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G1, H1")) Is Nothing Then
Application.ScreenUpdating = False
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Range("1:" & u).EntireRow.Hidden = False
For i = 5 To u
If UCase(Cells(i, "C")) = UCase([G1]) And _
UCase(Cells(i, "F")) = UCase([H1]) Then
Else
Rows(i).EntireRow.Hidden = True
End If
Next
End If
Application.ScreenUpdating = True
End SubS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
Buenas tardes,
Perdona la pregunta, ¿lo pego tal cula? En Programado--> Visual Basic-->Insertar--> Modulo
¿Y le doy a ejecutar (cambiando locomentado)? ¿O tengo que escribirle algo más?
Un saludo,
Perdona de nuevo,
Ocultará todas las filas hasta el final de la hoja, debería parar en la 60000 ya que debajo hay otros datos que no quiero que oculte.
Sigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
Cada que cambias el dato en la celda G1 o H1, en automático se ejecutará la macro.
