¿Se puede programar una macro en excel para todas las hojas de un libro y para la misma celda?
He programado una alarma para que se ejecute 20 minutos después de presionar un botón de (control de formulario) para la hoja 1 de la celda k6 del libro, con una msgbox que me habra una ventana de "Alarma Programada".
A continuación en la siguiente subrutina programé EjecutarAlarma, con una application. Speech. Speak("aviso").
Mi pregunta es, ¿Hay alguna manera de hacer lo mismo para todas las celdas de la columna K?
1 respuesta
Te adjunto una foto de la plantilla que estoy utilizando y a continuación las macros.
Es una hoja para el control del Room Service de un hotel, hasta ahora he conseguido programar una alarma y que se ejecute 20 minutos después. Es para que el operador haga una llamada de cortesía a la habitación.
La idea es que cuando se haya entregado el servicio, se programe la alarma presionando el botón de control de formulario y que a los 20 minutos, mediante application speech speak diga "llamada de cortesía, habitación" y a continuación que diga el número de habitación, (esta parte no consigo que se cumpla).
Lo que quiero es saber si se puede hacer para todas las hojas del libro porque para cada día se hace un reporte nuevo y para todas las celdas donde se van a rellenar datos.
Macros:
Sub ProgramarAlarma()
Dim SetTime As String
SetTime = Hoja1.Range("k6")
Application.OnTime Now + TimeValue("00:00:10"), "EjecutarAlarma"
MsgBox "AlarmaProgramada"
End Sub
Sub EjecutarAlarma()
Application.Speech.Speak ("Llamada de Cortesía")
Application.Speech.Speak ("Habitación")
Application.OnTime Now + TimeValue("00:00:01"), "Telefono"
End Sub
Sub Numero()
Texto1 = Left(ThisWorkbook.Sheets("Hoja1").Cells(6, 2), Value, 1)
Texto2 = Mid(ThisWorkbook.Sheets("Hoja1").Cells(6, 2), Value, 2, 1)
Frase1 = Texto1 & Texto2
Texto3 = Mid(ThisWorkbook.Sheets("Hoja1").Cells(6, 2), Value, 3, 1)
Texto4 = Mid(ThisWorkbook.Sheets("Hoja1").Cells(6, 2), Value, 4, 1)
Frase2 = Texto3 & Texto4
Application.Speech.Speak Frase1
Application.Speech.Speak Frase2
End Sub
Gracias de antemano por tu ayuda Dante
Disculpa, pero sigo sin entender lo que quieres, comentas que lo quieres para todas las hojas.
Es decir, quieres que la macro seleccione la hoja 1, seleccione la celda K6, emita una alarma, luego se pase a la celda K7, emita una alarma, luego se pase a la celda K8, emita una alarma, así hasta ¿Cuál celda?.
Después de que acabe con la hoja1, la macro se pase a la hoja2, seleccione la celda K6, emita una alarma, luego se pase a la celda K7, emita una alarma, luego se pase a la celda K8, emita una alarma, así hasta ¿Cuál celda?
Después se pase a la hoja3, seleccione la celda K6, emita una alarma, luego se pase a la celda K7, emita una alarma, luego se pase a la celda K8, emita una alarma, así hasta ¿Cuál celda?.
¿Eso es lo que quieres?
Puedes describir paso a paso qué es lo que quieres que haga la macro.
