Visual Basic para Aplicaciones - Macro para ejecutar una alarma

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 26
Ha aumentado su posición en 11 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro para ejecutar una alarma

Publicado por German (10 intervenciones) el 08/11/2020 19:50:26
Hola a todos,he creado un archivo con alarma de reloj,y el problema es que cuando lo copio a otra hoja de Excel , al programar la alarma a una hora concreta , esta no se produce
No se si se me escapa algo,el código es el mismo
Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.163
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro para ejecutar una alarma

Publicado por Antoni Masana (392 intervenciones) el 09/11/2020 12:26:57
Si, se te escapa algo.
- La macro está mal, hay alguna referencia incorrecta.
- No copias todas las macros.
- No tengo ni idea de cual es el problema.

Prueba a subir un libro con la macro que funcione, otro que no funciona y podre decirte que es lo que está mal
Es evidente que no puedo adivinar que hace tu macro y donde esta el error.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 26
Ha aumentado su posición en 11 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro para ejecutar una alarma

Publicado por German (10 intervenciones) el 09/11/2020 14:02:32
Ok gracias
En breve lo subo
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 26
Ha aumentado su posición en 11 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro para ejecutar una alarma

Publicado por German (10 intervenciones) el 10/11/2020 10:46:56
buenos dias ANTONI ESTE ES LA MACRO,QUE AL COPIAR EL ARCHIVO A OTRA HOJA NO ME EJECUTA LA ALARMA
MUCHAS GRACIAS

Sub ProgramarAlarma()
Dim SetTime As String

SetTime = Hoja1.Range("g12").Text

' Tendrán que seleccionar sólamente UNA de las tres opciones
Application.OnTime TimeValue(SetTime), "EjecutarAlarma"
' Application.OnTime DateValue("12/31/2013 5:00 pm"), "EjecutarAlarma" ' Establecer una fecha y hora específica
' Application.OnTime Now + TimeValue("00:20:00"), "EjecutarAlarma" ' Establecer un lapso de minutos, partiendo de una hora determinada.
' Está prearada para ejecutarse dentro de 20 minutos, partiendo de cualquiera hora en su reloj.

MsgBox "ALARMA PROGRAMADA", vbInformation + VBOKON1Y, "info excel"

End Sub
Sub EjecutarAlarma()
Application.Speech.Speak ("buenos dia!")
MsgBox " buenos dias !", vbInformation + VBOKON1Y, "RECORDATORIO"
end sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.163
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro para ejecutar una alarma

Publicado por Antoni Masana (392 intervenciones) el 10/11/2020 11:19:13
Sin ver los libros no se que es lo que realmente pasa pero puedo especular

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ProgramarAlarma()
    Dim SetTime As String
 
    SetTime = Hoja1.Range("g12").Text
 
    ' Tendrán que seleccionar sólamente UNA de las tres opciones
    Application.OnTime TimeValue(SetTime), "EjecutarAlarma"
    ' Application.OnTime DateValue("12/31/2013 5:00 pm"), "EjecutarAlarma" ' Establecer una fecha y hora específica
    ' Application.OnTime Now + TimeValue("00:20:00"), "EjecutarAlarma" ' Establecer un lapso de minutos, partiendo de una hora determinada.
    ' Está prearada para ejecutarse dentro de 20 minutos, partiendo de cualquiera hora en su reloj.
 
    MsgBox "ALARMA PROGRAMADA", vbInformation + VBOKON1Y, "info excel"
End Sub
 
Sub EjecutarAlarma()
    Application.Speech.Speak ("buenos dia!")
    MsgBox " buenos dias !", vbInformation + VBOKON1Y, "RECORDATORIO"
end sub

¿En que hoja esta la hora de la hora de la alarma? No me refiero a lo que pone en la pestaña sino al nombre interno de la hoja. En la macro pones hoja1. este es el nombre interno que puedes ver desde la opción de programador.

No estas haciendo referencia a la hoja correcta.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 26
Ha aumentado su posición en 11 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro para ejecutar una alarma

Publicado por German (10 intervenciones) el 10/11/2020 13:07:40
Que quieres decir, que cada vez que copie el archivo en otra hoja del mismo libro la macro deja de funcionar?

muchas gracias

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.163
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro para ejecutar una alarma

Publicado por Antoni Masana (392 intervenciones) el 11/11/2020 09:20:56
Exactamente.

Pero tiene arreglo.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 26
Ha aumentado su posición en 11 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro para ejecutar una alarma

Publicado por German (10 intervenciones) el 11/11/2020 10:35:41
Ok gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar