Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Lanciare una macro al variare di alcune celle

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Lanciare una macro al variare di alcune celle

Postdi templare77 » 19/09/17 06:26

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
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Sponsor
 

Re: Lanciare una macro al variare di alcune celle

Postdi alfrimpa » 19/09/17 07:55

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

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Lanciare una macro al variare di alcune celle

Postdi templare77 » 19/09/17 08:05

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
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Re: Lanciare una macro al variare di alcune celle

Postdi templare77 » 19/09/17 08:27

Scusate x il t9....
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Re: Lanciare una macro al variare di alcune celle

Postdi alfrimpa » 19/09/17 09:34

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

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Lanciare una macro al variare di alcune celle

Postdi Anthony47 » 19/09/17 10:41

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
Avatar utente
Anthony47
Moderatore
 
Post: 17164
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Lanciare una macro al variare di alcune celle

Postdi templare77 » 19/09/17 19:12

Grazie a tutti Amici! Sembra funzionare ora! Evidentemente ieri il pc è stato acceso troppe ore ed è andato un pò in pappa.....
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Re: Lanciare una macro al variare di alcune celle

Postdi Anthony47 » 19/09/17 22:51

Vedo che hai preferito riprovare senza voler scoprire dove sono le trappole e le stupidaggini di quel codice...
Avatar utente
Anthony47
Moderatore
 
Post: 17164
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Lanciare una macro al variare di alcune celle":

Macro colora
Autore: Statix
Forum: Applicazioni Office Windows
Risposte: 7

Chi c’è in linea

Visitano il forum: scanacc e 35 ospiti