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

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

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