Este fórum está sendo desativado

[MarceloAdriano]

Olá
Gostaria se possível, do seguinte procedimento em VBA: qualquer alteração de valores no range " A1 até A5" automaticamente emitisse uma MGSBOX ao usuário, informando que o mesmo alterou as padronizações originais de calculas da planilha.
Seria possivel esse procedimento?

Segue a planilha de exemplo, bem como a imagem ilustrativa.

Grato,
Marcelo Adriano

[DJunqueira]

Vc poderia fazer isso de forma simples em validação, qq número diferente do atual geraria uma mensagem de alerta.
Mas vc tb poderia proteger estas células de serem alteradas.

[alexandrevba]

Boa tarde!!

Para o caso de VBA, use!

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
'Insira esse código dentro de um módulo de planilha
    If Target.Column = 1 Then
        MsgBox Target.Address(False, False) & " Alterado", vbInformation
    End If
End Sub

Att

[MarceloAdriano]

Boa tarde!!O
Olá seria possivel me passar o código , não para a coluna toda, mas sim para o range específico de ( a1 até a5) somente.

Desde já adrageço ...



Para o caso de VBA, use!

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
'Insira esse código dentro de um módulo de planilha
    If Target.Column = 1 Then
        MsgBox Target.Address(False, False) & " Alterado", vbInformation
    End If
End Sub

Att

[MarceloAdriano]

Olá DJunqueira
Muito obrigado pela sua ajuda, testei e deu certo.
Obrigado!

Vc poderia fazer isso de forma simples em validação, qq número diferente do atual geraria uma mensagem de alerta.
Mas vc tb poderia proteger estas células de serem alteradas.