Previous page | 1 | Next page
Facebook  

Avviare macro se cella cambia il suo valore

Last Update: 3/15/2019 7:15 AM
Author
Print | Email Notification    
Post: 378
Registered in: 9/29/2003
Location: ACCIANO
Age: 21
Senior User
2003/2007
OFFLINE
3/14/2019 7:04 AM
 
Modify
 
Delete
 
Quote

Buongiorno,
sto cercando di applicare quanto in oggetto
utilizzando il seguente codice

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
Call MiaMacro
End If
End Sub

Nella cella D2 però c'è una formula che ottiene il numero massimo
tra A2 e C2, può essere questo il motivo del suo non funzionamento ?

come risolvo ?

Grazie 1000
Excel 2007 - 2010
MACRO COLLEGAMENTI IPERTESTUALImacro6/10/2019 12:26 PM by filippo(1968)
tasto per eseguire macro ripetuta su n fogli che esegue macro solo su un foglio specificomacro5/30/2019 6:24 PM by locatevaresino
Macro - Copia/inserisci righemacro6/10/2019 11:26 AM by MichelangeloC
Post: 2,121
Registered in: 3/21/2008
Location: LOCATE VARESINO
Age: 71
Veteran User
2007 / 13
OFFLINE
3/14/2019 10:03 AM
 
Modify
 
Delete
 
Quote

ciao

un esempio

 
Option Explicit
Dim ValoreD2 As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D2").Value <> ValoreD2 Then ''Target.Address = "$D$2" Then
MsgBox "La cella D2 a cambiato il suo valore" ''Call MiaMacro
End If
ValoreD2 = Range("D2")
End Sub


Ciao da locate
excel 2007 / 13
Post: 3,307
Registered in: 4/3/2013
Master User
Excel 2000 - 2013
OFFLINE
3/14/2019 10:57 AM
 
Modify
 
Delete
 
Quote

Buona giornata, krashone:
consentimi un saluto all'ottimo @locatevaresino.

Potresti provare con:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2,C2")) Is Nothing Then Call TuaMacro
End Sub

Sub TuaMacro()
    MsgBox "Mio Codice VBA"
End Sub




A disposizione.

Buon Lavoro.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 1,229
Registered in: 6/27/2011
Veteran User
excel 2007
OFFLINE
3/14/2019 8:21 PM
 
Modify
 
Delete
 
Quote

ciao a tutti [SM=x423028]

ed un saluto a Locate e Giuseppe

che ne pensate di questa soluzione?

vb
Dim valore As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
If valore <> Range("d2").Value Then
    Call TuaMacro
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

valore = Range("d2").Value
    
End Sub
 
Sub TuaMacro()
MsgBox "ciao"
End Sub



a me pare funziona



EDIT
per il verbo: "funzioni"


ciao
Frank
[Edited by tanimon 3/14/2019 8:25 PM]
Excel 2007

1 - Per "prodotti finiti", ricordo l'esistenza di apposite Software House a pagamento. Questo è un Forum
2 per cortesia, leggi questa e questa discussione.
3 - allega SUL FORUM un file di esempio, chi ti vuole aiutare risparmia tempo, e tu forse hai una soluzione prima di quello che ti aspetti :-)
Usa siti di hosting SOLO in estrema necessità: in caso il server del forum abbia problemi.
4 - Ricordati di condividere le soluzioni che trovi da solo: potrebbero essere utili anche per le persone a cui chiedi aiuto.
Post: 378
Registered in: 9/29/2003
Location: ACCIANO
Age: 21
Senior User
2003/2007
OFFLINE
3/15/2019 3:11 AM
 
Modify
 
Delete
 
Quote

Tutte le soluzioni da voi proposte a me funzionano solamente se all'interno della cella D2 non è presente nessuna formula.

Come si spiega ?
Grazie
Excel 2007 - 2010
Post: 3,309
Registered in: 4/3/2013
Master User
Excel 2000 - 2013
OFFLINE
3/15/2019 7:14 AM
 
Modify
 
Delete
 
Quote

Prima di indicare una possibile soluzione, normalmente ne verifico la funzionalità.

Fai sapere dove riscontri il Problema.



Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 1,230
Registered in: 6/27/2011
Veteran User
excel 2007
OFFLINE
3/15/2019 7:15 AM
 
Modify
 
Delete
 
Quote

Se le provi su un file nuovo, te lo spieghi da solo.
[SM=x423029]
Frank

Edit:
Ciao Giuseppe
[Edited by tanimon 3/15/2019 7:17 AM]
Excel 2007

1 - Per "prodotti finiti", ricordo l'esistenza di apposite Software House a pagamento. Questo è un Forum
2 per cortesia, leggi questa e questa discussione.
3 - allega SUL FORUM un file di esempio, chi ti vuole aiutare risparmia tempo, e tu forse hai una soluzione prima di quello che ti aspetti :-)
Usa siti di hosting SOLO in estrema necessità: in caso il server del forum abbia problemi.
4 - Ricordati di condividere le soluzioni che trovi da solo: potrebbero essere utili anche per le persone a cui chiedi aiuto.
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Attivazione cella A1 su macro esistente (6 posts, agg.: 3/6/2019 10:29 AM)
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 6:00 AM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com