Lanciare una macro al variare di alcune celle

[templare77]

Salve ragazzi,
In rete ho trovato questo codice che dovrebbe permettere di lanciare una macro, variando le celle di un range specifico....
Il problema è che non mi funziona mai.... Non capisco perché, variando i valori di A1 ad esempio, non succede nulla.... Sapete dirmi come mai? Grazie di cuore!

PS.. ho inserito questo codice sotto il Foglio1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Foglio1.Range("A1:C10")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

' Display a message when one of the designated cells has been
' changed.
' Place your code here.
MsgBox "Cell " & Target.Address & " has changed."

End If
End Sub

[alfrimpa]

Templare allega un tuo file di esempio specificando quello che vuoi fare.

[templare77]

Ciao alfrimpa, a me serve solo far funzionare quel codice sopra. Vi volevo dire che il codice che non mi funziona lo stavo testando di excel 2010 mentre Excel 2016 era impegnato da un'altra macro....o ora il codice di cui sopra l'ho testato al lavoro di excel 2003 e funziona. Domanda.... Può essere che a me si del 2010 non funziona perché excel 2016 sta lavorando di fatti suoi?

[templare77]

Scusate x il t9....

[alfrimpa]

Quella macro deve funzionare anche sul 2010: è una banale procedura evento Worksheet_Change.

[Anthony47]

Modifica per prova la macro come segue:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Debug.Print vbCrLf & ">>>", Me.CodeName, Me.Name, Target.Address
Set KeyCells = Foglio1.Range("A1:C10")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
  Is Nothing Then
    Debug.Print "Detected"
    ' Display a message when one of the designated cells has been
    ' changed.
    ' Place your code here.
'    MsgBox "Cell " & Target.Address & " has changed."

End If
End Sub


Poi torna su Foglio1 e prova a scrivere qualcosa nell'area A1:C10; fai un paio di tentativi.
Poi torna sul vba, premi Contr-g per visualizzare il contenuto della finestra "Immediata"; copia quel che c'e' e incollalo nel prossimo messaggio.

Pero' se invece di cercare in giro avessi cercato sul nostro forum avresti gia' scoperto come fare la cosa piu' facilmente e senza trappole.

Ciao

[templare77]

Grazie a tutti Amici! Sembra funzionare ora! Evidentemente ieri il pc è stato acceso troppe ore ed è andato un pò in pappa.....

[Anthony47]

Vedo che hai preferito riprovare senza voler scoprire dove sono le trappole e le stupidaggini di quel codice...