UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Alain_Arana1981


Hola, hace tiempo hice un programa de un cronometro en excel 2003 y ahora lo pase a excel 2007, pero me marca un error 13, de que no coinciden los tipos, alguien podria ayudarme por favor, enseguida  pongo el programa, de antemano gracias.

Option Explicit

Dim dtHoraSiguiente, dtInicioCrono As Date
Sub PararReloj()
    'Desactivar el evento Ontime
    On Error Resume Next
    Application.OnTime dtHoraSiguiente, "ActualizarHora", , False
End Sub

Sub ActualizarHora()
    'Poner la hora en una celda
    Worksheets("Hoja1").Range("D2").Value = Now - Worksheets("Hoja1").Range("B2").Value <- aqui me marca el error
    'Lanzar el siguiente evento 1 segundo después
    dtHoraSiguiente = Now + (1 / 86400)
    Application.OnTime dtHoraSiguiente, "ActualizarHora"
End Sub

Sub LanzarCrono()
    ActualizarHora
    dtInicioCrono = Now
    Worksheets("Hoja1").Range("B2").Value = FormatDateTime(dtInicioCrono, vbLongTime)
    Worksheets("Hoja1").Range("C2").Value = ""
End Sub

Sub PararCrono()
    PararReloj
    With Worksheets("Hoja1")
        .Range("C2").Value = FormatDateTime(Now(), vbLongTime)
        .Range("D2").Value = FormatDateTime(.Range("C2") - .Range("B2"), vbLongTime)
    End With
End Sub

Igtelo


Hola Alain.

Sube tu archivo comprimido en zip. Sin archivo no podemos saber y que venga dentro del módulo tu macro.

Con el archivo alguien te podrá ayudar. 

Lee "Recomendaciones para hacer preguntas" está en Avisos.

Saludos
Ignacio Téllez

Alain_Arana1981


Ayuda con macro en excel 2007 es un pequeño macro para un cronometro, pero me marca error 13 de que no coinciden los tipos, agradeceria mucho la ayuda de experto en este tema, hace un buen que ya no programo en visual yno tengo idea de que hacer, de antemano gracias.
Archivos
Cronometro con excel.zip
Dejo aqui el archivo .zip
No tienes los permisos para descargar los archivos.
(20 KB)

railar


Hola Alain, Nacho un abrazo

Le falta darle formato a tu celda F2, tu código quedaría así
Código:
Private Sub Actualiza()
'Asignar hs a celda
    Range("f2").Value = Format(VBA.Now, "hh:mm:ss;@")
Sheets("Cronometro").Range("h2").Value = VBA.Now - Sheets("Cronometro").Range("f2").Value
hssig = Now + (1 / 86400)
Application.OnTime hssig, "Actualiza"
End Sub

y el último quedaría así, hay que evitar los Select en lo que que más podamos
Código:
Private Sub reset()
Sheets("Cronometro").Range("a1:xdf1048576").ClearContents
Columns("h:h").NumberFormat = "hh:mm:ss;@"
Application.CutCopyMode = False

End Sub


Saludos,

Raúl

5 Ayuda NO Funciona El Código el 16/12/14, 10:36 am

Alain_Arana1981


Estimado Nacho, hace un buen que ya no programo y agradeceria tu amabilidad y me ayudaras a cambiar el codigo en mi programa, el cual pretendo adjuntar a este correo, de antemano muchas gracias por tu tiempo.
Archivos
Cronometro.zip
Este es el Macro
No tienes los permisos para descargar los archivos.
(16 KB)

Igtelo


Hola Alain / Mi buen Raúl un abrazo.

Alain: Raúl ya te dio la solución y por cierto sería conveniente le agradezcas "Norma 7 para hacer preguntas".

De aquí en adelante estaré muy atento a que se cumplan dichas normas, hace "mucha falta" rescatar los principios básicos de cortesía...

Saludos
Ignacio Téllez

7 Gracias A Todos el 18/12/14, 05:37 pm

Alain_Arana1981


Muchas gracias Raul, Igancio por su ayuda, pero aun no me logra correr correctamente el macro, agradeceria aun más su ayuda.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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