Macros
Necesito moverme de hoja en hoja usando un botón que ejecuta un macro y no se como hacerlo.
Use Sheets pero no logro que me pasa de hoja en hoja
Muchas gracias y espero una respuesta
Use Sheets pero no logro que me pasa de hoja en hoja
Muchas gracias y espero una respuesta
1 Respuesta
Respuesta de Elsa Matilde
1
Ahora se comprende mejor el problema.
Creo que lo mejor será que en cada hoja tenga un botón (puede estar en la barra) o un atajo de teclado que llame a la única rutina que controlará que las celdas no estén vacías y pasará a la hoja siguiente.
Será algo así:
Sub Boton_Siguiente ()
'forma de evaluar si ciertas celdas están vacías
if range("A5") <> "" and range("C7") <> "" then
'controla el error que surge si es la última hoja
on error resume next
ActiveSheet.Next.Select
else
msgbox "Complete las celdas faltantes"
end if
End sub
Fíjate que según el ejemplo serán siempre las mismas celdas a evaluar. De no ser así tendrás que ingeniártelas para consultar con IF de qué hoja se trata y establecer las celdas para cada hoja.
Si esto te presenta alguna dificultad..... el año que viene podemos seguir con este tema.
Creo que lo mejor será que en cada hoja tenga un botón (puede estar en la barra) o un atajo de teclado que llame a la única rutina que controlará que las celdas no estén vacías y pasará a la hoja siguiente.
Será algo así:
Sub Boton_Siguiente ()
'forma de evaluar si ciertas celdas están vacías
if range("A5") <> "" and range("C7") <> "" then
'controla el error que surge si es la última hoja
on error resume next
ActiveSheet.Next.Select
else
msgbox "Complete las celdas faltantes"
end if
End sub
Fíjate que según el ejemplo serán siempre las mismas celdas a evaluar. De no ser así tendrás que ingeniártelas para consultar con IF de qué hoja se trata y establecer las celdas para cada hoja.
Si esto te presenta alguna dificultad..... el año que viene podemos seguir con este tema.
Elsa:
Te agradezco las respuestas.Sos toda una experta, no hay dudas.
Feliz 2006 para vos y para todo expertos
Martin
Te agradezco las respuestas.Sos toda una experta, no hay dudas.
Feliz 2006 para vos y para todo expertos
Martin
La instrucción:
Sheets(1).Select
Sheets(2).Select
Etc
Te va seleccionando las hojas y podes ver este movimiento salvo...
Que la rutina del botón tenga una instrucción que dice:
Application.ScreenUpdating = False
En ese caso no verás que pasa de hoja en hoja (para el ejemplo verás solo la hoja2)
Si no es este tu problema, quizás debieras explicar un poco más qué hace ese botón o su macro.
Sheets(1).Select
Sheets(2).Select
Etc
Te va seleccionando las hojas y podes ver este movimiento salvo...
Que la rutina del botón tenga una instrucción que dice:
Application.ScreenUpdating = False
En ese caso no verás que pasa de hoja en hoja (para el ejemplo verás solo la hoja2)
Si no es este tu problema, quizás debieras explicar un poco más qué hace ese botón o su macro.
