Forçar formato data DD/MM/AAAA VBA
Enviado: Sex Jan 03, 2020 4:43 am
Bom dia rapazes.
Tenho uma planilha em que insiro datas aleatórias e outros dados para depois imprimir.
O que eu precisava é que, quando digitasse na célula por exemplo "03012020" ele transformasse em "03/01/2020".
Já tentei de tudo e nada. Se deixo a célula formatada para tipo DATA, se eu insiro essa data acima ele retorna erro.
Tenho a fórmula abaixo, que uso para forçar o formato de placa de veículo:
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim placa_letra As String
Dim placa_numero As String
For Each x In Range("D4")
If x.Value <> "" And Len(x.Value) = 7 Then
x.Value = UCase(x.Value)
placa_letra = Left(x.Value, 3)
placa_numero = Right(x.Value, 4)
x.Value = placa_letra & "-" & placa_numero
End If
Next
End Sub
Tentei adaptar para o formato data mas não consegui.
Alguém sabe como fazer isso? Muito obrigado.
Tenho uma planilha em que insiro datas aleatórias e outros dados para depois imprimir.
O que eu precisava é que, quando digitasse na célula por exemplo "03012020" ele transformasse em "03/01/2020".
Já tentei de tudo e nada. Se deixo a célula formatada para tipo DATA, se eu insiro essa data acima ele retorna erro.
Tenho a fórmula abaixo, que uso para forçar o formato de placa de veículo:
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim placa_letra As String
Dim placa_numero As String
For Each x In Range("D4")
If x.Value <> "" And Len(x.Value) = 7 Then
x.Value = UCase(x.Value)
placa_letra = Left(x.Value, 3)
placa_numero = Right(x.Value, 4)
x.Value = placa_letra & "-" & placa_numero
End If
Next
End Sub
Tentei adaptar para o formato data mas não consegui.
Alguém sabe como fazer isso? Muito obrigado.