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:

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.

Añade End If al final y parte esta línea en dos:

[COLOR=#333333][FONT=Verdana]If Range("J37").Value = Empty Then

 Rows("62:153").Select[/FONT][/COLOR][/CODE]