Hoja con nombre de días de la semana

01/08/2005 - 19:15 por Lyna | Informe spam
Hola a todo el grupo

Hace algunos días Héctor Miguel me hizo favor de orientarme en una
aplicación que se resolvió con Ontime.

En esa aplicación requiero que dependiendo del día, es decir por ej, con la
función hoy(), puedo saber que es Lunes, y siendo así que el Ontime ejecute
(o lea) la hoja llamada lunes, se me ocurre con un DO Case, pero mis dudas
son:

¿cómo hago la comparación para saber que día es?
¿se puede que Ontime solo ejecute una parte de código?

Les agradezco de antemano.

Saludos a todos.

Lyna
Lyna
 

Leer las respuestas

#1 KL
01/08/2005 - 20:22 | Informe spam
Hola Lyna,

En esa aplicacion requiero que dependiendo del dia, es decir por ej, con
la
funcion hoy(), puedo saber que es Lunes, y siendo asi que el Ontime
ejecute
(o lea) la hoja llamada lunes, se me ocurre con un DO Case,



No conozco ninguna instruccion que se llame DO Case, tal vez te refieres a
Select Case... o Do...Loop (?)

pero mis dudas son:

?como hago la comparacion para saber que dia es?



Mira a ver si te vale este codigo:

Option Base 1
Sub test1()
Dim Dias As Variant
Dias = Array("Lunes", "Martes", "Miercoles", _
"Jueves", "Viernes", "Sabado", "Domingo")
ThisWorkbook.Sheets(Dias(WeekDay(Date, vbMonday))).Activate
End Sub

o bien este:

Sub test2()
Dim Dias As Variant
Dias = Array("Lunes", "Martes", "Miercoles", _
"Jueves", "Viernes", "Sabado", "Domingo")
ThisWorkbook.Sheets(1 + Dias(WeekDay(Date, vbMonday))).Activate
End Sub

?se puede que Ontime solo ejecute una parte de codigo?



La respuesta generalizada es si, pero si das mas detalle obtendras una
respuesta mas ajustada a tus necesidades.

Saludos,
KL

Preguntas similares