Como permitir apenas o formato de data em células específicas no Excel?

Restringir células específicas para permitir apenas formatos de data no Excel pode ser útil para garantir a consistência dos dados. Este guia apresenta dois métodos: usar o recurso Validação de Dados ou um código VBA simples para impor entrada de data apenas nas células selecionadas.

Permitir apenas formato de data em células específicas com a função Validação de Dados

Permitir apenas formato de data em células específicas com código VBA

Permitir apenas formato de data em células específicas com a função Validação de Dados

No Excel, a Validação de Dados é uma função poderosa que pode ajudá-lo a criar listas suspensas, prevenir entradas duplicadas, etc. Ela também pode ajudar a evitar que qualquer formato de dado diferente de uma data seja inserido em células específicas. Por favor, siga os passos abaixo:

1. Clique em Dados > Validação de Dados > Validação de Dados, veja a captura de tela:

2. Na caixa de diálogo Validação de Dados, clique na aba Configurações e, em seguida, escolha Personalizado na lista suspensa Permitir, depois insira esta fórmula: =E(ÉNÚM(B2);ESQUERDA(CÉL("formato";B2);1)="D") na caixa de texto Fórmula, veja a captura de tela:

Observação: Na fórmula acima, B2 é a primeira célula da coluna que você deseja restringir quanto ao formato de dados.

3. Em seguida, clique na aba Alerta de Erro na caixa de diálogo e execute os seguintes passos:

(1.) Marque a opção Mostrar alerta de erro após a entrada de dados inválidos;

(2.) No menu suspenso Estilo, por favor selecione a opção Parar;

(3.) Digite o Título e a Mensagem de Erro que deseja exibir na caixa de aviso.

4. Após concluir as configurações, clique no botão OK, e agora, quando você inserir dados que não estejam em um formato de data válido, uma caixa de aviso aparecerá para notificá-lo, conforme mostrado na captura de tela a seguir:

Permitir apenas formato de data em células específicas com código VBA

O segundo método apresenta um código VBA para realizar essa tarefa.

1. Ative a planilha que deseja usar.

2. Em seguida, clique com o botão direito do mouse na guia da planilha e selecione Visualizar Código no menu de contexto, veja a captura de tela:

3. Na janela Microsoft Visual Basic for Applications exibida, copie e cole o código abaixo no Módulo, veja a captura de tela:

Código VBA: Permitir apenas a entrada de formato de data em células específicas:

Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub

4. Salve e feche o código. Agora, quando você inserir um valor que não está no formato de data no intervalo B2:B12, uma caixa de aviso aparecerá para lembrá-lo, e o valor da célula será limpo ao mesmo tempo, veja a captura de tela: