Podrías crear la pregunta en el tema de excel
http://www.todoexpertos.com/preguntar?topicId=269
Pon la macro en los eventos de tu hoja.
Te anexo la macro, cambia la columna "C:C", por la columna en la que haces la captura
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
If Len(Target) > 4 Or Len(Target) < 3 Then Exit Sub
xmin = Right(Target, 2)
If xmin > 59 Then Exit Sub
If Len(Target) = 4 Then
xhor = Left(Target, 2)
Else
xhor = Left(Target, 1)
End If
If xhor > 23 Then Exit Sub
Application.EnableEvents = False
Target.Value = TimeSerial(xhor, xmin, 0)
Application.EnableEvents = True
End If
End Sub
Sigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
Saludos. Dante Amor