Ocultar rango filas dependiendo de otra celda excel
Necesito que se oculten todas las filas (de un rango X ej. B25:J1000) que no sean iguales a una celda en concreto (ej. B2) esta celda B2 tiene una lista desplegable, por lo que va a ir cambiando, y que al cambiar el nombre de la lista desplegable se actualice solo sin que haya que darle a ejecutar macro (automático), lo he probado y no hay manera
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, para que la pongas en los eventos de tu hoja
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Target.Address(False, False) <> "B2" Then Exit Sub
'
Application.ScreenUpdating = False
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
If u < 25 Then u = 25
Range("25:" & u).EntireRow.Hidden = False
For i = 25 To u
If Cells(i, "B") <> Target Then
Rows(i).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End SubSigue 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
S a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
