Ocultar fila si el valor de la celda es igual a 0 o contiene el valor 0
necesito una macro que oculte las filas en donde la valor de las celda en la columna B si es igual a 0 la oculte la fila entera, ese es un proceso, y otro que muestre las ocultas de esa hoja.
1 respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución con estas dos macros una para ocultar y la otra para desocultar:
Sub ocultar()
'por luismondelo
Range("b65000").End(xlUp).Offset(1, 0).Value = "end"
Range("b2").Select
Do While ActiveCell.Value <> "end"
If ActiveCell.Value = 0 Then
ActiveCell.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
End Sub
Sub desocultar()
'por luismondelo
Range("b65000").End(xlUp).Offset(1, 0).Value = "end"
Range("b2").Select
Do While ActiveCell.Value <> "end"
If ActiveCell.EntireRow.Hidden = True Then
ActiveCell.EntireRow.Hidden = False
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
End Subrecuerda finalizar
