excel 2003 -07 - Intercettare evento change di un range di celle

[ciro78]

Come da titolo avrei bisogno di intercettare quando il valore di determinate celle di un determinato range cambiano

al momento leggendo qua e la sono arrivato a


Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox (Target.AddressLocal)
' If Intersect(CELLA, ActiveSheet.Range("A5:J54")) Then
' MsgBox (Target.Address)
' If Target.Value = "c" Then
' a = InputBox("booo")
' Target.Value = a
' End If

' End If
End Sub


mi manca di individuare la cella cambiata ..o meglio la colonna e la riga


consigli?

[nicola75ss]

Queste poche righe dovrebbero esserti utili.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, ActiveSheet.Range("A5:J54")) Is Nothing Then
    'MsgBox Target.Address
    'MsgBox Target.Column
    'MsgBox Target.Row
        If Target.Column = 3 Then
            MsgBox "modificato cella in colonna c"
        Else
            MsgBox "modificato cella in altra colonna"
        End If
 End If
End Sub

[ciro78]

grazie è stato più che sufficiente