Somma

[Mauro 61 Mauro 61]

Buonasera, come si può vedere dal file allegato attivando il pulsante "Somma" sul foglio "Matrice" una routine inserisce due righe e effettua la somma parziale della colonna K ad ogni salto pagina. La domanda che pongo è la seguente è possibile attraverso la stessa routine eseguire la somma totale della colonna K a fine pagina e che il risultato sia in grassetto e di dimensione 12?
Grazie

[Mauro 61 Mauro 61]

Come si incolla il file?

[albatros54Moderatore albatros54 Karma: 89 pts]

per poter allegare il file, o incollare,devi essere un utente registrato,quindi fai la registrazione

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente?
( Alan Turing)

[Mauro61Partecipante Mauro61]

Buongiorno, ecco il file di cui parlavo ieri.

Grazie

Allegati:

You must be logged in to view attached files.

[CianoPartecipante Ciano]

giorno a tutti

prova ad inserire nel tuo codice, dopo l'ultimo "Next"

queste righe di codice:

Set zona = Range([K4], [K4].End(xlDown))
[K4].End(xlDown).Select
ActiveCell.Offset(1, 0) = WorksheetFunction.Sum(zona)
ActiveCell.Offset(1, 0).Select
With ActiveCell.Font 
.Bold = True 
.size = “12” 
End With

buona giornata
Ciano

[CianoPartecipante Ciano]

Set zona = Range([K4], [K4].End(xlDown))
[K4].End(xlDown).Select
ActiveCell.Offset(1, 0) = WorksheetFunction.Sum(zona)
ActiveCell.Offset(1, 0).Select
 With ActiveCell.Font 
.Bold = True 
.size = “12” 
End With

riprovo ad inserire codice
Ciano

[Mauro61 Mauro61]

La prima riga dell'istruzione mi da errore.

[Mauro61 Mauro61]

Funziona grazie, ma vorrei se è possibile che a sinistra del risultato ci venga scritto "TOTALE".

Grazie

[CianoPartecipante Ciano]

ciao,

a dirlo prima? ... ahahahah

no problem, modifica questa riga aggiungendo "TOTALE"

ActiveCell.Offset(1, 0) = "TOTALE" & WorksheetFunction.Sum(zona)

ciao
Ciano

ps:se ancora non mi è riuscita la riga correttamente, il comando inizia dopo 1">

[CianoPartecipante Ciano]

riprovo ugualmente, sono abbastanza testardo e nonostante il video di "Albatros", seguito alla lettera, non mi escono le righe ... bho

ActiveCell.Offset(1, 0) = "TOTALE" & WorksheetFunction.Sum(zona)

scusatemi
Ciano

[albatros54Moderatore albatros54 Karma: 89 pts]

@ciano
per inserire il codice corettamente,vai nella scheda Visuale, selezioni il tasto "CODE" e si aprira' una finestra, inserisci il codice in questa finestra e dopo click sul pulsante Insert, sempre in fondo a questa finestra,nella#2747 l'ho inserito io

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente?
( Alan Turing)

[Autore]

Articoli