Alternar hojas de mi libro
Hola a todos necesito alguna rutina que me deje alternar hojas de mi libro con un tiempo estipulado entre cada cambio, es para dejar la planilla y que cada un minuto por ejemplo cambie de hoja para mostrar otra información
1 Respuesta
Respuesta de christianace
1
En este linck en ingles hay un ejemplo
http://fcfhsp.customer.netspace.net.au/xlhome.htm
http://fcfhsp.customer.netspace.net.au/xlhome.htm
Acá te descargue el ejemplo, a mi página
http://es.geocities.com/christian_acevedo_a/ONTIME.XLS
No te olvides calificar, y por que no de hacerme tu experto favorito
http://es.geocities.com/christian_acevedo_a/ONTIME.XLS
No te olvides calificar, y por que no de hacerme tu experto favorito
Este es el código
Dim Calcular As Date
Sub Inicio()
Calcular = Now + TimeValue("00:00:02")
Application.OnTime Calcular, "Siguiente"
End Sub
Sub Siguiente()
On Error GoTo errorpag:
ActiveSheet.Next.Select
Call Inicio
Exit Sub
errorpag:
MsgBox "ultima hoja"
End Sub
No te olvides en calificar y por que no de agregarme como tu experto favorito
Dim Calcular As Date
Sub Inicio()
Calcular = Now + TimeValue("00:00:02")
Application.OnTime Calcular, "Siguiente"
End Sub
Sub Siguiente()
On Error GoTo errorpag:
ActiveSheet.Next.Select
Call Inicio
Exit Sub
errorpag:
MsgBox "ultima hoja"
End Sub
No te olvides en calificar y por que no de agregarme como tu experto favorito
