tag:blogger.com,1999:blog-4623278671508370136.post939066416476017898..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: La macro de un cronómetro en Excel.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger41125tag:blogger.com,1999:blog-4623278671508370136.post-52237711728449538912019-02-21T10:11:04.256+01:002019-02-21T10:11:04.256+01:00Hola!
¿has replicado exactamente los códigos propu...Hola!<br />¿has replicado exactamente los códigos propuestos?...<br />En todo caso, habría que ver no solo el error si no en qué linea se detiene la Depuración de errores para saber más...<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-20654887997513900062019-02-19T20:01:27.612+01:002019-02-19T20:01:27.612+01:00buena tarde, al momento de ejecutarla me arroja el...buena tarde, al momento de ejecutarla me arroja el "error 9 en tiempo de ejecución: subindice fuera del intervalo" y me da las opcione de depurar.<br /><br />como puedo solucionarlo?Anonymoushttps://www.blogger.com/profile/18435275170495560855noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-1408057106726735632018-11-27T16:28:08.747+01:002018-11-27T16:28:08.747+01:00Hola Pedro,
si entiendo bien, deberías añadir en u...Hola Pedro,<br />si entiendo bien, deberías añadir en una celda variable el tiempo del cronómetro, así en la fila 13 de los códigos tendrás que ajustar la celda destino...<br />prueba con alguna de estas soluciones<br /><a href="https://excelforo.blogspot.com/2017/03/vba-Localizar-Ultima-Fila-Excel.html" rel="nofollow">aqui</a><br /><br />Espero te oriente<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-83452524470884646082017-03-24T09:01:29.792+01:002017-03-24T09:01:29.792+01:00Hola Jesús, cómo estás?
un gusto saludarte igualme...Hola Jesús, cómo estás?<br />un gusto saludarte igualmente.<br /><br />Lo siento, no tengo ya este fichero.. fíjate que se publicó en 2013!!<br /><br />Un saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-67712605495001479152017-03-24T04:37:24.215+01:002017-03-24T04:37:24.215+01:00tendras el ejemplo que nos lo puedas pasar? no pud...tendras el ejemplo que nos lo puedas pasar? no pude hacer funcionar el código. Me salen algunos errores.Jesús A. Díazhttps://www.blogger.com/profile/13224059760865840452noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-3161663432674943622015-05-24T20:15:14.437+02:002015-05-24T20:15:14.437+02:00Hola, confiro deacuerdo lo intentare a ver que ocu...Hola, confiro deacuerdo lo intentare a ver que ocurre. GraciasAnonymoushttps://www.blogger.com/profile/14226730961081977386noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-23137414403820532272015-05-24T20:13:06.296+02:002015-05-24T20:13:06.296+02:00No tiene algún formato con el que pueda guiarme, e...No tiene algún formato con el que pueda guiarme, es que me urge... se lo agradeceria muchisimoAnonymoushttps://www.blogger.com/profile/14226730961081977386noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-72309770917900654242015-05-24T10:02:26.816+02:002015-05-24T10:02:26.816+02:00Esto es algo más complicado, tendrías que realizar...Esto es algo más complicado, tendrías que realizar un bucle que tenga en cuenta los últimos tiempos de los productos anteriores...Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-24016360030661016012015-05-24T09:57:51.728+02:002015-05-24T09:57:51.728+02:00Hola,
he probado sobre tu fichero, en la hoja LUNE...Hola,<br />he probado sobre tu fichero, en la hoja LUNES y funciona perfectamente...<br />sólo he tenido que cambiar el formato de las celdas a formato HORA.<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-48324402497804284832015-05-24T01:49:51.054+02:002015-05-24T01:49:51.054+02:00Y la verdad o entiendo que ocurre, estoy siguiendo...Y la verdad o entiendo que ocurre, estoy siguiendo los pasos como se deben y no me transcurre el tiempo en mi celda de tiempo transcurrido. le pasare la hora via mailAnonymoushttps://www.blogger.com/profile/14226730961081977386noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-48413937174284643882015-05-24T01:23:01.591+02:002015-05-24T01:23:01.591+02:00Me imagino que seria creando varios modulo en la m...Me imagino que seria creando varios modulo en la misma hoja pero como hago eso?Anonymoushttps://www.blogger.com/profile/14226730961081977386noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-90974845016945085462015-05-24T00:47:56.206+02:002015-05-24T00:47:56.206+02:00Hola Sr. Ismael, ok gracias lo intentare. Por que ...Hola Sr. Ismael, ok gracias lo intentare. Por que lo que mas me gustaría es que tenga continuidad, me explico desearía es que el cronometro me trabaje en mi plantilla para cada turno y area de la empresa. Donde por ejemplo el producto A1 comenzó a las 7:00 entonces transcurra el tiempo cuando le de parar me ejecute mi hora final como bien usted lo ejecuta, pero luego cuando vaya iniciar el producto A2 inicie desde la hora que termino el producto A1 y asi se siga el mismo comportamiento para las demás productos sin que me borre las horas para poder llevar un control de mi tiempo efectivo. Como podría hacer eso?Anonymoushttps://www.blogger.com/profile/14226730961081977386noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-84520370134068407542015-05-21T09:22:13.721+02:002015-05-21T09:22:13.721+02:00Hola Yezid,
no veo ningún fallo.. si la hoja '...Hola Yezid,<br />no veo ningún fallo.. si la hoja 'lunes' existe y has replicado los pasos de las cuatro macros (OJO debes lanzar y parar ejecutando 'InicioContador' y 'ParaContador' respectivamente!!!), debe funcionarte...<br />REvisa los pasos y si sigue con error puedes enviarme el fichero a<br />excelforo@gmail.com<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-81789684953882728832015-05-21T04:47:14.639+02:002015-05-21T04:47:14.639+02:00Buenas noches, como esta?... tengo una duda, ya te...Buenas noches, como esta?... tengo una duda, ya tengo un formato montado por la empresa donde trabajo y necesito llevar un control mas exacto del tiempo que se consumo durante cada proceso en los distintos productos que se realizan en la empresa. LLevando un control de las paradas operativas y mecanicas y a su vez con mayor exactitud el tiempo efectivo que se viene de la resta de la hora inicial a la hora final.<br /><br />Estoy siguiendo los pasos tal cual bien explica, pero me marca error con respecto a <br /><br />Sub ActualizaReloj()<br /> 'Ponemos el tiempo transcurrido en la celda H14<br /> Worksheets("lunes").Range("H14").Value = Now - Worksheets("lunes").Range("F14").Value<br /> 'Lanzar el siguiente evento 1 segundo después (total seg dia = 86.400 = 60seg x 60min x 24hrs)<br /> SegundoSiguiente = Now + (1 / 86400)<br /><br />cuando le doy inicio. ¿que hago? lo mismo me pasa al darle parar. ayudame porfaAnonymoushttps://www.blogger.com/profile/14226730961081977386noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-81457414007750482842015-05-07T08:28:56.810+02:002015-05-07T08:28:56.810+02:00Personalmente no te recomiendo añadir a un UserFor...Personalmente no te recomiendo añadir a un UserForm el sistema, ya que aunque es el mismo que en la hoja de cálculo, se produce una ralentización en todo el formulario que incluso provoca en ocasiones el fallo del modelo y salta un error a depurar...Excelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-36973755195088011072015-05-06T18:24:04.364+02:002015-05-06T18:24:04.364+02:00bien Ismael, el código lo copie tal cual como esta...bien Ismael, el código lo copie tal cual como esta, pero en fin, ya con el formato Format(VBA.Now, "hh:mm:ss;@"), lo solucione, lo que me interesa es llevar este conteo a un formulario en VBA, pero no he encontrado un código que me actualice el label en tiempo real, con la celda que cambia automáticamente en la hoja de Excel. Gracias.hugalexhttps://www.blogger.com/profile/01894083278198363920noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-85093766654148515272015-05-06T08:49:27.824+02:002015-05-06T08:49:27.824+02:00Hola,
revisa lo que estás haciendo y hayas copiado...Hola,<br />revisa lo que estás haciendo y hayas copiado, por que el código está desarrollado en versión 2013 y funciona tal cual ves en el vídeo primero....<br />???<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-23388903691329951512015-05-05T22:51:28.616+02:002015-05-05T22:51:28.616+02:00Saludos Ismael, al parecer el código funciona muy ...Saludos Ismael, al parecer el código funciona muy bien en Excel 2003, pero el error a la versión 2007, debido a que se debe darle formato a la celda como: Range("A2").Value = Format(VBA.Now, "hh:mm:ss;@") en la subrutina Sub ActualizaReloj() , lo otro es que el código corre los segundos es en A2 y no en C2 "Tiempo transcurrido"hugalexhttps://www.blogger.com/profile/01894083278198363920noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-41913862129264991752015-04-27T13:32:58.915+02:002015-04-27T13:32:58.915+02:00Probaré lo de las api's a ver que tal
Muchas ...Probaré lo de las api's a ver que tal<br /><br />Muchas gracias por tu ayuda Anonymoushttps://www.blogger.com/profile/03993953299315871245noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-39936918491029642722015-04-24T18:12:02.590+02:002015-04-24T18:12:02.590+02:00Hola,
no es posible configurar el Beep... en todo ...Hola,<br />no es posible configurar el Beep... en todo caso tendrías que emplear otro tipo de sonidos empleando API's:<br /><a href="http://excelforo.blogspot.com.es/2013/12/vba-emitiendo-sonidos-desde-vba-en-excel.html" rel="nofollow">http://excelforo.blogspot.com.es/2013/12/vba-emitiendo-sonidos-desde-vba-en-excel.html</a><br />Un saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-18445431769226452412015-04-24T12:35:56.646+02:002015-04-24T12:35:56.646+02:00funciona de maravilla, gracias compañero
si me pe...funciona de maravilla, gracias compañero<br /><br />si me permites, me gustaría hacerte una pregunta, <br /><br />¿como se puede modificar la frecuencia del beep para que suene más agudo?Anonymoushttps://www.blogger.com/profile/03993953299315871245noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-66354971434127510992015-04-23T20:30:05.909+02:002015-04-23T20:30:05.909+02:00Hola Rubanik,
esto podría ser una solución
Sub Cue...Hola Rubanik,<br />esto podría ser una solución<br />Sub CuentaAtras()<br />Dim x As Integer<br />Dim y As Integer<br />x = 5<br />For y = 1 To 5<br /> Hoja1.cuenta.Caption = x<br /> <b>For i = 1 To 300<br /> DoEvents<br /> Next i</b><br /> x = x - 1<br /> Application.Wait (Now + TimeValue("00:00:01"))<br /> Beep<br /> If y = 4 Then<br /> Hoja1.cuenta.Caption = "falta 1 segundo"<br /> y = y + 1<br /> Beep<br /> End If<br />Next y<br /><br />Hoja1.cuenta.Caption = "Activado"<br /><br />End Sub<br /><br />En negrita el ajuste.... incluye un 'retraso' para que no vaya tan rápido...<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-32499730662583495842015-04-23T14:05:07.809+02:002015-04-23T14:05:07.809+02:00perdón, x = 5, se me olvidó teclearlo.
Perdona el...perdón, x = 5, se me olvidó teclearlo.<br /><br />Perdona el doble post.Anonymoushttps://www.blogger.com/profile/03993953299315871245noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-8972244163170950682015-04-23T14:03:25.065+02:002015-04-23T14:03:25.065+02:00hola buenas, viendo y utilizando en codigo de arri...hola buenas, viendo y utilizando en codigo de arriba, he podido crear "una cuenta atrás" aquí dejo el código: <br /><br />Sub CuentaAtras()<br /><br />Dim x As Integer<br />Dim y As Integer<br /><br />For y = 1 To 5<br /><br /> Hoja1.cuenta.Caption = x<br /><br /> x = x - 1<br /><br /> Application.Wait (Now + TimeValue("00:00:01"))<br /><br /> Beep<br /> <br /> If y = 4 Then<br /> <br /> Hoja1.cuenta.Caption = "falta 1 segundo"<br /><br /> y = y + 1<br /> <br /> Beep<br /> <br /> End If<br /><br />Next y<br /><br />Hoja1.cuenta.Caption = "Activado"<br /><br />End Sub<br /><br />el problema es que la label, solo cambia de valor (caption) cuando está fuera del bucle, lo he hecho sin el bucle pero el beep solo suena una vez.<br /><br />que puedo hacer para que funcione el cambio de label y lo del beep?<br /><br />gracias amigoAnonymoushttps://www.blogger.com/profile/03993953299315871245noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-11585409948908193012015-03-08T10:10:02.876+01:002015-03-08T10:10:02.876+01:00Gracias,
escribiré, en cuanto pueda un post al res...Gracias,<br />escribiré, en cuanto pueda un post al respecto.<br />Un saludoExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.com