Fotovoltaico somma + macro

Buongiorno mi chiamo Francesca e sono nuova nel forum. Avrei bisogno di un piccolo aiuto per una macro. Premetto che utilizzo da pochissimo questo linguaggio (VBA). La mia necessità è quella di creare una macro che mi esegua diverse somme da celle selezionate da me con il cursore e che ogni volta inserisca il risultato in un foglio diverso (ma nello stesso file) da una casella selezionata da me con il cursore. E' possibile eseguire una cosa del genere?
Ho già creato una macro che selezionando i valori nel primo foglio mi riporta la somma nel secondo foglio ma solo in una casella specifica e non riesco a fargliela selezionare io con il cursore grazie a chi mi aiuta. Buona giornata

Allego qui la mia macro:
[TESTO ::text]Sub Sommacabinefinale()
xRange = Selection
Range("A1:A2").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 2)
Range("B2") = Range("B2") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale2()
xRange = Selection
Range("B30:F30").Select

Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 3)
Range("B3") = Range("B3") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("B3").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("B3").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale3()
xRange = Selection
Range("B30:F30").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 4)
Range("B4") = Range("B4") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("B4").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("B4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale4()
xRange = Selection
Range("B30:F30").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 5)
Range("B5") = Range("B5") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("B5").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("B6").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale5()
xRange = Selection
Range("B30:F30").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 6)
Range("B5") = Range("B5") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale6()
xRange = Selection
Range("B30:F30").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 7)
Range("B6") = Range("B6") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub[/TESTO]

allega un file di esempio con i dati ed il risultato desiderato

Grazie mille per la risposta rapidissima le allego il link del mio file con il risultato desiderato nel terzo foglio
https://www.dropbox.com/s/65ra6evwdt59eao/file%20macro%20finale.xlsm?dl=0

Grazie mille

Non ho capito bene, potresti descrivere le operazioni da fare facendo riferimento al file allegato ? perché nel file ci sono tante macro ?

Scusate mi spiego meglio.
Le operazioni che vorrei fare sono la somma di qualsiasi cella selezionata da me nel foglio1 denominato "file uniti" e il risultato venga inserito in una cella da me selezionata nel foglio 2 denominato "Report". Quelle tante macro le ho fatte perché non sapevo come risolvere il problema semplicemente.
Grazie per la risposta

Ciao ho capito che si tratta di vedere il rendimento di celle fotovoltaiche

ma devi sforzarti di dare più indicazioni.

dunque hai 5 cabine, nel foglio fileuniti ci sono i rendimenti per orario delle celle di ogni cabina

tu dici che vuoi selezionarle, come?
prendiamo la cabina1 ore 07:00 riga 34 mi da un valore di 18.000

ora seleziono questo valore e dove lo porto?
nel foglio report? in che data?

asp. forse ho capito, ti preparo qualcosa
e ti allego il file

Ciao By Sal

Grazie per l'aiuto vorrei selezionare i dati da sommare che mi occorrono con il cursore nel foglio "file uniti", sommarli e vorrei che il risultato sia inserito nella cella selezionata da me non so come altrimenti devo fare mille macro per risolvere questo problema perché come hai detto tu devo calcolare il rendimento del fotovoltaico giorno per giorno e cabina per cabina. grazie mille

No io non devo prendere valore per valore devo fare per esempio:
seleziono tutta la cabina 1 (da B6 a B102) e voglio che la macro esegui questa somma e che il valore sia riportato nella cella B2 del foglio "report". Questo lo dovrei fare per ogni cabina per ogni giorno.

Ciao Francesca, eccoti il file con la macro che fa la somma delle cabine.

PERO':

guardando tutto il foglio "File uniti" ho visto che ci sono diverse letture che vanno fino al 6/7/2016 fino alla riga 2926

ho fatto fare la sommatoria della prima data 6/1/2016 la somma dalla riga 6 alla riga 102 di ogni cabina.

non so se era questo che volevi.

anche se sono perplesso perche la mia somma non si trova con questo risultato alla riga 104

TOTAL Aktive Energy Output 2.268.705

se mi dai più informazioni per le somme, vediamo che si può fare

dimenticavo la mia macro si chiama "ProvaSommaCabine" devi lanciarla però cancella prima il risultato del giorno 6 nel foglio report.

Ciao By Sal

Mi scuso, non mi sono spiegata bene. Io vorrei fare la somma (nel foglio file uniti) dalla riga B6 alla riga 102 e inserire questo risultato nel foglio "report" nella riga B2 e su questo ci siamo, però adesso devo fare la somma dell'altra cabina (sul foglio "file uniti") dalla riga C6 alla C102 e riportare il risultato sul foglio report nella cella C2 così per tutte le cabine e per tutte le date (in questo file sono riportate le date dal 06/01/2016 al 06/07/2016. Mi sono spiegata meglio ora?

Ho dimenticato di mettere la sua macro nel pulsante quindi avviava la mia. Ora ho verificato ed è corretto Grazie. Ora il problema è che se lo devo fare il tutti i giorni e per tutte le cabine mi sembra abbastanza complicato fare 1000 macro per fare questa operazione. C'è un modo per semplificarlo?

Ciao Francesca, nel foglio Report vi è un solo mese?

oppure devo far inserire la data mano a mano che trova la registrazione?

faccio in questo modo in quanto se manca la data di lettura vuol dire che non è pervenuta oppure non è interessante.

faccio sviluppare tutte le date che ci sono.

Ciao By Sal

Ciao Sal :) nel foglio sono riportati solamente il giorno 6 di 7 mesi con data appunto da gennaio a luglio ma a me servirebbe farlo per tutti i giorni per ogni mese dell'anno. E' un lavoro un po complicato lo so. Mi servirebbe un modo non so che magari io inserisco i file cvs (perchè i dati sono tratti da quelli) e mi calcoli direttamente la somma o in qualche altro modo, per non dover compilare tutto a mano. Grazie per l'aiuto
Buona giornata

quello che ho scritto valeva per il foglio file uniti mentre nel foglio report è riportato solo un mese si ma dovrei fare uno per ogni mese identico a quello.

Ciao Francesca, solo adesso ho letto.

Fai in questo modo, crea un nuovo foglio e fai copia incolla dei dati estratti.

poi carichi un altro csv e avvia la macro, avrai altri dati che aggiungerai a quelli precedenti, alla fine dovresti avere almeno il resoconto totale.

poi ne riparliamo, al limite farai un ordinamento per le date dei dati estratti.

Ciao By Sal

Ciao Sal :) non ho capito esattamente cosa dovrei fare.
Devo creare un altro foglio copiare quella specie di tabella che ho fatto ma ci devo mettere anche i dati? perché con la macro che mi hai dato tu esegue solo un calcolo alla volta quindi se non ho capito male devo fare i calcoli per tutte le cabine e metterli nella nuova tabella?

Ciao in effetti si, perche tu non hai un file csv completo di tutti i giorni, quello che mi hai dato è solo il giorno 6, ci sarà quello del giorno 7-8-9-etc...

ogni volta che carichi un csv sarà un giorno diverso, quindi una diversa lettura dei dati e delle somme.

in effetti, hai il giorno 6 fai copia incolla dei dati in un nuovo foglio, poi cancelli i dati dal 1° foglio "File Uniti" e ci copy quelli del giorno 7-etc..

se poi hai una cartella con tutti i csv, si potrebbe fare l'estrazione di tutti i csv.

ma occorre vedere la cartella vedere i csv se hanno tutti lo stesso formato, rifare la macro, insomma un bel lavoraccio.

Ciao By Sal

Ciao Sal si è un po complicato..Io purtroppo non ho i file di tutti i giorni ho solo quelli inseriti nel file. So soltanto che se ne riceve uno ogni giorno e che il file csv ha sempre lo stesso aspetto solo cambiano i valori ovviamente. Non posso verificare quella tabella che mi hai chiesto tu perchè non ho i file giornalieri ne ho solo 7 mensili del giorno 6. Come posso fare? c'è un modo per caricare i file tutti insieme nel file excel e tipo non so magari quando trova quel tipo di informazione ci fa la somma. Altrimenti ho finito le idee..Oppure esiste la possibilità in una macro di inserire selezionando la cella in cui si vuole mettere il risultato della somma? in questo modo si risolverebbe di tantissimo. Ma putroppo non ho queste conoscenze. Grazie per l'aiuto :)

Ciao Francesca, allora non vedo il problema.

Visto che tu non hai il file tutti i giorni, ma solo una volta diciamo a settimana ma non ha importanza ogni quanto.

adesso da questo file, lanciando la macro hai le tue somme, io non so cosa ne devi fare, ma fai tutte le tue elaborazioni con questi dati.

quando avrai il nuovo file con i dati, cancella i dati del foglio "File uniti" e ci copy i dati nuovi, poi lancia la macro.

avrai le nuove somme del file caricato per fare le tue valutazioni.

quindi ripeti l'operazione ogni volta che ti arriva un file nuovo.

Ciao By Sal

Ciao Sal :) il problema è che io non ho tutti i dati giorno per giorno ma arrivano ogni giorno questi dati. Quindi ora con la tua macro riesco ad avere un giorno al mese non tutti i giorni. Ho creato diverse tabelle uguali alla precedente classificandola per mese ma ho solamente il giorno 6 dei mesi Gennaio-Luglio perché questi sono i dati che mi hanno rilasciato. Ma se io volessi prolungare questa cosa in tutti i giorni dell'anno c'è un modo semplice? mi spiego meglio magari visto che la formattazione dei dati è sempre la stessa si potrebbe inserire il numero della cella ogni volta nella macro?

Ciao Sal :) per numero cella intendo dove verrebbe inserito il risultato finale. La mia idea era quella di creare una macro che facesse la somma in base a quello selezionato dal cursore ma che ogni volta mi inserisca il risultato in una cella diversa segnata da me con il cursore oppure nella macro ma segnandola nella macro sarebbe una cosa lunghissima visto che sono 235 i giorni. Non so se esista una cosa del genere

Ciao Sal :) altrimenti mi tocca fare una macro che includa un intero mese ma facendo i calcoli giorno per giorno e prima di ricorrere a quello volevo sapere se ci fosse un altra soluzione :) grazie

Ciao Francesca, io non riesco a capire in fondo, cosa vuoi fare.

Comunque ho fatto in modo che selezionando le celle avrai la somma, ma alla fine è un operazione manuale.

questo è l'iter di funzionamento, funziona solo sulle colonne B-F dei due fogli.

allora vai al foglio report, seleziona la cella dove vuoi la somma.

Passa poi al foglio "File uniti" seleziona una prima cella di una colonna B-F poi sempre sulla stessa colonna seleziona l'altra cella di cui vuoi la somma.

nel foglio report alla cella selezionata troverai la somma del range delle due celle selezionate sul foglio "File uniti"

più di cosi non posso fare, sperando che era quello che volevi.

Ciao By Sal

Ciao Sal la tua macro mi ha un bug allego la foto.
Grazie per l'aiuto :)
un'ultima precisazione che non ho ben capito, nella macro precedente che mi avevi dato faceva tutti i miei calcoli desiderati e lo riportava nel foglio report nel giorno 6 (perché era quello specifico) corrispondendo precisamente alle celle G1:G6. Se io volessi cambiare le celle di destinazione dalla macro non ho ben capito qual'è la riga di modifica e con quale metodo dovrei inserirle visto che non vedo un G1:G6 ma solamente dei numeri con il meno.
E' una domanda banale probabilmente ma non ho iniziato da molto comunque grazie di tutto

P.S. non ho capito benissimo come funziona l'ultima macro. Io seleziono una colonna e perchè mi compila tutto il foglio con le varie date se io non le ho? oppure mi fa la somma di tutti i file inseriti nelle colonne B:F?

Ciao Sal :) la macro funziona benissimo ma volevo che la somma funzionasse anche per la colonna J del foglio report. Come posso fare?
Grazie mille
Francesca

Ciao Francesca, prova a modificare la macro del foglio report in



è passato tempo e non ricordo tutto.

Ciao By Sal

Ciao Sal grazie per la risposta :) non trovo nessun Private Sub nella macro e nemmeno un If not. Dove dovrei modificarla?
Buona giornata,
Francesca

Ciao Francesca

Con il permesso di bySal fai così

1) Entra nell'editor di VBA premendo Alt+F11
2) In alto a sisinistra trovi l'elenco dei fogli e fai doppio clic sul foglio Report
3) Cancella il codice presente nella finestra in alto a destra e copiaci il nuovo codice.

Ciao Alfrimpa :)
Cancellando tutto e inserendo solo quella non funziona perché ce una chiamata a una macro (penso) o si riferisce a qualcosa che se cancello la macro precedente non esiste.
Grazie per la risposta
Francesca

P.S. errore mio non avevo intuido dove dovevo mettere la macro. Avendolo capito comunque la macro non funziona lo stesso, da un bug nella macro principale nella riga : sh2.Range(CP) = d
Aiutinoo?
grazie mille