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 todos
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

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!!