###Dados de teste Utilizando os seguintes dados para teste: [![dados][1]][1] ###Inserir código de Evento Utilizar o evento `Worksheet_Change`, em que este deverá ser colocado dentro da planilha em que os dados se encontram (MARKET). Por Exemplo, no meu caso foi em Planilha1: [![Planilha1][2]][2] ###Código O código é acionado toda vez que a planilha possui alguma alteração. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo CleanExit Application.EnableEvents = False Dim i As Long '<-- Linha selecionada Dim NumeroCaract As String, anomesdia As String Dim ano As Long, mes As Long, dia As Long, DiasNoMes As Long i = Target.Column 'Limita o número de caracteres na coluna B If i = 2 Then NumeroCaract = Len(Target.Value) If NumeroCaract <> 6 Then MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address End If End If 'Limita o número de caracteres na coluna C e verifica data If i = 3 Then 'Verifica Num Caract NumeroCaract = Len(Target.Value) If NumeroCaract <> 8 Then MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address End If 'Verifica Data anomesdia = Target.Value ano = CLng(Left(anomesdia, 4)) mes = CLng(Left(Mid(anomesdia, 5), 2)) dia = CLng(Right(anomesdia, 2)) DiasNoMes = Day(DateSerial(ano, mes + 1, 0)) If mes < 1 Or mes > 12 Or dia < 1 Or dia > DiasNoMes Or ano < 1 Or ano > Year(Now) Then 'Checa se não é data MsgBox "Não é data na Célula: " & Target.Address End If End If 'Limita o número de caracteres na coluna F e verifica se é número If i = 6 Then 'Verifica Num Caract NumeroCaract = Len(Target.Value) If NumeroCaract <> 4 Then MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address End If 'Verifica Se é Número If Not IsNumeric(Target) Then 'Checa se é data MsgBox "Não é número na Célula: " & Target.Address End If End If CleanExit: Application.EnableEvents = True On Error GoTo 0 End Sub ###Explicação - Verifica Num Caract Este código utilizada a [Função Len](https://msdn.microsoft.com/pt-br/library/dxsw58z6(v=vs.90).aspx) para verificar o número de caracteres na String. [![Exemplo Num Caract][3]][3] [![Limite caract][4]][4] - Verifica Data Este código Extrai cada parte da String (ano,mes e dia) e verifica se o ano não é menor do que 1 ou se é maior do que o ano atual (caso trabalhe com o futuro alterar esta parte). Se o dia é menor do que 1 ou se é maior do que os dias que aquele mês possui. Se o mês é menor do que 1 ou maior do que 12. [![Verificar Data][5]][5] - Verifica Se é Número Este código utiliza a [Função IsNumeric](https://msdn.microsoft.com/pt-br/library/6cd3f6w1(v=vs.90).aspx) para verificar se é número. [![Verifica Número][6]][6] - Verifica se a célula alterada está na coluna desejada `If i = 2 Then` é a condicional que verifica se é a coluna do Target, contando pelo index. Onde 1 é A, 2 é B e assim por diante. > Note que: Caso nenhuma das condições anteriores sejam atingidas, não ocorre nada. Este código somente cria uma mensagem de Erro. [1]: https://i.sstatic.net/6pEBS.png [2]: https://i.sstatic.net/xLMXT.png [3]: https://i.sstatic.net/FJZzb.gif [4]: https://i.sstatic.net/ShKrj.gif [5]: https://i.sstatic.net/4cU9A.gif [6]: https://i.sstatic.net/iAm2T.gif