Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Abrir hoja según la hora actual

jarja33

Active member
Registrado
15 Abr 2014
Mensajes
248
Muy Buenas a todos y todas

Alguien me puede ayudar con este archivo tiene + de 10 hojas, pero 3 de ellas se llaman MAÑANA, TARDE y NOCHE, seria que si yo abro el archivo a partir de las 06:00 de...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Hola @jarja33

Pon el siguiente código en los eventos de ThisWorkbook

Código:
Private Sub Workbook_Open()
  Dim tm As Variant
 
  tm = Time
  If tm >= TimeValue("06:00") And tm < TimeValue("14:00") Then
    Sheets("MAÑANA").Select
  ElseIf tm >= TimeValue("14:00") And tm < TimeValue("22:00") Then
    Sheets("TARDE").Select
  Else
    Sheets("NOCHE").Select
  End If
  ActiveCell.SpecialCells(xlLastCell).Select
End Sub


-------------
Saludos
Dante Amor
Visita
: Cursos de Excel y Macros
-------------------------------

Te regreso tu archivo con el código:
Hola @jarja33

Pon el siguiente código en los eventos de ThisWorkbook

Código:
Private Sub Workbook_Open()
  Dim tm As Variant
 
  tm = Time
  If tm >= TimeValue("06:00") And...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Volver
Arriba