Volver atrás con código VBA en un botón

.27.03.17

Buenas tardes, Esteban

Prueba declarar como públicas las variables al iniciar el formulario para que esté disponibre cuando ejecutes IR()

Public previa, actual As String
Private Sub Worksheet_Activate()
      previa = actual
      actual = ActiveSheet.Name
End Sub

Si, eventualemente, esto no resolviera tu problema, escribe de nuevo indicando el error que te arroja el programa.

Saludos

Fernando

.

Hola experto, 

He probado a colocar ese código en dos de las hojas y ahora me da error sin siquiera abrir formulario. Lo he quitado y ya funciona aunque he detectado que el error del que hablaba me salta si cuando abro el formulario realizo alguna acción como al guardar datos que pasa determinado dato de un textbox a una celda. Si simplemento lo abro y lo cierro, el código para volver atrás funciona.

Cuando me salta el error me indica lo siguiente:

Se ha producido error 9 en tiempo de ejecución:  Subíndice fuera del intervalo

Y como digo, sólo salta si dentro del formulario realizo una acción que modifica algo en la hoja.

Gracias 

.

Buenas,

Probablemente eso ocurra cuando la variable actual esté vacía.

Es decir, al activar la hoja por primera vez previa (y actual) están vacías, luego IR() querrá activar la hoja llamada "" (vacío) porque aún no cargó valor alguno.

Entonces te sugeríría que controles eso con esta variante de la subrutina ir():

Sub ir()
    If len(previa) > 0 Then Sheets(previa).Activate
End Sub

Prueba con este cambio

Abrazo

Fer

Hola Fernando,

Sigue sin funcionar, ya no salta el error del subíndice para depurar, simplemente no hace nada, hago click y no responde a la macro.

Si no hago nada en el formulario, si funciona y responde perfectamente.

Muchas gracias por la ayuda

.

Hola, Esteban

Creo que estamos cerca. Es sólo que me parece no estar entendiendo bien el objetivo de ese evento.

Si la rutina no hace nada es porque el condicional indica que la variable previa carece de contenido.

Por ello, habría que asignarle un valor para cuando no tenga una página anterior donde ir.

Public previa, actual As String
Private Sub Worksheet_Activate()
if len(previa) = 0 then
      previa = ActiveSheet.Name
else
      previa = actual
      actual = ActiveSheet.Name
end if
End Sub

Intuyo que tampoco hará nada la primera vez porque iria a la hoja actual.

Si no fuera lo que buscas, ayudaría que me comentes qué es lo que quieres que haga la rutina.

Tal vez el evento Worksheet_Activate no sea el que necesitas.

Abrazo

Fer

.

Vale pruebo y te digo

La macro es para asignarla a un botón en las hojas que me permita moverme de una a otra, en este caso regresar a la anterior, y si no hago nada en el formulario, regresa sin problemas a la. Hoja previa, imaginate estas en menu principal y vas a la hoja clientes, pulsas ek.botón y vuelves, el problema es si abro el form de selección y selecciono un cliente, ya no va...

Voy a probar que tal.

Nada Fernando, sigue sin funcionar :S