Monitorando as alterações na range

[kaleo.rs]

Pessoal,

 

Estou com um problema para monitorar as alterações em determinadas células. Ao selecionar uma célula e teclar DEL o Excel limpa a célula sem ocasionar um erro na MACRO, entretanto ao selecionar mais de uma célula e teclar DEL a MACRO da um erro.

Preciso as vezes limpara mais de um célula sem que a MACRO entenda que algo foi alterado neste caso.

Private Sub Worksheet_Change(ByVal Faixa As Range)
'
    Dim monitorar As Range
'
    Set monitorar = Range("A4:D20")
'
' O ERRO OCORRE NA LINHA ABAIXO E MOSTRA ESSA mensagem: "ERRO EM TEMPO DE EXECUÇÃO 13: TIPOS INCOMPATIVEIS"
    If Faixa.Value = "" Then
        Exit Sub
    Else
        If Not Intersect(Faixa, monitorar) Is Nothing Then
            xCol = Faixa.Column
            If xCol = 1 Then
                MsgBox "Foi alterado a coluna A "
            ElseIf xCol = 2 Then
                    MsgBox "Foi alterado a coluna B "
            ElseIf xCol = 3 Then
                    MsgBox "Foi alterado a coluna C "
            ElseIf xCol = 4 Then
                    MsgBox "Foi alterado a coluna D "
            End If
        End If
    End If
'
End Sub

 

** Em anexo o arquivo

Teste2.xlsm

[Visitante]

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim monitorar As Range
   
   If Target.Count > 1 Then Exit Sub
   If Target.Value = "" Then Exit Sub

    Set monitorar = Range("A4:D2000")
      If Not Intersect(Target, monitorar) Is Nothing Then
        Select Case Target.Column
         Case 1: MsgBox "Foi alterada a coluna A"
         Case 2: MsgBox "Foi alterada a coluna B"
         Case 3: MsgBox "Foi alterada a coluna C"
         Case 4: MsgBox "Foi alterada a coluna D"
        End Select
      End If
      
End Sub

 

[kaleo.rs]

osvaldomp

 

Muito obrigado funcionou.