Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
GENECI

RESPONDIDO Data autocomplemento

Mensagem Recomendada

Olá, Geneci.

Veja se atende. Cole cópia do código abaixo no módulo da planilha.

Dim w As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column > 1 Then Exit Sub
 If w Then: w = False: Exit Sub
 Target.NumberFormat = "General"
 w = True: Target.Value = Target.Value
 If Target.Value > 40000 Then
  Target.NumberFormat = "dd/mm/yyyy"
 ElseIf Target.Value > 0 And Target.Value <= Day(DateSerial(Year(Date), Month(Date) + 1, 0)) Then
  w = True: Target.Value = DateSerial(Year(Date), Month(Date), Target.Value)
 End If
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...