Ocultar filas según un valor de celda (Microsoft Excel)
Excel proporciona formato condicional que le permite cambiar el color y otros atributos de una celda en función del contenido de la celda.
Desafortunadamente, no hay forma de ocultar fácilmente filas en función del valor de una celda en particular en una fila. Sin embargo, puede lograr el mismo efecto utilizando una macro para analizar la celda y ajustar la altura de la fila en consecuencia.
La siguiente macro examinará una celda en particular en las primeras 100 filas de una hoja de trabajo y luego ocultará la fila si el valor en la celda es menor que 5.
Sub HideRows() BeginRow = 1 EndRow = 100 ChkCol = 3 For RowCnt = BeginRow To EndRow If Cells(RowCnt, ChkCol).Value < 5 Then Cells(RowCnt, ChkCol).EntireRow.Hidden = True End If Next RowCnt End Sub
Puede modificar la macro para que verifique una fila inicial, una fila final y una columna diferentes simplemente cambiando las tres primeras variables establecidas en la macro. También puede cambiar fácilmente el valor que se comprueba dentro del bucle For … Next.
Debe tener en cuenta que esta macro no muestra ninguna fila, simplemente las oculta. Si está comprobando el contenido de una celda que puede cambiar, es posible que desee modificar un poco la macro para que oculte o muestre una fila, según sea necesario. La siguiente variación funcionará:
Sub HURows() BeginRow = 1 EndRow = 100 ChkCol = 3 For RowCnt = BeginRow To EndRow If Cells(RowCnt, ChkCol).Value < 5 Then Cells(RowCnt, ChkCol).EntireRow.Hidden = True Else Cells(RowCnt, ChkCol).EntireRow.Hidden = False End If Next RowCnt End Sub
_Nota: _
Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.
link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador]
.
ExcelTips es su fuente de formación rentable en Microsoft Excel.
Este consejo (1940) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.