Skip to main content
1 de 3
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

###Dados de teste Utilizando os seguintes dados para teste:

dados

###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

###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
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32