Tengo un problema puesto que he ocultado una serie de celdas y necesito crear un botón que cuando lo presione me las muestre (si la celda que le he indicado está en blanco). Las filas que necesito que me muestre son de la 62 a la 153. No sé bien como hacerlo porque soy nuevo en esto, he tratado con:
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer
If Range("J37").Value = Empty Then Rows("62:153").Select
Selection.EntireRow.Hidden = False
Else
i = 62 + Range("J37").Value * 13 + 1
Range("A153:O" & i).EntireRow.Hidden = False
Range("A153:O" & i).EntireRow.Hidden = True
End Sub
[/CODE]
Me funciona la parte en la que introduzco el dato y se ocultan las celdas indicadas pero cuando meto el "If" indicando que cuando esté vacía muestre todas me indica que el "else" no tiene "if"... y por tanto no me funciona.
Muchas gracias.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenos días,
Tengo un problema puesto que he ocultado una serie de celdas y necesito crear un botón que cuando lo presione me las muestre (si la celda que le he indicado está en blanco). Las filas que necesito que me muestre son de la 62 a la 153. No sé bien como hacerlo porque soy nuevo en esto, he tratado con:
Me funciona la parte en la que introduzco el dato y se ocultan las celdas indicadas pero cuando meto el "If" indicando que cuando esté vacía muestre todas me indica que el "else" no tiene "if"... y por tanto no me funciona.
Muchas gracias.