Este fórum está sendo desativado

[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.

[babdallas]

Com fórmula: usando coluna auxiliar.
Sem formula: VBA.

O que prefere?

[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.

[Inovacao]

Bom dia, meu caro!!
Tudo bom?


Prefiro a primeira opção: Com fórmula: usando coluna auxiliar.


Obrigado!!

[osvaldomp]

Veja se as sugestões do link abaixo podem ser úteis.

viewtopic.php?f=12&t=11815

[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.

[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

[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.

[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.

[osvaldomp]

O código que passei funciona somente na coluna D. Se você quer que funcione em outras colunas, então informe quais.

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