[VBA EXCEL] e Pop up

[smaksy]

Ciao a tutti!
Ho inserito sul mio foglio il seguente codice:

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(5, 10) < 0 Then MsgBox ("Prova")
End Sub

Sulla cella c'è una formula e se si verifica che il valore diventa minore di 0 dovrebbe uscire un pop up con scritto Prova. Dico dovrebbe perché in realtà non esce alcun pop up, ma se manualmente metto un valore minore di zero, allora sì. Cosa sbaglio? Avete qualche suggerimento?
I suggerimenti semplici sono maggiormente graditi.
Giusto per precisione, la formula è derivata da una sottrazione di due valori che variano in tempo reale (dati provenienti dai mercati finanziari).
Grazie mille! Ciao!

[MarcoGG]

Non sbagli nulla.
Worksheet_Change() entra in gioco solo su modifica diretta dell'utente.
Per reagire alle Fx, usa Worksheet_Calculate()...

[smaksy]

Originariamente inviato da MarcoGG

Non sbagli nulla.
Worksheet_Change() entra in gioco solo su modifica diretta dell'utente.
Per reagire alle Fx, usa Worksheet_Calculate()...

Scusami (ma sono un po' ignorante in materia..), ho fatto come dici e mi esce un errore di compilazione "La dichiarazione della routine non corrisponde alla descrizione dell'evento o della routine con lo stesso nome."
Ti scrivo qui di seguito il codice integrale che ho utilizzato.
Private Sub Worksheet_Calculate (ByVal Target As Range)
If Cells(5, 10) < 0 Then MsgBox ("Occhio!")
End Sub

Grazie mille e buona giornata!
Ciao

[MarcoGG]

Worksheet_Calculate() non ha il Target.

Private Sub Worksheet_Calculate()

    ...

End Sub

[smaksy]

Originariamente inviato da MarcoGG

Worksheet_Calculate() non ha il Target.

Private Sub Worksheet_Calculate()

    ...

End Sub

Grazie mille davvero!

[smaksy]

Che tu sappia, c'è la possibilità di creare come evento la spedizione di una e-mail da Excel con il VBA?
E' complicato?
Devo usare necessariamente Outlook?

Grazie anticipatamente per l'attenzione!
Ciao

[MarcoGG]

Credo di avere già risposto ad una domanda del genere su questo Forum.
Prova a scartabellare... Ma penso che alla fine si arrivò alla conclusione che l'unica era appoggiarsi ad OutLook. Personalmente non ho mai inviato mail con VBA, anche a causa di questa limitazione...

[smaksy]

Rigrazie mille! Condivido!
Ciao

[smaksy]

Scusa per la domanda, forse un po' "stupida", sai mica se sia normale che il pop up non compaia sopra tutte le finestre che ho aperte ma che per vederlo debba andare sul foglio xls medesimo? C'è un modo per farlo comparire su qualsiasi cosa io abbia aperto in quel momento e qualsiasi cosa stia facendo?
Grazie e buona serata!

[MarcoGG]

Originariamente inviato da smaksy

Scusa per la domanda, forse un po' "stupida", sai mica se sia normale che il pop up non compaia sopra tutte le finestre che ho aperte ma che per vederlo debba andare sul foglio xls medesimo? C'è un modo per farlo comparire su qualsiasi cosa io abbia aperto in quel momento e qualsiasi cosa stia facendo?
Grazie e buona serata!

No. Se Excel passa in secondo piano tutte le sue finestre e sotto-finestre se ne vanno via con lui...

[smaksy]

Grazie per la celerità della risposta!
Buona serata!
Max

[zuper]

devi avere il servizio Messenger attivo (non msn...proprio il servizio windows )

e puoi usare una cosa del genere

Sub NOTIFY_Click()
Set objShell = CreateObject("WScript.Shell")
objShell.Run "net send " & Environ("UserName") & " " & "ciao", 0
End Sub

[MarcoGG]

Originariamente inviato da zuper

devi avere il servizio Messenger attivo (non msn...proprio il servizio windows )

e puoi usare una cosa del genere

Sub NOTIFY_Click()
Set objShell = CreateObject("WScript.Shell")
objShell.Run "net send " & Environ("UserName") & " " & "ciao", 0
End Sub

Uh.
Ma che roba è ?!

[zuper]

Originariamente inviato da MarcoGG

Uh.
Ma che roba è ?!

che ne so scopiazzato da internet...
ti manda un netsend alla vecchia maniera

[MarcoGG]

Originariamente inviato da zuper

che ne so scopiazzato da internet...
ti manda un netsend alla vecchia maniera

Cioè, spiegami, è una risposta su come mandare un popup da Excel mentre è in secondo piano ?
Quindi fai mandare da Excel una MsgBox passando per net send ?
No, ma sul serio, non è una critica. Se funziona è davvero geniale.

[zuper]

Originariamente inviato da MarcoGG

Cioè, spiegami, è una risposta su come mandare un popup da Excel mentre è in secondo piano ?
Quindi fai mandare da Excel una MsgBox passando per net send ?
No, ma sul serio, non è una critica. Se funziona è davvero geniale.

esatto
il netsend ti compare sopra a qualsiasi cosaanche se hai excel iconizzato sotto...questo ti compare e ti rimane davanti finchè nn ci clicchi sopra

[MarcoGG]

Originariamente inviato da zuper

esatto
il netsend ti compare sopra a qualsiasi cosaanche se hai excel iconizzato sotto...questo ti compare e ti rimane davanti finchè nn ci clicchi sopra

Bisognerebbe provarlo in una procedura OnTime(), sennò come faccio ad interagire con il WorkBook se non è accessibile ?
Cmq lo provo appena posso...

[zuper]

Originariamente inviato da MarcoGG

Bisognerebbe provarlo in una procedura OnTime(), sennò come faccio ad interagire con il WorkBook se non è accessibile ?
Cmq lo provo appena posso...

Sub NOTIFY_Click()
Set objShell = CreateObject("WScript.Shell")

For Count = 1 To 20000
If Count = 20000 Then
objShell.Run "net send " & Environ("UserName") & " " & "miii sono a " & Count , 0
Else
Range("a1").Value = Count
End If
Next Count

End Sub

ho fatto una piccola modifica
lancia il tutto e poi iconizza

[MarcoGG]

Sarà dura "iconizzare" con quel contatore a palla...

    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")
    Application.WindowState = xlMinimized

    Application.Wait DateAdd("s", 2, Now)
    objShell.Run "net send " & Environ("UserName") & " " & "MESSAGGIO", 0

[zuper]

Originariamente inviato da MarcoGG

Sarà dura "iconizzare" con quel contatore a palla...

    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")
    Application.WindowState = xlMinimized

    Application.Wait DateAdd("s", 2, Now)
    objShell.Run "net send " & Environ("UserName") & " " & "MESSAGGIO", 0

schiaccia su show desktop e vedi che va tutto giù