Nomogramma e funzione matematica in excel...

[Anthony47]

Scarica nuovamente il file, potrei aver fatto salvataggi intermedi prima di arrivare alla versione finale

Quanto al nome del file "master", esso non richiede cambiamenti alla macro.

[Paolo67met]

Scaricato ed aggiornato!
Faccio test e ti faccio sapere

[Paolo67met]

Ciao Anthony,allora ho fatto diversi test:tutto funziona!
Non sembrano esserci più blocchi.
Sto seguendo la procedura di chiudere prima il file PREVISIONI e poi il "Master"
A questo punto non resta che fare il 2°foglio.
Quando vuoi ed hai tempo...





Buona notte
Paolo

[Anthony47]

A questo punto non resta che fare il 2°foglio.
Quando vuoi ed hai tempo...

Che vuol dire???

[Anthony47]

A questo punto non resta che fare il 2°foglio.
Quando vuoi ed hai tempo...

Che vuol dire???

Se parli dell'importazione delle pevisioni anche da foglio OutlookGFS, questa dovrebbe essere gia' integrata nella Sub ImportaPrevisioni, come dissi qualche giorno fa qui: viewtopic.php?f=26&t=113229&start=20#p666019

Infine ho modificato la Sub ImportaPrevisioni per prevedere l'attivazione sia da foglio A che da foglio B

[Paolo67met]

C'è qualcosa che non va allora!
Mi ricordo che il 2°foglio doveva essere modificato (ed è quello che ti ho allegato prima)
Infatti la macro attuale mi riempie solo le celle nel foglio 1.

[Paolo67met]

Ti riporto quello che visualizzo nella finestra immediata del file PREVISIONI

Imp Fase 2; I = 4 86286,99
Imp X=1581 Y=1339 Esito: 18:18:0 >> PIOGGIA
Imp E30 Esito: PIOGGIA

Imp Fase 1; I = 5 86287
Change: B4 1330 25/01/2024 23:58:07
@@@@@@ Start Maker starter Called 86287,16
@@@@@@ Start Maker ABORTED Called 86287,16
Mkr @@@@@@ Maker begins Called 86287,16
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86287,27
Imp Fase 2; I = 5 86287,27
Imp X=1580 Y=1338 Esito: 18:18:0 >> PIOGGIA
Imp F30 Esito: PIOGGIA
Imp Ends
Imp Starts .....

Imp Fase 1; I = 1 86289,45
Change: B4 1330 25/01/2024 23:58:09
@@@@@@ Start Maker starter Called 86289,61
@@@@@@ Start Maker ABORTED Called 86289,61
Mkr @@@@@@ Maker begins Called 86289,61
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86289,73
Imp Fase 2; I = 1 86289,73
Imp X=1584 Y=1339 Esito: 18:18:0 >> PIOGGIA
Imp B30 Esito: PIOGGIA

Imp Fase 1; I = 2 86289,73
Change: B4 1330 25/01/2024 23:58:09
@@@@@@ Start Maker starter Called 86289,9
@@@@@@ Start Maker ABORTED Called 86289,9
Mkr @@@@@@ Maker begins Called 86289,9
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86290,02
Imp Fase 2; I = 2 86290,02
Imp X=1585 Y=1341 Esito: 18:18:0 >> PIOGGIA
Imp C30 Esito: PIOGGIA

Imp Fase 1; I = 3 86290,02
Change: B4 1330 25/01/2024 23:58:10
@@@@@@ Start Maker starter Called 86290,18
@@@@@@ Start Maker ABORTED Called 86290,18
Mkr @@@@@@ Maker begins Called 86290,18
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86290,3
Imp Fase 2; I = 3 86290,3
Imp X=1583 Y=1340 Esito: 18:18:0 >> PIOGGIA
Imp D30 Esito: PIOGGIA

Imp Fase 1; I = 4 86290,3
Change: B4 1330 25/01/2024 23:58:10
@@@@@@ Start Maker starter Called 86290,47
@@@@@@ Start Maker ABORTED Called 86290,47
Mkr @@@@@@ Maker begins Called 86290,47
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86290,59
Imp Fase 2; I = 4 86290,59
Imp X=1581 Y=1339 Esito: 18:18:0 >> PIOGGIA
Imp E30 Esito: PIOGGIA

Imp Fase 1; I = 5 86290,59
Change: B4 1330 25/01/2024 23:58:10
@@@@@@ Start Maker starter Called 86290,75
@@@@@@ Start Maker ABORTED Called 86290,75
Mkr @@@@@@ Maker begins Called 86290,75
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86290,87
Imp Fase 2; I = 5 86290,87
Imp X=1580 Y=1338 Esito: 18:18:0 >> PIOGGIA
Imp F30 Esito: PIOGGIA
Imp Ends
Imp Starts .....

Imp Fase 1; I = 1 86299,14
Change: B4 1330 25/01/2024 23:58:19
@@@@@@ Start Maker starter Called 86299,3
@@@@@@ Start Maker ABORTED Called 86299,3
Mkr @@@@@@ Maker begins Called 86299,3
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86299,41
Imp Fase 2; I = 1 86299,42
Imp X=1584 Y=1339 Esito: 18:18:0 >> PIOGGIA
Imp B30 Esito: PIOGGIA

Imp Fase 1; I = 2 86299,42
Change: B4 1330 25/01/2024 23:58:19
@@@@@@ Start Maker starter Called 86299,59
@@@@@@ Start Maker ABORTED Called 86299,59
Mkr @@@@@@ Maker begins Called 86299,59
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86299,7
Imp Fase 2; I = 2 86299,7
Imp X=1585 Y=1341 Esito: 18:18:0 >> PIOGGIA
Imp C30 Esito: PIOGGIA

Imp Fase 1; I = 3 86299,71
Change: B4 1330 25/01/2024 23:58:19
@@@@@@ Start Maker starter Called 86299,87
@@@@@@ Start Maker ABORTED Called 86299,87
Mkr @@@@@@ Maker begins Called 86299,87
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86299,98
Imp Fase 2; I = 3 86299,98
Imp X=1583 Y=1340 Esito: 18:18:0 >> PIOGGIA
Imp D30 Esito: PIOGGIA

Imp Fase 1; I = 4 86299,99
Change: B4 1330 25/01/2024 23:58:20
@@@@@@ Start Maker starter Called 86300,16
@@@@@@ Start Maker ABORTED Called 86300,16
Mkr @@@@@@ Maker begins Called 86300,16
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86300,27
Imp Fase 2; I = 4 86300,27
Imp X=1581 Y=1339 Esito: 18:18:0 >> PIOGGIA
Imp E30 Esito: PIOGGIA

Imp Fase 1; I = 5 86300,27
Change: B4 1330 25/01/2024 23:58:20
@@@@@@ Start Maker starter Called 86300,44
@@@@@@ Start Maker ABORTED Called 86300,44
Mkr @@@@@@ Maker begins Called 86300,45
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 86300,55
Imp Fase 2; I = 5 86300,56
Imp X=1580 Y=1338 Esito: 18:18:0 >> PIOGGIA
Imp F30 Esito: PIOGGIA
Imp Ends
37:54
@@@@@@ Start Maker starter Called 85074,8
@@@@@@ Start Maker ABORTED Called 85074,8
Mkr @@@@@@ Maker begins Called 85074,8
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 85074,93
Imp Fase 2; I = 1 85074,93
Imp X=1584 Y=1339 Esito: 18:18:0 >> PIOGGIA
Imp B30 Esito: PIOGGIA

Imp Fase 1; I = 2 85074,93
Change: B4 1330 25/01/2024 23:37:54
@@@@@@ Start Maker starter Called 85075,09
@@@@@@ Start Maker ABORTED Called 85075,09
Mkr @@@@@@ Maker begins Called 85075,09
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 85075,21
Imp Fase 2; I = 2 85075,21
Imp X=1585 Y=1341 Esito: 18:18:0 >> PIOGGIA
Imp C30 Esito: PIOGGIA

Imp Fase 1; I = 3 85075,22
Change: B4 1330 25/01/2024 23:37:55
@@@@@@ Start Maker starter Called 85075,38
@@@@@@ Start Maker ABORTED Called 85075,38
Mkr @@@@@@ Maker begins Called 85075,38
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 85075,5
Imp Fase 2; I = 3 85075,5
Imp X=1583 Y=1340 Esito: 18:18:0 >> PIOGGIA
Imp D30 Esito: PIOGGIA

Imp Fase 1; I = 4 85075,51
Change: B4 1330 25/01/2024 23:37:55
@@@@@@ Start Maker starter Called 85075,67
@@@@@@ Start Maker ABORTED Called 85075,67
Mkr @@@@@@ Maker begins Called 85075,67
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 85075,79
Imp Fase 2; I = 4 85075,79
Imp X=1581 Y=1339 Esito: 18:18:0 >> PIOGGIA
Imp E30 Esito: PIOGGIA

Imp Fase 1; I = 5 85075,8
Change: B4 1330 25/01/2024 23:37:55
@@@@@@ Start Maker starter Called 85075,95
@@@@@@ Start Maker ABORTED Called 85075,95
Mkr @@@@@@ Maker begins Called 85075,95
Mkr >: 479,00 2,00 482 355
Mkr 00000254 RGB: 254 000 000 New Store
Mkr @@@@@@ Maker Ends 85076,07
Imp Fase 2; I = 5 85076,07
Imp X=1580 Y=1338 Esito: 18:18:0 >> PIOGGIA
Imp F30 Esito: PIOGGIA
Imp Ends

[Paolo67met]

E questo il foglio 1

[Anthony47]

La macro importa sul foglio attivo usando i parametri presenti nel foglio attivo.

Se vuoi fare tutto insieme usa una nuova macro che in sequenza seleziona foglio1, chiama la sub di importazione, seleziona foglio2, chiama la sub di importazione; tipo

Codice: Seleziona tutto

Sub Superiore()
Sheets("NowcastingGFS").Select
Call ImportaPrevisioni
Sheets("OutlookGFS").Select
Call ImportaPrevisioni
End Sub


Poi lancerai questa per ambedue le importazioni e Sub ImportaPrevisioni per importare solo il foglio attivo

[Paolo67met]

Fatto...ovviamente funge!
Ho copiato la macro in un modulo standard nel file Master!
Visto che nel frattempo avevo aggiunto nel foglio 2 (outlookGFS) le celle per l'orario "+18" e "ore attuali" (vedi immagini che ho postato qualche msg addietro) posso chiederti di implementarmi anche queste ultime?

[Anthony47]

Dovresti spiegare quale foglio e' cambiato e in quale modo: dopo 50 messaggi non so dove dovrei guardare per capirlo da me. Tieni presente che le immagini non sempre sono leggibili, quindi non fare affidamento solo su di esse

[Paolo67met]

Effettivamente dopo tutti questi msg che apportano continue modifiche al programma risulta complicato andare a ritroso ed alla fine succede che mi "incarto" pure io

Allora faccio brevemente una ricapitolazione:

Dunque la Sub attuale "ImportaPrevisioni" importa i risultati sul file "Master" in 2 fogli distinti:

Nel primo foglio chiamato "NowcastingGFS" questa Sub legge 5 coppie di valori, posizionati in B27:F28 e va a scrivere i risultati in B30:F30.

Nel secondo foglio chiamato "OutlookGFS" questa Sub legge 5 coppie di valori, posizionati in C28:G29 e va a scrivere i risultati in C31:G31

Bisognerebbe aggiungere a queste ultime 2 nuove coppie di valori:

La prima si trova in B28:B29 con risultati da scrivere in B31
La seconda si trova in L28:L29 con risultati da scrivere in L31

[Anthony47]

Si puo' fare, pero' per quanto riguarda la macro vorrei che i dati dell'ultimo caso siano accanto agli altri 6, cioe' in H28/29 (le coordinate) e H31 (il risultato)
Poi nella Sub ImportaPrevisioni
1) invece che PuPa = "C28" scrivi PuPa = "B28"
2) modifichi questa parte

Codice: Seleziona tutto

For I = 1 To 10                                                      'MODIF
    Debug.Print
    Debug.Print Mark & "Fase 1; I = " & I, Timer
    If MIO.Range(PuPa).Cells(2, I).Value = "" Then Exit For         '++++
    Application.EnableEvents = False


C'e' una riga modificata (MODIF) e una riga aggiunta (++++)

Ovviamente puoi mantenere anche i dati visualizzati in colonna L, se ti interessa evidenziarli; basta che colleghi le celle di L con quelle di H; tipo in L31 la formula =H31

Ciao

[Paolo67met]

Fatto!
Funge alla grande
Un milione di ringraziamenti Anthony!