###Dados de teste
Utilizando os seguintes dados para teste:
###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:
###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 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