Excel Validação de Datas - VBA

[f.veronesi]

Fala galera, beleza??

 

Pessoal, estou com uma planilha onde o usuário precisa preencher datas em várias linhas de uma coluna.

A coluna é a "C" e esta dentro de uma tabela onde o nome da coluna é "Vencimento" o Range para preenchimento é C5 até C52.

 

Estou com dificuldades em aplicar validações nessa coluna, preciso de duas coisinhas:

>> caso o usuário digite letras surja uma mensagem de erro pedindo para corrigir (Não permitir que seja digitado);

>> caso o usuário digite uma data anterior à data Hoje() seja informado uma mensagem pedindo pra verificar, entretanto, seria apenas um aviso e a ação pode permitir uma data anterior.

 

Essa planilha precisa ser preenchida de forma padrão para que eu possa importar para outra de forma automatizada e por isso essas validações =))

 

Se alguém souber e puder me ajudar, ficarei muito grato!!

Planilha anexo.

 

Relação de Notas.rar

[Midori]

@f.veronesi Para impedir a entrada você usar validação de dados. Selecione a célula C5 e em validação de dados: Permitir > Personalizado. Coloque ÉNÚM(C5) e na aba Alerta de Erro deixe o estilo como Parar e escreva a mensagem que deve aparecer. A da data pode ser via macro,

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Coluna As Range
    
    Set Coluna = [Tabela1].ListObject.ListColumns("Vencimento").DataBodyRange
    
    If Not Coluna Is Nothing Then
        If Not Application.Intersect(Target, Coluna) Is Nothing Then
            If Target <> "" And Target < Date Then
                MsgBox "Data menor que " & Date
            End If
        End If
    End If
End Sub

 

[f.veronesi]

@Midori Show de bola meu amigo!!

Deu certinho... valeuuu