Este fórum está sendo desativado

[Jesse]

Boa tarde.
Estou com uma dúvida. Toda vez que tenho que preencher o campo de horas da minha planilha tenho que ficar pressionando o Shift e os ":"
Como posso fazer uma macro para facilitar minha vida .
Ex: 00:05:50 sempre tenho que digitar assim
000550 gostaria de digitar direto e a macro passar para 00:05:50
Até consegui um código que basicamente faz isso, mas como o tempo que digito geralmente é baixo , eu não consegui corrigi lo para a minha necessidade.

[alexandrevba]

Boa tarde!!

Consegue adaptar

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
'Codigo original por José Luiz Martins, adaptação por Reinaldo
Dim HoraDigitada As String
Dim HoraFormatada As String
Dim Tamanho As String
Dim Retorno
Dim Endereço

If Target.HasFormula Then
       Exit Sub
End If

If IsNumeric(Target.Value) = False Then
       Exit Sub
End If
On Error Resume Next
Application.EnableEvents = False
HoraDigitada = Target.Value

    Select Case Len(HoraDigitada)
        Case 1 To 2 ' ex: 12 = 12:00:00
                    Tamanho = "00:00" & ":" & HoraDigitada
                Case 3 ' ex:, 735 = 00:07:35
                    Tamanho = "00:0" & Left(HoraDigitada, 1) & ":" & Right(HoraDigitada, 2)
                Case 4 ' ex:, 1234 = 12:34
                    Tamanho = "00:" & Left(HoraDigitada, 2) & ":" & Right(HoraDigitada, 2)
                Case 5 ' ex:, 12345 = 1:23:45 e não 12:03:45
                    Tamanho = Left(HoraDigitada, 1) & ":" & _
                        Mid(HoraDigitada, 2, 2) & ":" & Right(HoraDigitada, 2)
                Case 6 ' ex:, 123456 = 12:34:56
                    Tamanho = Left(HoraDigitada, 2) & ":" & _
                        Mid(HoraDigitada, 3, 2) & ":" & Right(HoraDigitada, 2)
                Case Else
                    Err.Raise 0
            End Select

Target = Tamanho
Application.EnableEvents = True
End Sub

Att