Página 1 de 1
Digitação de horas automatica
Enviado: 02 Abr 2020 às 17:06
por Inovacao
Pessoal boa tarde.
Tudo bem?
Eu tenho uma planilha para controle de horas:
Eu queria que ao digitar 09 ele convertesse automaticamente para 09:00.
Auguem consegue isso com fórmulas?
Alguém consegue me ajudar?
Segue Planilha
Obrigado.
Re: Digitação de horas automatica
Enviado: 03 Abr 2020 às 14:15
por babdallas
Com fórmula: usando coluna auxiliar.
Sem formula: VBA.
O que prefere?
Re: Digitação de horas automatica
Enviado: 03 Abr 2020 às 16:33
por Inovacao
Boa tarde.
Para o meu uso eu prefiro com fórmula pois não tenho pratica com VBA.
Porem se voce puder fazer os dois modelos, assim posso usar seu VBA afim de estudos.
Obrigado.
Re: Digitação de horas automatica
Enviado: 06 Abr 2020 às 13:05
por Inovacao
Bom dia, meu caro!!
Tudo bom?
Prefiro a primeira opção: Com fórmula: usando coluna auxiliar.
Obrigado!!
Re: Digitação de horas automatica
Enviado: 06 Abr 2020 às 13:55
por osvaldomp
Veja se as sugestões do link abaixo podem ser úteis.
viewtopic.php?f=12&t=11815
Re: Digitação de horas automatica
Enviado: 06 Abr 2020 às 18:24
por Inovacao
Boa tarde.
Vi o link é não é bem isso que preciso.
Eu preciso digitar: 0900 e ele converter 09:00 ou 0930 para 09:30.
Obrigado.
Re: Digitação de horas automatica
Enviado: 06 Abr 2020 às 19:38
por osvaldomp
Experimente:
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Or Target.Column <> 4 Or Not IsNumeric(Target.Value) Then Exit Sub
On Error GoTo fim
Application.EnableEvents = False
Select Case Len(Target.Value)
Case 1: Target.Value = "00:0" & Target.Value
Case 2: Target.Value = "00:" & Target.Value
Case Else: Target.Value = Left(Target.Value, Len(Target.Value) - 2) _
& ":" & Right(Target.Value, 2)
End Select
fim:
Application.EnableEvents = True
End Sub
Re: Digitação de horas automatica
Enviado: 07 Abr 2020 às 09:18
por babdallas
Uma opção com fórmulas e coluna, apesar de achar que neste caso o VBA seria melhor.
Se achar que resolver seu problema, favor marcar o tópico como concluído.
Re: Digitação de horas automatica
Enviado: 07 Abr 2020 às 11:26
por Inovacao
Bom dia a todos!!
Deu certo a coluna auxiliar.
Tentei colar o código na planilha e não consegui, apertei ALT+F11 e colei mas não funcionou.
Se alguém souber me explicar
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Or Target.Column <> 4 Or Not IsNumeric(Target.Value) Then Exit Sub
On Error GoTo fim
Application.EnableEvents = False
Select Case Len(Target.Value)
Case 1: Target.Value = "00:0" & Target.Value
Case 2: Target.Value = "00:" & Target.Value
Case Else: Target.Value = Left(Target.Value, Len(Target.Value) - 2) _
& ":" & Right(Target.Value, 2)
End Select
fim:
Application.EnableEvents = True
End Sub
Segue Planilha que anexei o código
Obrigado.
Re: Digitação de horas automatica
Enviado: 07 Abr 2020 às 11:38
por osvaldomp
O código que passei funciona somente na coluna D. Se você quer que funcione em outras colunas, então informe quais.
Re: Digitação de horas automatica
Enviado: 15 Abr 2020 às 17:09
por Inovacao
Boa tarde.
Tentei inserir pelo VBA e não deu certo, não sei nem como abrir o VBA direito, e ainda mais na inserir somente na coluna D.
Obrigado!!