CONHEÇA o BABOO PRO e a Comunidade BABOO que substituirão o site BABOO e esse fórum

Ir para conteúdo
  • Cadastre-se

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...