............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Ver el tema anterior Ver el tema siguiente Ir abajo

Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por Deivid el Miér Feb 20, 2008 12:52 pm

Hola que tal. En primer lugar me presento. Mi nombre es Deivid y estoy encantado de entrar en este foro del Sr Galileo.
Bueno mi pregunta es un poco compleja!! Necesito que dados unos checkbox y segun la hora del sistema, estos checkbox desaparezcan de mi hoja y vuelvan a aparecer segun otra hora del sistema. Por ej, Cuando lleguen las 14h (del sistema) desaparezcan los checkbox y cuando sean las 22h, vuelvan a aparecer. Una salvedad... y aquí viene el reto. No se puede utilizar una macro para hacer desaparecer y aparecer los chekbox....

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por GalileoGali el Miér Feb 20, 2008 7:06 pm

Sin macros desconozco solucion, quedo al aguardo de alguna.
Ahora bien si se aceptan Macros.
1) Supongo un Checkbox1 en Hoja 1
2) La actualización para hacerlo sencillo la ato al evento apertura del Libro
(habria casos ciertamente mas complejos de actualizacion, via OnTime o Timer

Código:

Private Sub Workbook_Open()
Dim tope1 As Double, tope2 As Double, vigente As Double

tope1 = 22 / 24
tope2 = 14 / 24
vigente = Now - Date

With Hoja1.CheckBox1
    If vigente >= tope1 Or vigente < tope2 Then
    .Visible = True
    Else
    .Visible = False
    End If
End With
End Sub


DESCARGA DE ARCHIVO


Última edición por GalileoGali el Mar Abr 15, 2008 7:25 pm, editado 2 veces

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por Deivid el Jue Feb 21, 2008 2:21 am

Que significan estos comandos via On Time o Timer Galileo?Por ej,.?
Se agradece la macro.

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por GalileoGali el Jue Feb 21, 2008 6:02 pm

Ver adjunto donde corre esta macro:
Código:
Sub CARGARTINTAS()
Static TEMPO As Integer 'simplemente para mostrar los avances de ALERTA1,2,3,4,5,,,,,N
Static TOPE As Double  'GUARDA la definicion de tiempo para relanzar la macro.


If [A1] = "ON" Then  ' SI change encuentra "ON",  carga "OnTime"
TOPE = Now + TimeValue("00:00:15")    ' 15 seg desde ahora

Application.OnTime TOPE, "Hoja1.CARGARTINTAS"  ' Setea Ontime para ordenar la macro al TOPE
Else    'si OFF descarga ONTIME

On Error Resume Next      'Recurso ante el error (bug) que producía OnTime, acudi a este recurso que SI funciona.
Application.OnTime EarliestTime:=TOPE, Procedure:="Hoja1.CARGARTINTAS", Schedule:=False
On Error GoTo 0
Exit Sub
End If
Range("C5") = "ALERTA " & TEMPO + 1
TEMPO = TEMPO + 1

End Sub
Código:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or Target.Count > 1 Then Exit Sub
If Target.Value = "ON" Then Hoja1.CARGARTINTAS

End Sub

Colocar en Modulo de Hoja1, en A1 validacion tipo lista "ON", "OFF", COMBINAR CELDAS EN "C5:I6"

DESCARGA ARCHIVO

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Hacer que un CheckBox Aparezca o desaparezca en funcion de la Hora del Sistema

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.