Una Somma Per Riga

[ikwae]

Ciao a tutti … Ho registrato tre righe di codice (una alla volta) per fare
una somma sulla stessa riga.
Mentre le registrate hanno un range statico ho trovato una soluzione per avere un range dinamico.

Codice: Seleziona tutto

 
'                                    G1     ActiveCell(M1)
   ActiveCell.FormulaR1C1 = "=SUM(RC[-7]:RC[-1])"
   
'                                    G1      ActiveCell (AD1)
   ActiveCell.FormulaR1C1 = "=SUM(RC[-24]:RC[-1])"
   
'                                    G1       ActiveCell (AK1)
   ActiveCell.FormulaR1C1 = "=SUM(RC[-31]:RC[-1])"
   
   'UNICA, DINAMICA, DA G1 A QUALSIASI CELLA (stessa riga) DI ActiveCell
   Set uRiga = Range(ActiveCell, ActiveCell.EntireRow.Offset(0, 0).Cells(7))
 ActiveCell = Application.WorksheetFunction.Sum(uRiga)

Considerazioni:
La formula registrata si lascia trasportare con Autofill fino alla riga 1.048.575
Mentre la dinamica rifiuta di farsi trasportare con Autofill fino alla riga 1.048.575
Anche “forzandola” non fa la somma ma aggiunge un progressivo +1 al numero precedente.

Pertanto, se possibile, chiedo aiuto a tutto il Forum per avere una formula che detta
in soldoni tipo ActiveCell.FormulaR1C1 = "=SUM(RC[G1]:RC[ActiveCell])"
oppure più sbrigativa (perdonatemi il metodo)
tipo ActiveCell.Formula = "=SUM(G1:ActiveCell")”
che si lascia trasportare con Autofill fino alla riga 1.048.575.
In alternativa un metodo/modo che la formula dinamica arrivi alla riga 1.048.575.

Scegliere la più facile e veloce oppure e ben accetta qualunque indicazione equivalente.
Tenere in considerazione che a sinistra c’è la G1 e a destra c’è ActiveCell.

Per evitare di creare confusione allegando un file che non saprei cosa mettere sul
foglio perché all’interno del Range(“G1:ActiveCell1048575”) ci possono essere da
tre numeri a diversi milioni (dico milioni) di numeri sparsi “a gruviera” sul tutto il foglio.
E’ il programma che gestisce cosa scrivere, di volta in volta, in funzione del filtro che
sta elaborando.
E’ importante che l’indicazione di aiuto, che eventualmente mi viene concessa, sia
autonoma ossia che si possa gestire esclusivamente con macro.
Ringraziando anticipatamente tutti coloro che mi possono aiutare 73 ikwae

Note: se viene richiesto un file con eventuali e, precise indicazioni, posso anche allegare la
macro casareccia, estremamente lumacosa e .

[Ricky0185]

Sarebbe meglio se alleghi qualcosa. Comunque prova

Codice: Seleziona tutto

ActiveCell.FormulaR1C1 = "=SUM(G1:" & ActiveCell.Address & ")"

[Anthony47]

Un'altra opzione:

Codice: Seleziona tutto

ActiveCell.FormulaR1C1 = "=SUM(RC7:RC[-1])"

Se sei ad esempio in J3 questa si traduce in SOMMA($G3:I3)
Poi la copi verso il basso tramite Autofill o anche Copy

Ciao

[ikwae]

Gentilissimo Anthony sempre molto gentile a rispondermi….
Sorriso e non aggiungo altro … per il collaudo dico è perfetta altro è superfluo.
Ringraziandoti mille e mille volte cordialmente ikwae


@ Ricky0185
Mentre stavo dandoti la giusta e doverosa risposta ho visto l’indicazione di Anthony
Comunque riporto ugualmente quanto avevo scritto.

Ciao Ricky0185,
Innanzitutto grazie per la risposta alla mia richiesta di aiuto. Astuta l’idea di ActiveCell.Address ma purtroppo non funziona esce l’errore 1004 errore definito dall’applicazione o dall’oggetto.

Ho aperto un foglio è ho scritto da G1 a K1 i numeri dall’1 al 5 e poi ho cancellato i numeri pari sono rimasti tre numeri e selezionando la L1 ho mandato in esecuzione
la tua indicazione che, purtroppo, va in errore.
E’ una mia regola tassativa allegare un file alle richieste di aiuto ma in questo caso darei delle indicazioni errate perché non so cosa mettere e se scrivessi anche un solo numero darei delle indicazioni errate perché indicherebbe una ActiveCell errata.

Ho provato in mille modi ma nulla da fare e per questo ho chiesto aiuto al Forum appunto perché
non ci sono dati anzi gli unici dati certi sono la G1 e sulla stessa riga, non si sa dove c’è ActiveCell. e, in questo intervallo, c’è da fare la somma delle celle e, la formula, si deve lasciare trascinare con Autifill fino in fondo.
ringraziandoti ancora per il tuo aiuto cordialmente ikwae