La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Ciao
Gli incubi li stai facendo venire a me ? ma forse stavolta ci siamo ? ?
Ti allego il file "vecchio" in cui trovi una nuova macro (l'ultima nel mio modulo). Apri entrambi i file (metti ovviamente il file allegato nella stessa cartella) prima il nuovo (che è quello che ti ho mandato ieri) e poi quello di oggi. Clicca sul pulsante.
Fai sapere. Ciao,
Mario
PS - Ci saranno delle cose da sistemare (per es. Option Explicit messo in testa a tutti i Moduli) ma vedremo dopo. Intanto speriamo che sia la volta buona.
Buonasera,
sono arrivato da poco e non ho avuto modo di verificare nel dettaglio il tutto ma, dalle poche prove che ho fatto sembra tutto funzionare, tranne l'errore iniziale che continua a darmi all'apertura del file "nuovo" ma ho risolto prendendo come riferimento un altro.
Poi mi usciva il grafico dei fulmini con 3 valori in più e mi sono ricordato che avevi modificate le ultime 3 celle delle colonne V e W del foglio dati...sistemando quelle con le formule delle celle superiori, il grafico sembra essere ok.
Domani approfondisco il tutto in ogni dettaglio e ti confermo il tutto.
Una domanda...il foglio LightChart con quel grafico ed il grafico Pivot mio (per i fulmini) nel foglio Grafici, posso eliminarli giusto?
Per ora buona serata e grazie
Ciao
All'ultima domanda: si per entrambi.
A dopo. Ciao,
Mario
Buonasera,
oggi sono impazzito io invece nel cercare di capire un problema...ciò che ieri sembrava ok oggi non lo era, o meglio ho fatto 5 prove :
01 senza apportare nessuna modifica ai file (risultato = ok)
02 modificando le ultime tre celle delle colonne V e W (risultato = ok)
03 modificando le ultime tre celle delle colonne V e W, eliminando il foglio LightChart ed il mio grafico pivot (risultato = ok)
04 modificando le ultime tre celle delle colonne V e W, eliminando il foglio LightChart ed il mio grafico pivot, questa volta però utilizzando come nuovo file, il file che scarico dal server della stazione meteo (che alla fine è quello che andrò ad utilizzare di volta in volta per i vari giorni che mi servono i grafici), nominato "GW1000A-WIFI6A21(202202220000-202202222359)" (risultato = va in errore di run-time '5' subito dopo aver importato i dati e non prosegue nel salvataggio. I dati li importa tutti ma li elabora solamente per i primi grafici tranne quello dei fulmini, in più le linee del grafico non le adatta alla scala)
05 quest'ultima prova tutto come la 04 ma, ho provato a rinominare il file preso dal server, pensando potesse essere quello il problema, rinominandolo da "GW1000A-WIFI6A21(202202220000-202202222359)" a "nuovo" ma va comunque in errore
Allego come sempre i video da scaricare ma, solo gli ultimi due dove va in errore, nei quali puoi vedere anche il debug con la riga di codiche che viene evidenziata.
Mi dispiace ?
Ti allego anche qualche file così come sono quando li scarico dal server, nel caso potessero servirti per generare l'errore o fare tu direttamente la prova del nove.
Il file scaricato lo nomina con il nome del dataLogger (GW1000A-WIFI6A21) seguito da AnnoMeseGiorno-AnnoMeseGiornoOra ((202202220000-202202222359))
Ciao
La "telenovela" continua ... ? e non so più cosa escogitare (anche perchè a me funziona regolarmente).
Ho modificato la macro in quanto, vista la lunghezza del nome del file il trascriverlo in una InputBox è pericoloso e tedioso, è meglio aprire la Finestra di dialogo e selezionare il file da aprire. Ovviamente il file da aprire DEVE stare nella stessa cartella.
Ho dovuto inserire una condizione se i dati delle "fulminazioni" (vedi che sto imparando) siano nulli (andava in Debug)
Ti allego il file con la macro inserita (non mi consente di inserirla qui).
Prova e fai sapere. Ciao,
Mario
Ciao
si inizia davvero ad essere una telenovela e spero di non crearti troppo disturbo, non deve portarti via l'anima oltre al tempo libero?
Detto ciò funziona tutto senza andare in errore questa volta e il fatto di dover selezionare il file lo trovo decisamente più funzionale e veloce, sei un grande a prescindere da tutto e per il tempo che mi dedichi.
Ho fatto diverse prove prima di darti l'esito e essere sicuro di ciò che sto per dirti ma, il grafico dei fulmini ho notato che resta con i dati vecchi e non si aggiorna in caso di assenza in quel giorno, invece (se possibile naturalmente) dovrebbe mostrare un grafico vuoto (se avessi io le capacità farei apparire altro -non so magari la scritta "assenti"- in caso di assenza fulmini ma vuoto sarebbe ottimo lo stesso); molto probabilmente la correzione della macro per non farlo andare in errore lo fa restare così, non saprei.
Anche il file che mi hai allegato (aggiornato_due) se ci fai caso resta con i dati vecchi mentre gli altri sono aggiornati (sicuramente lo sai).
Altra cosa che ho notato strana, sta nel grafico n° 3 (BARANI vs APOGEE_DIY) che ad esempio importando questa giornata
(l'ho presa perché presenti molti fulmini), il limite massimo dell'asse verticale viene tagliato e non capisco il perché di questi eventi randomici con alcune giornate se la macro fa il suo compito in automatico per tutti i file. Per ovviare a questo se i limiti minimo e massimo delle serie dei grafici potessero avere di default un eccesso di spazio sia in alto che il basso in modo da mostrare tutta l'estensione dell'andamento dei dati andrebbe bene lo stesso (naturalmente non per i fulmini).
Buona serata ?
Ciao
Ti allego il file "vecchio_4" che "dovrebbe" funzionare a dovere anche nel caso in cui non ci siano dati per il quarto grafico.
Per quanto attiene la possibilità di aumentare l'asse verticale, sia come limite minimo sia come massimo, la macro lo fa già con queste righe
ActiveChart.Axes(xlValue).MinimumScale = mn * 1.1
ActiveChart.Axes(xlValue).MaximumScale = mx * 0.9
che trovi in tutte le macro. Basta cambiare i numeri dopo l'asterisco.
Ciao,
Mario
PS - Secondo me manca un'altra cosa: chiudere il file dal quale sono stati copiati i dati. Ma a questo pensaci tu.
Ciao
A ripensarci bene, però, quelle due righe di codice di cui sopra devono essere al contrario! Cioè il limite minimo deve essere diminuito ed il massimo aumentato.
Modificale così in tutte le macro:
ActiveChart.Axes(xlValue).MinimumScale = mn * 0.9
ActiveChart.Axes(xlValue).MaximumScale = mx * 1.1
Ciao,
Mario
Ciao,
siamo al tuning finale credo, i valori che mi hai detto di modificare nel codice delle macro non va proprio bene per tutti i grafici allo stesso modo purtroppo ma, giocandoci distintamente su ognuno credo di riuscirci pian piano; ad esempio ho notato che per Sub Temperature va bene così :
ActiveChart.Axes(xlValue).MinimumScale = mnRB * 0.5
ActiveChart.Axes(xlValue).MaximumScale = mxRB * 1.05
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = mnGialla * 0.5
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = mxGialla * 1.05
mentre per Sub BARANI_APOGEE_DIY come hai detto tu :
ActiveChart.Axes(xlValue).MinimumScale = mn * 0.9
ActiveChart.Axes(xlValue).MaximumScale = mx * 1.1
farò delle prove su molti giorni per verificare.
Più che altro anche questo file con zero fulmini continua a lasciare l'istogramma del giorno precedente segnando però come data 01.01.2020 (ho provato sia con il nuovo file che crea rinominandolo che sempre con lo stesso "vecchio_4).
Poi per dare una pulita alle macro, quali posso eliminare tranquillamente tra queste :
1. BARANI_APOGEE_DIY
2. Copia_Incolla_Aggiorna_bis
3. CopiaDati
4. Humidity
5. Lighting
6. Macro_Humidity
7. Macro_Scostamento
8. Macro_Temp
9. Progress
10. Temperature
Ciao
Pierluigi
Ciao Pierluigi (adesso so anche il tuo nome)
Mi riferisco all'ultimo allegato (file denominato "vecchio_4") puoi eliminare:
Modulo 1
Modulo 2
Dal Modulo Marius puoi eliminare:
Progress
Lighting
CopiaDati
Basta con le eliminazioni. Circa i limiti minimo e massimo adattali alle tue esigenze tenendo presente, come avrai capito, che moltiplicando per 0.9 il valore viene diminuito mentre moltiplicando per 1.1 viene aumentato.
Grafico Lighting - E' strano quello che dici perchè, se non ci sono fulminazioni, le matrici che fungono da sorgente dati per il grafico le ho impostate così: data(1) = "01/01/2020", colV(1) = 1 e colW1 = 1 come potrai vedere in queste righe di codice
If IsEmpty(a) Then ' se non ci sono dati estratti
ReDim data(1 To 1)
ReDim colV(1 To 1)
ReDim colW(1 To 1)
data(1) = "01/01/2020"
colV(1) = 1
colW(1) = 1
End If
Il Grafico mostra solo una colonna.
Ciao,
Mario
PS - Tieni sempre una copia da parte (non si sa mai)
Ciao, mi sono messo all'opera ed ho eliminato le 3 macro :
Progress
Lighting
CopiaDati
solo che non ho ben capito quali sono e cosa intendi per
Modulo 1
Modulo 2
Per adattare i limiti minimo e massimo si ho capito il tutto ma, non si riesce a trovare il giusto valore per tutti i grafici e per tutti i giorni che si susseguono in modo da lasciare più o meno lo stesso spazio sia sopra che sotto le linee del grafico (inteso come scala minima e massima naturalmente).
Per il Grafico Lighting invece ti confermo che se i fulmini non sono presenti, lascia un solo istogramma con la data 01/01/2020 ma, non deve mostrare nulla invece, né data né istogrammi.
Buona serata
Ciao
Se apri l'Editor di VBA nella parte sinistra vedrai il progetto che ti elenca tutti i Fogli del file Excel e i Moduli in cui stanno le macro. Li trovi Modulo1 e Modulo2. Comunque ti allego il nuovo file nel quale ho eliminato quanto sopra ed ho sistemato la macro per non far apparire nulla se non ci sono fulminazioni.
Una buona giornata,
Mario
Ciao Mario,
ho visto la pulizia che hai fatto e dove sono i moduli, grazie alle tue indicazioni (non vedevo i moduli perché nell'editor dovevo abilitare il pannello di sinistra) ma, giuro che non lo faccio apposta, va in errore all'importazione del file, allego la riga del debug.
Buona serata
Pierluigi
Ciao
Per caso la colonna W del foglio del file da cui importare i dati è vuota?
Ciao,
Mario
