MessageBox da un foglio all'altro

[Omocaig]

Ciao a tutti, ho quesito e non saprei da dove partire..

Avrei bisogno che all'incrementare del valore in una cella appaia un messagebox su un altro foglio all'apertura del medesimo.

Esempio:
Se nel Foglio 1, Cella J1, il valore aumenta di un'unità si genera un message box con del "testo" nel foglio 2 alla sua apertura.

- Nel mio caso l'incremento è di un'unità alla volta.

Qualcuno sa se è possibile farlo ?

Grazie, Saluti !

[alfrimpa]

Ciao Omocaig

Io penso sia possibile farlo solo che ora sono fuori casa per cui non ho il pc; mi limiterò quindi ad un semplice ragionamento (da verificare poi sul campo)

1) all'attivazione del foglio1 memorizzerei in una variabile il valore della cella J1
2) al variare della cella J1 memorizzerei in altra variabile il nuovo valore;
3) all'attivazione del foglio2 farei il confronto tra le due variabili e se non sono uguali (cioè c'è una differenza di +1 tra vecchio e nuovo valore farei scattare la MsgBox.

Poi, come dicevo prima, bisogna vedere sul campo.

[alfrimpa]

Se ci vuoi provare tu per rendere visibili all'intero modulo le variabili devi dichiararle all'esterno delle procedure.

Se vuoi renderle visibili all'intero progetto VBA devi dichiararle Public

[Omocaig]

Ciao, grazie e scusa se rispondo solo ora.

2) al variare della cella J1 memorizzerei in altra variabile il nuovo valore;

Scusa ma non arrivo a risolvere questo passaggio, come faccio ad assegnare una variabile al valore di una cella e un'altra al valore della stessa cella incrementato di uno ?
!
Se invece mi riferissi a due celle, esempio, J1 e J2, delle quali, una contiene la formula e l'altra ( di supporto ) contiene il valore contenuto in J2 che viene copiato ed incollato automaticamente al salvataggio del foglio con una macro.

Mi basterebbe assegnare una variabile a J1 ed una a J2, così da poter lavorare con una semplice istruzione if con due variabili..

Ora provo, poi farò sicuramente un altro quote anche sul punto 3

[alfrimpa]

Ciao, grazie e scusa se rispondo solo ora.

2) al variare della cella J1 memorizzerei in altra variabile il nuovo valore;

Associando al foglio1 questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j1")) Is Nothing Then
    val2 = Range("j1").Value
End If
End Sub


Comunque ti allego file in cui ho nesso in pratica il ragionamento che avevo fatto nel mio primo post di risposta; è ovvio che il tutto va "affinato" sempre che abbia capito bene la tua esigenza.

http://www.filedropper.com/omocaig