Este fórum está sendo desativado

[Nabarro74]

Boa tarde.

Estou criando uma tabela onde faço inserção manual de valores e datas.

Para a coluna de data, gostaria de ver a possibilidade de inserir Ex: 261219 e automaticamente ele apareça 26/12/19 e na coluna de valor Ex: 30050 aí apareça 300,50.

Com isso ganharei agilidade na digitação.

Agradeço a ajuda

Obrigado

[babdallas]

Veja se ajuda. Se quiser sem coluna auxiliar, aí vai precisar usar VBA.

[babdallas]

Com e sem VBA.

[Nabarro74]

@babdallas, bom dia. Obrigado pelo retorno.

Eu deveria ter colocado o exemplo como está minha planilha.

A coluna A e B são datas e H valor.

Poderia me passar como devo alterar na macro.

Obrigado e desculpe o retrabalho

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next
 Application.EnableEvents = False
 If Target.Column < 3 Then
  Target.Value = DateValue(Format(Target.Value, "00\/00\/0000"))
 ElseIf Target.Column = 8 Then Target.Value = Target.Value / 100
 End If
 Application.EnableEvents = True
End Sub

[Nabarro74]

Osvaldomp, boa noite.

Só consegui olhar agora.

Para a coluna de valores, está perfeito, porém para as com datas, assim que insiro os valores eles não se configuram conf. inserido.

Obrigado

[osvaldomp]

Desculpe, relendo o seu primeiro post notei que as entradas serão no formato ddmmaa, no entanto o código que passei trata as entradas no formato ddmmaaaa.

Para entradas no formato ddmmaa, e resultado na célula como ddmmaa, então substitua a linha abaixo

Código: Selecionar todos

Target.Value = DateValue(Format(Target.Value, "00\/00\/0000"))

por esta

Código: Selecionar todos

Target.Value = DateValue(Format(Target.Value, "00\/00\/00")): Target.NumberFormat = "dd/mm/yy"