Macro de excel para ocultar o mostrar filas con botón
Debo hacer que una macro para ocultar filas con el símbolo ! Se oculten. Hasta aquí es fácil con esta macro me funciona:
Sub ocultar_filas()
Dim rango As Range
For Each rango In ActiveSheet.Range("A1:A100")
If rango = "!" Then
rango.EntireRow.Hidden = True
End If
Next
End Sub
Yo lo que quiero es asignar la macro a un botón de opción de control de formulario y que cuando esté deseleccionado mantenga las filas ocultas, y cuando esté seleccionado las muestre. Los botones están en una hoja (datos) y las filas a ocultar en la página OFERTA dentro del mismo libro.
De esta manera al abrir el libro todas las filas estarán ocultas en la página oferta y a medida que en la página datos vas seleccionando opciones, va mostrándolas en la página oferta.
Estero haberme explicado con claridad.
1 Respuesta
Pon el siguiente código, tu botón de opción debe ser de control activex, deberá llamarse optionbutton1, deberás tener otro control optionbutton para que puedas deseleccionarlo, si no tienes 2 o más optionbutton, entonces lo mejor sería que pusieras un checkbox.
Private Sub OptionButton1_Change()
'Por.Dante Amor
opcion = OptionButton1.Value
If opcion Then opcion = False Else opcion = True
ocultar_filas opcion
End Sub
Sub ocultar_filas(opcion)
'Act.Por.Dante Amor
Dim rango As Range
For Each rango In Sheets("ofertas").Range("A1:A100")
If rango = "!" Then
rango.EntireRow.Hidden = opcion
End If
Next
End Sub
