Worksheet_change non funziona

[wallace&gromit]

Ho questa semplicissima macro, inserita nel codice del Foglio1, ma non funziona. Le macro sono abilitate e ho provato anche a dare il comando Application.enableEvents = true
ma nulla, cosa può essere?

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C20")) Is Nothing Then
Application.EnableEvents = True
MsgBox Target
End If
End Sub

[Marius44]

Ciao
A me funziona perfettamente! Il messaggio mi dà il valore della cella cambiata.
Se vuoi l'indirizzo della cella, ovviamente, devi mettere Target.Address

La butto lì: non è che per caso hai cambiato una cella fuori dal Range?

Ciao,
Mario

[Anthony47]

In aggiunta alle considerazioni di Marius (vedi sopra)...
Per essere sicuri di aver inserito il codice nella posizione giusta:
-tasto dx sul tab col nome del foglio, seleziona Visualizza codice

Se non e' nel modulo che così viene aperto, mettilo lì (e toglilo da dove ora e' inserito)

Se e' gia' lì allora:
1) Metti un breakpoint sulla riga If Not Intersect etc etc (per come fare, vedi viewtopic.php?f=26&t=103893&p=647677#p647677)
2) poi scrivi qualcosa in A2 e vedi se la macro si attiva fermandosi su quella riga di codice
--se Sì, continua la macro usando F8 e vedi cosa succede

Se invece la macro non si attiva (fermandosi poi sul break) allora e' possibile che le macro siano disabilitate o che EnableEvents sia finito disabilitato.
In questo caso la cosa piu' semplice da suggerire e' chiudere e riaprire Excel, controllando che all'apertura le macro vengano abilitate.

L'istruzione Application.EnableEvents = True all'interno di una macro che se parte e' perche' gli eventi sono abilitati e' inutile.

Ciao

[wallace&gromit]

Scusatemi!!!
ero fuso io, pensavo di lavorare con SelectionChange e mi aspettavo di vedere il messaggio solo cliccando sulla cella, invece parlandomi di scrivere qualcosa ho capito che mi stavo confondendo.
Risolto.
Il mio obiettivo era di cliccare sulle celle con le formule e vedere subito i legami precedenti. Così funziona:

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H3:H50")) Is Nothing Then
    ActiveSheet.ClearArrows
    Selection.ShowPrecedents
End If
End Sub

[Anthony47]

Il mio consiglio e' di lavorare con DoppioClick:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'ActiveSheet.ClearArrows
    Selection.ShowPrecedents
Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.ClearArrows
End Sub

Il doppioclick e' una azione volontaria, al contrario della selezione che puo' avvenire anche solo muovendosi con le frecce o giocando col mouse.
Col codice proposto a ogni doppioclick vai all'indietro con i precedenti (quindi indicando i precedenti, i pre-precedenti, i pre-pre-precedenti, etc); se non ci sono precedenti (o ulteriori precedenti) avrai un beep. Cambiando selezione cancelli le frecce

Ciao

[wallace&gromit]

Grazie per il consiglio, ma penso che rimango sulla selezione della cella, perché è importante che ogni volta che consulto un risultato calcolato io sappia quali celle di input precedenti devono essere compilate per avere un risultato corretto. Col doppio clic magari non faccio sempre il controllo.