Nomogramma e funzione matematica in excel...

[Paolo67]

Cominciamo in primis dalla cosa più importante: il file funziona! Hurrà

Sono consapevole che nelle aree di confine esiste una certa ambiguità nel risultato.
Anche sul mio PC se mi pongo sul confine ottengo sempre almeno un paio di possibili previsioni!
Purtroppo c'è poco da fare anche perchè il tutto deve svolgersi in automatico e non posso scegliere "manualmente" quella che sarebbe la giusta:il valore in output deve essere unico!
Trovo giusta ed unica la tua soluzione di assegnare priorità e quindi "dare per buono" il risultato con il match più elevato!

Prima di intraprendere il discorso "importazione" tramite macro,dei risultati nel mio foglio,vorrei capire un attimo una cosa.
Tu dici: "-seleziona la cella C10 (il primo risultato), fai Copia"

Ma se faccio così mi copia tutta la stringa ad esempio "3:6 >> IP/ZR" o sbaglio?
Io devo avere in output solo la sigla IP/ZR che poi devo decodificare in (ti svelo il segreto :-) )"Ice pellet/Freezing rain" (che poi in Italiano più "potabile" sarebbe un misto tra pioggia gelata e neve tonda).

Attendo tua risposta poi proseguiamo...

[Paolo67]

Mi autorispondo...

=DESTRA(C10;LUNGHEZZA(C10)-6)

Corretto?

[Paolo67]

Niente Anthony sto impazzendo!
Non riesco mi da errore di runtime sempre.

C'è qualcosa che non va e non capisco dove sbaglio,forse perchè il file "tuo" ha cambiato nome...adesso è "PREVISIONI_XA(1)"
Se ti mando il file "master" e ti dico dove intervenire riesci a farmi tu il lavoro?

[Paolo67]

Come puoi notare nella casella C27 compare la sola stringa utile che viene convertita in "Italiano"" nella cella di fianco D27 (Questo testo andrà copiato nella cella della previsione oraria

[Anthony47]

Rispettando l'rdine dei tuoi messaggi:
Sono contrario all'idea che, in una situazione "analogica" quale e' la nostra, sia la macro a dare la migliore interpretazione dei risultati.
Quindi la macro continuerà a fornire i risultati che ti ho anticipato, tipo "3:6 >> IP/ZR". Se vuoi evitare il controllo umano lo dovrai fare a valle di questo lavoro (ma ti e' chiaro che, nell'esempio, 3:6 significa "3 volte su 9 tentativi" mi e' uscito IP/ZR, un punteggio direi squallido)
La formula DESTRO credo che faccia il suo lavoro.

Se vuoi ottenere direttamente i risultati in Italiano, puoi modificare la colonna R nella "Lookup Table"; nell'esempio IP/ZR otterresti quindi direttamente "3:6 >> Ice pellet/Freezing rain"

Quanto all'errore "Impossibile trovare il file" la cosa piu' probabile e' che ora hai salvato il file in una directory diversa da quella in cui e' presente il file BGPict2.jpg; file excel e file jpg devono essere nella stessa directory

Quanto al tuo file, non ho bisogno di vederlo: sono sicuro che il codice della macro che devi registrare, insieme all'immagine che hai gia' pubblicato, mi dara' tutte le informazioni per completare il mio contributo
Ciao

[Paolo67met]

Questo il file

Sub Macro16()
'
' Macro16 Macro
'

'
Range("B28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("PREVISIONI_XA.xlsm").Activate
Sheets("Modello3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Run "PREVISIONI_XA.xlsm!Maker"
Windows("Wetbulb in quota Cà Micci 4.xlsm").Activate
Range("B27").Select
Selection.Copy
Windows("PREVISIONI_XA.xlsm").Activate
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Run "PREVISIONI_XA.xlsm!Maker"
Range("D27").Select
Selection.Copy
Windows("Wetbulb in quota Cà Micci 4.xlsm").Activate
Range("B30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Esiste la problematica del fuori scala che si verifica se immetto dei valori. Non saprei come risolvere

Ciao
Paolo

[Paolo67met]

In merito a questa ultima osservazione...
Il nomogramma ha 2 scale che hanno rispettivamente un min ed un max.
Può accadere che per certi valori di X ed Y il bersaglio vada oltre questi limiti.
Sul software natìo (che utilizza questo nomogramma) se si verifica questa condizione il bersaglio non scompare ma rimane visibile ed "inchiodato" al limite del grafico.
L'immagine in basso è più eloquente:
La X assume il valore di 1423
La Y assume il valore di 1229
nettamente oltre il limite ma il bersaglio rimane relegato nel punto estremo senza però scomparire.
In questo caso il risultato sarebbe "S"
Non so come potresti implementare questa cosa...
Mi sa che ci siamo impelagati in una cosa troppo complessa

[Anthony47]

Allora...
Quando sono andato a manipolare la macro per importare nel foglio "master" le previsioni proiettate del file PREVISIONI mi sono accorto che questo in file avevo sfruttato l'evento OnTime per far partire la macro che va ad analizzare i colori dei punti (e non ricordo esattamente perche' ero ricorso a questo metodo piuttosto che a "chiamare" la macro, ma ricordo che era un problema di timing).

Se il file PREVISIONI e' manipolato da una macro di "importa risultati" allora l'evento OnTime non viene eseguito fino al completamento del codice di questa macro; cioe' il calcolo non parte fintanto che l'importazione non e' terminata; che e' un nonsenso.
Ho dovuto quindi riprendere il file PREVISIONI per prevedere sia la situazione di uso del file "stand alone" (input manuale dei valori X & Y e visualizzazione dei risultati) sia l'uso "pilotato" (una macro scrive i valori X & Y e processa i risultati). Faccio questo usando la cella C1 su foglio Modello3 (se contiene "Called" tutte le operazioni sono pilotate dalla macro di controllo; altrimenti le operazioni sono pilotate dall'introduzione di valori in X e Y)

Ne ho approfittato anche per passare a una immagine di sfondo del grafico esteticamente meno grezza della precedente e per assegnare colori piu' contrastati alle varie previsioni da rilevare, convinto che questo possa produrre meno "falsi risultati" rispetto alle scelte fatte precdentemente.

Ho infine modificato la formula che restituisce i valori in B10:B20; ora l'output e' del tipo

Codice: Seleziona tutto

6:12:4 >> RisultatoXX

Che si legge:
-RisultatoXX ha avuto il punteggio 6 su in totale 12 punti assegnati; il secondo classificato ha avuto 4 punti

Se il punteggio del primo rilevato e' MAGGIORE del punteggio del secondo rilevato, la macro esporta il solo "RisultatoXX"; se invece il punteggio del primo e' uguale al punteggio del secondo viene esportato il risultato grezzo, tipo

Codice: Seleziona tutto

5:12:5 >> Wintry Mix

Se si preferisce chiudere gli occhi e accettare sempre il primo risultato presentato in C10, anche se avesse lo stesso punteggio di quello presentato in seconda posizione, allora si puo' modificare (nella Sub ImportaPrevisioni) la riga commentata con "<<< Secco o Dubbio?", sostituendo l'attuale ">" con ">=", ma ovviamente dissento da questa scelta.

Quanto descritto richiede:
-scaricare il nuovo file PREVISIONI_XA2.xlsm, da questo link: https://www.dropbox.com/scl/fi/vmgvsgdu ... vcs58&dl=0
-scaricare la nuova immagine di sfondo per la userform, BGPict33.jpg, da questo link: https://www.dropbox.com/scl/fi/f7f04xy3 ... 2yrer&dl=0

RICORDATE: il file jpg e il file xlsm vanno posizionati nella stessa directory.

Fatto cio', la macro che importa i risultati su file "master", da inserire all'interno del vba del file "master", e' questa:

Codice: Seleziona tutto

Dim maX As Long, maY As Long, miX As Long, miY As Long

Sub ImportaPrevisioni()
Dim MIO As Worksheet, MODEL As Worksheet
Dim mySplit, I As Long, StarPo As Range
Dim Mark As String
'
Set MIO = ActiveSheet
Set MODEL = Workbooks("PREVISIONI_XA2.xlsm").Sheets("Modello3")     'Dichiara file/foglio da usare
MODEL.Parent.Activate                                               'Attiva file PREVISIONI...
MODEL.Select                                                        '   ...foglio Modello3
Mark = "Imp "
Range("C1") = "Called"                                              'Blocca Sub Maker da ChangeEvent
Debug.Print Mark & "Starts ....."
'
maX = 1580: miX = 1500
maY = 1330: miY = 1260

For I = 1 To 5                                                      'Usa le 5 coppie X / Y
    Debug.Print
    Debug.Print Mark & "Fase 1; I = " & I, Timer
    Application.EnableEvents = False
    MODEL.Range("B3").Value = NormX(MIO.Range("B28").Cells(1, I).Value)    ' X
    Application.EnableEvents = True
    MODEL.Range("B4").Value = NormY(MIO.Range("B27").Cells(1, I).Value)    ' Y, start Change Event
    DoEvents
    If Len(MODEL.Range("C3") & MODEL.Range("C4")) = 0 Then          'Skip se "fuori scala"
        Application.Run "'" & ActiveWorkbook.Name & "'!Maker"       'Esegui "Maker"
        Debug.Print Mark & "Fase 2; I = " & I, Timer
        'Preleva i risultati:
        mySplit = Split(MODEL.Range("C10") & ">>  ", ">> ", , vbTextCompare)
        If MODEL.Range("B10") >= MODEL.Range("B11") Then             '<<< Secco o Dubbio?
            MIO.Range("B30").Cells(1, I) = mySplit(1)               'Valore "secco"
        Else
            MIO.Range("B30").Cells(1, I) = MODEL.Range("C10")       'Valore dubbio
        End If
        'report:
        Debug.Print Mark & " X=" & Int(MIO.Range("B28").Cells(1, I).Value), _
          "Y=" & Int(MIO.Range("B27").Cells(1, I).Value), "Esito: " & MODEL.Range("C10")
        Debug.Print Mark, MIO.Range("B30").Cells(1, I).Address(0, 0), "Esito: " & MIO.Range("B30").Cells(1, I)
    Else
        MIO.Range("B30").Cells(1, I) = "Fuori Scala"
        Debug.Print Mark & " X=" & Int(MIO.Range("B28").Cells(1, I).Value), _
          "Y=" & Int(MIO.Range("B27").Cells(1, I).Value), "Esito: " & MIO.Range("B30").Cells(1, I)
        Debug.Print Mark, MIO.Range("B30").Cells(1, I).Address(0, 0), "Fuori scala?"
    End If
Next I                                                              'ripeti next x-y
Range("C1").ClearContents                                           'Rimuovi flag "Called"
DoEvents
Beep
Debug.Print Mark & "Ends"
ThisWorkbook.Activate                                               'Attiva foglio master
End Sub

Function NormX(ByVal IPOX As Long) As Long
If IPOX > maX Then NormX = maX Else NormX = IPOX
If IPOX < miX Then NormX = miX Else NormX = IPOX
End Function

Function NormY(ByVal IPOY As Long) As Long
If IPOY > maY Then NormY = maY Else NormY = IPOY
If IPOY < miY Then NormY = miY Else NormY = IPOY
End Function

Il codice va inserito in un modulo standard vuoto, in modo che l'istruzione Dim maX As Long etc etc compaia in testa al modulo, e contiene anche le funzioni per evitare il "fuori scala"

Questa Sub ImportaPrevisioni va lanciata avendo aperto il file PREVISIONI e attivo il file "master" al foglio che contiene i valori X-Y
Dalle immagini allegate e dal codice della macro autoregistrata ho rilevato che il foglio contiene 5 coppie di valori, posizionati in B27:F28, i cui risultati vanno inseriti in B30:F30.
La macro lavora con questi presupposti, se fossero sbagliati spiega quale e' la situazione corretta e vedremo come fare.

Basta, ora tocca a te...

PS: il tuo account principale dovrebbe essere disponibile

EDIT: Ho modificato Il link per scaricare l'immagine, errato nel messaggio originale

D:\DDownloads\[MULTI_C401155.xlsm]Foglio3
keyw
identify target by coordinates

[Paolo67met]

Anthony il link dell'immagine di sfondo sembra errato:è uguale a quello del file PREVISIONI X2

[Anthony47]

Ooppsss...
Questo?
https://www.dropbox.com/scl/fi/f7f04xy3 ... 2yrer&dl=0

[Paolo67met]

Dalle immagini allegate e dal codice della macro autoregistrata ho rilevato che il foglio contiene 5 coppie di valori, posizionati in B27:F28, i cui risultati vanno inseriti in B30:F30

Allora probabilmennte ho dimenticato di dirtelo ma le previsioni sono fatte in 2 fogli separati,il primo si chiama "NowcastingGFS" e le 5 coppie di valori sono appunto in B27:F28 con risultati in B30:F30.
Il secondo foglio si chiama "OutlookGFS" e le 5 coppie di valori si trovano in C28:G29 con risultati in C31:G31 e si riferiscono ad orari diversi rispetto al primo foglio.
Bisognerebbe aggiungere anche una macro per questo foglio

PS: il tuo account principale dovrebbe essere disponibile

Ti rispondo in PVT in quanto esiste ancora il problema

[Paolo67met]

Allora ho copiato il codice in un modulo standard.
Non è però partito in automatico ma son dovuto andare nella finestra del VBA e avviare la macro.
Mi restituisce però come risultato valori fuori scala:doveva essere così?

[Anthony47]

Esegui la Sub ImportaPrevisioni; alla fine apri la "finestra Immediata" del vba (dal vba, premi contr-g; oppure Menu /Visualizza /finestra Immediata)
Copia dalla riga Imp Starts ..... fini alla fine, che dovrebbe essere Imp Ends
Leggendo quelle informazioni magari si capisce qualcosa...

Per evitare equivoci, allega anche l'immagine in cui si vedono le coourdinate e il risultato ottenuto

Per il discorso del doppio foglio ne parliamo dopo che funziona la cosa attuale

[Paolo67met]

Questo il codice:

Imp Starts .....

Imp Fase 1; I = 1 42638,69
Imp X=1546 Y=1344 Esito: Fuori Scala
Imp B30 Fuori scala?

Imp Fase 1; I = 2 42638,71
Imp X=1543 Y=1341 Esito: Fuori Scala
Imp C30 Fuori scala?

Imp Fase 1; I = 3 42638,83
Change: B4 1327 19/01/2024 11:50:38
Mkr @@@@@@ Maker begins Called 42638,96
@@@@@@ Start Maker starter Called 42639,02
@@@@@@ Start Maker ABORTED Called 42639,02
>>>: 222,925 15,21429 482 355
16646144 16646144 RGB: 000 000 254 New Store
Mkr @@@@@@ Maker Ends 42639,27
Imp Fase 2; I = 3 42639,27
Imp X=1536 Y=1326 Esito: 18:18:0 >> INCERTO
Imp D30 Esito: INCERTO

Imp Fase 1; I = 4 42639,27
Change: B4 1312 19/01/2024 11:50:39
Mkr @@@@@@ Maker begins Called 42639,42
@@@@@@ Start Maker starter Called 42639,47
@@@@@@ Start Maker ABORTED Called 42639,47
>>>: 180,75 91,28571 482 355
16769322 16769322 RGB: 042 225 255 New Store
16776961 16776961 RGB: 001 255 255 New Store
16646144 16646144 RGB: 000 000 254 New Store
Mkr @@@@@@ Maker Ends 42639,77
Imp Fase 2; I = 4 42639,77
Imp X=1530 Y=1312 Esito: 8:12:3 >> INCERTO
Imp E30 Esito: INCERTO

Imp Fase 1; I = 5 42639,78
Change: B4 1298 19/01/2024 11:50:39
Mkr @@@@@@ Maker begins Called 42639,93
@@@@@@ Start Maker starter Called 42639,98
@@@@@@ Start Maker ABORTED Called 42639,98
>>>: 144,6 162,2857 482 355
130816 00130816 RGB: 000 255 001 New Store
Mkr @@@@@@ Maker Ends 42640,2
Imp Fase 2; I = 5 42640,2
Imp X=1524 Y=1298 Esito: 18:18:0 >> NEVE
Imp F30 Esito: NEVE
Imp Ends
Imp Starts .....

Imp Fase 1; I = 1 56509,85
Imp X=1546 Y=1344 Esito: Fuori Scala
Imp B30 Fuori scala?

Imp Fase 1; I = 2 56509,87
Imp X=1543 Y=1341 Esito: Fuori Scala
Imp C30 Fuori scala?

Imp Fase 1; I = 3 56509,99
Change: B4 1327 19/01/2024 15:41:49
Mkr @@@@@@ Maker begins Called 56510,23
@@@@@@ Start Maker starter Called 56510,31
@@@@@@ Start Maker ABORTED Called 56510,31
>>>: 222,925 15,21429 482 355
16646144 16646144 RGB: 000 000 254 New Store
Mkr @@@@@@ Maker Ends 56510,57
Imp Fase 2; I = 3 56510,57
Imp X=1536 Y=1326 Esito: 18:18:0 >> INCERTO
Imp D30 Esito: INCERTO

Imp Fase 1; I = 4 56510,57
Change: B4 1312 19/01/2024 15:41:50
Mkr @@@@@@ Maker begins Called 56510,73
@@@@@@ Start Maker starter Called 56510,78
@@@@@@ Start Maker ABORTED Called 56510,78
>>>: 180,75 91,28571 482 355
16769322 16769322 RGB: 042 225 255 New Store
16776961 16776961 RGB: 001 255 255 New Store
16646144 16646144 RGB: 000 000 254 New Store
Mkr @@@@@@ Maker Ends 56511,1
Imp Fase 2; I = 4 56511,1
Imp X=1530 Y=1312 Esito: 8:12:3 >> INCERTO
Imp E30 Esito: INCERTO

Imp Fase 1; I = 5 56511,1
Change: B4 1298 19/01/2024 15:41:51
Mkr @@@@@@ Maker begins Called 56511,25
@@@@@@ Start Maker starter Called 56511,3
@@@@@@ Start Maker ABORTED Called 56511,3
>>>: 144,6 162,2857 482 355
130816 00130816 RGB: 000 255 001 New Store
Mkr @@@@@@ Maker Ends 56511,54
Imp Fase 2; I = 5 56511,54
Imp X=1524 Y=1298 Esito: 18:18:0 >> NEVE
Imp F30 Esito: NEVE
Imp Ends

Questo il foglio del nomogramma


Questo il foglio master

[Anthony47]

Allora...
Avevo sbagliato la gestione delle coordinate fuori scala, che veniva fatto nelle funzioni NormX e NormY.
Inoltre ho dovuto inserire nel file PREVISIONI un ulteriore check per migliorare la sincronizzazione con la macro del file "master"
Infine ho modificato la Sub ImportaPrevisioni per prevedere l'attivazione sia da foglio A che da foglio B.

Devi pertanto prelevare il nuovo file PREVISIONI con le sue macro aggiornate (allo stesso link precedente), e sostituire in blocco il codice sul file master con questo nuovo:

Codice: Seleziona tutto

Dim maX As Long, maY As Long, miX As Long, miY As Long

Sub ImportaPrevisioni()
Dim MIO As Worksheet, MODEL As Worksheet
Dim mySplit, I As Long, StarPo As Range
Dim Mark As String, PuPa As String
'
Set MIO = ActiveSheet
Set MODEL = Workbooks("PREVISIONI_XA2.xlsm").Sheets("Modello3")     'Dichiara file/foglio da usare
Mark = "Imp "
If MIO.Name = "NowcastingGFS" Then
    PuPa = "B27"
ElseIf MIO.Name = "OutlookGFS" Then
    PuPa = "C28"
Else
    MsgBox ("Foglio non selezionato, processo abortito")
    Debug.Print Mark, "ERRATO Sheet", ActiveSheet.Name
    Exit Sub
End If
MODEL.Parent.Activate                                               'Attiva file PREVISIONI...
MODEL.Select                                                        '   ...foglio Modello3

Range("C1") = "Called"                                              'Blocca Sub Maker da ChangeEvent
Debug.Print Mark & "Starts ....."
'
maX = 1580: miX = 1500
maY = 1330: miY = 1260
'
For I = 1 To 5                                                      'Usa le 5 coppie X / Y
    Debug.Print
    Debug.Print Mark & "Fase 1; I = " & I, Timer
    Application.EnableEvents = False
    MODEL.Range("B3").Value = NormX(MIO.Range(PuPa).Cells(2, I).Value)    ' X
    Application.EnableEvents = True
    MODEL.Range("B4").Value = NormY(MIO.Range(PuPa).Cells(1, I).Value)    ' Y, start Change Event
    DoEvents
    If Len(MODEL.Range("C3") & MODEL.Range("C4")) = 0 Then          'Skip se "fuori scala"
        Application.Run "'" & ActiveWorkbook.Name & "'!Maker"       'Esegui "Maker"
        Debug.Print Mark & "Fase 2; I = " & I, Timer
        'Preleva i risultati:
        mySplit = Split(MODEL.Range("C10") & ">>  ", ">> ", , vbTextCompare)
        If MODEL.Range("B10") > MODEL.Range("B11") Then             '<<< Secco o Dubbio?
            MIO.Range(PuPa).Cells(4, I) = mySplit(1)               'Valore "secco"
        Else
            MIO.Range(PuPa).Cells(4, I) = MODEL.Range("C10")       'Valore dubbio
        End If
        'report:
        Debug.Print Mark & " X=" & Int(MIO.Range(PuPa).Cells(2, I).Value), _
          "Y=" & Int(MIO.Range(PuPa).Cells(1, I).Value), "Esito: " & MODEL.Range("C10")
        Debug.Print Mark, MIO.Range(PuPa).Cells(4, I).Address(0, 0), "Esito: " & MIO.Range(PuPa).Cells(4, I)
    Else
        MIO.Range(PuPa).Cells(4, I) = "Fuori Scala"
        Debug.Print Mark & " X=" & Int(MIO.Range(PuPa).Cells(2, I).Value), _
          "Y=" & Int(MIO.Range(PuPa).Cells(1, I).Value), "Esito: " & MIO.Range(PuPa).Cells(4, I)
        Debug.Print Mark, MIO.Range(PuPa).Cells(4, I).Address(0, 0), "Fuori scala?"
    End If
Next I                                                              'ripeti next x-y
'DoEvents
Range("C1").ClearContents                                           'Rimuovi flag "Called"
DoEvents: DoEvents
Beep
Debug.Print Mark & "Ends"
ThisWorkbook.Activate                                               'Attiva foglio master
End Sub

Function NormX(ByVal IPOX As Long) As Long
NormX = IPOX
If IPOX > maX Then NormX = maX
If IPOX < miX Then NormX = miX
End Function

Function NormY(ByVal IPOY As Long) As Long
NormY = IPOY
If IPOY > maY Then NormY = maY
If IPOY < miY Then NormY = miY
End Function


Ho visto che hai modificato il testo dei risultati calcolati sul file PREVISIONI; per "portarli" sul nuovo file ricorda di copiare l'intervallo R3:R11 su un foglio di servizio prima di sostituire il tuo attuale PREVISIONI con il nuovo

Buon collaudo...

[Paolo67met]

Scaricato file e sostituito codice.
Ho creato un pulsante per richiamare la macro in maniera spedita!
Fatte un po di simulazioni...funziona perfettamente!
Ho notato però una cosa che non so se attribuire ad un malfunzionamento del mio excel o ad altro!
In pratica quando decido di chiudere entrambe i programmi a volte "PREVISIONI_XA2" si "freeza" si blocca!
Lo stesso se decido di salvare di tanto in tanto il file manualmente.
Non si verifica sempre ma è successo più di una volta (inspiegabilmente).
Ti chiedo: i 2 file possono essere chiusi a "piacere" oppure devo dare priorità di chiusura magari al "Master" e poi a "PREVISIONI_XA2"?

Altra cosa,visto che ogni tanto ci sono modifiche da apportare al foglio "Master"e per mia comodità rinomino quest'ultimo con una numerazione di tipo incrementale,in pratica...XXX 4.0,XXX 4,1,XXX 4,2 ecc. Se faccio così devo modificare qualcosa nel codice del foglio "PREVISIONI_XA2"?

Continuo intanto a collaudare il tutto e ad aggiornarti.
Grazie per aver risolto anche questo problema Anthony!
Paolo

[Paolo67met]

Me l'ha rifatto adesso!
Ho chiuso prima il "Master"...tutto OK
Clicco su salva file del file "PREVISIONI"...mi chiede conferma e si freeza.
Ti indico con la freccia che il salvataggio è in corso ma di fatto il file rimane "freezato" anche se premo ESC e devo ricorrere a forzargli la chiusura con CTRL ALT DEL

[Paolo67met]

Dimenticavo...
testo ancora un pò il 1°foglio poi una volta appurato che tutto funziona passiamo al 2°foglio

[Anthony47]

Controlla che in Modulo2 del file PREVISIONI in coda sia presente la Function IsLoaded, perche' stamattina mi sono accorto, molto tempo dopo aver pubblicato il messaggio, che non avevo salvato il file con le ultime modifiche, quindi potresti aver scaricato una versione incompleta.
Purtroppo non basta aggiungere quella Function, ci sono un paio di altre modifiche collegate che e' difficile descrivere; insomma se manca la Function devi scaricare il file completo

Fai sapere...

[Paolo67met]

Ti mostro quello che c'è nel Modulo 2 in coda