Este fórum está sendo desativado

[alanisfcsm]

Bom dia
Como posso criar um código quem mostre uma mensagem sempre que a célula A1 for alterado para 1.
Deve ser simples, mas estou todo enrolado aqui....

[Kledison]

Boa tarde,

verifica no exemplo se é o que precisa.

[alanisfcsm]

Boa tarde,

verifica no exemplo se é o que precisa.

Perfeito!
Agora mais uma pergunta, se eu quiser fazer em mais de uma?
ex. A1, B7, C17

Valeu pela ajuda, muito obrigado!

[Kledison]

Olá,

troque para esse código:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" And Range("A1").Value = 1 Then
       
        MsgBox "Valor de A1 alterado"
       
        Exit Sub

    ElseIf Target.Address = "$B$7" And Range("B7").Value = 1 Then
    
      
        MsgBox "Valor de B7 alterado"
        
         Exit Sub
    
    ElseIf Target.Address = "$C$17" And Range("C17").Value = 1 Then
    
      
        MsgBox "Valor de C17 alterado"
        
         Exit Sub
         
End If

   
End Sub

veja no exemplo.

[alanisfcsm]

Obrigado! Kledison Lana
Valeu mesmo!