Condividi:        

vba sommare numeri in riga

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

vba sommare numeri in riga

Postdi giorgioa » 13/02/22 15:03

Salve a tutti

cortesemente un aiuto in VBA

vorrei sommare dei numeri da colonna C a colonna G

non la somma in totale ma per riga tra un numero e l'altro con la condizione

se la somma tra c6 e d6 supera 90 eliminare dalla somma 90

Essendo 5 numeri per ogni riga dovrebbero esserci 10 numeri e collocare

i relativi risultati da h6 in poi

nel file che allego ho posto in una riga la combinazione esempio la somma tra C6+d6

se il calcolo non dovesse rispettare la sequenza delle lettere indicate non ha importanza

Quelle lettere che si riferiscono al calcolo delle colonne è solo un esempio

Grazie dell'aiuto allego il file
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Sponsor
 

Re: vba sommare numeri in riga

Postdi giorgioa » 13/02/22 15:06

Non trovo dove allegare il file di esempio
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: vba sommare numeri in riga

Postdi giorgioa » 13/02/22 15:26

Non trovo dove allegare il file di esempio

eventualmente fosse sufficiente riporto alcuni dati

c6=08;d6=71;e6=85;f6=51;g6=04 somma =08+71=80;08+85=93-90=3;08+51=59;08+04=12;71+85=156-90=66;71+51=122-90=32; ecc
e continuare con le righe successive
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: vba sommare numeri in riga

Postdi Anthony47 » 13/02/22 15:49

Credo che un file dimostrativo aiuti a capire la richiesta.
Per le istruzioni:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19245
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vba sommare numeri in riga

Postdi aggittoriu » 13/02/22 15:50

Questo?

Codice: Seleziona tutto
Sub Macro()

    Range("I6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-6]+RC[-5])-90*INT((RC[-6]+RC[-5])/90)"
    Range("J6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-7]+RC[-5])-90*INT((RC[-7]+RC[-5])/90)"
    Range("K6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-8]+RC[-5])-90*INT((RC[-8]+RC[-5])/90)"
    Range("L6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-9]+RC[-5])-90*INT((RC[-9]+RC[-5])/90)"
    Range("M6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-9]+RC[-8])-90*INT((RC[-9]+RC[-8])/90)"
    Range("N6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-10]+RC[-8])-90*INT((RC[-10]+RC[-8])/90)"
    Range("O6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-11]+RC[-8])-90*INT((RC[-11]+RC[-8])/90)"
    Range("P6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-11]+RC[-10])-90*INT((RC[-11]+RC[-10])/90)"
    Range("Q6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-12]+RC[-10])-90*INT((RC[-12]+RC[-10])/90)"
    Range("R6").Select
    ActiveCell.FormulaR1C1 = "=(RC[-12]+RC[-11])-90*INT((RC[-12]+RC[-11])/90)"
End Sub
aggittoriu
Utente Senior
 
Post: 158
Iscritto il: 24/06/14 08:49

Re: vba sommare numeri in riga

Postdi Anthony47 » 13/02/22 15:52

Meglio ragionare col file (vedi messaggio di poco fa)
Avatar utente
Anthony47
Moderatore
 
Post: 19245
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vba sommare numeri in riga

Postdi giorgioa » 13/02/22 21:38

Si avete perfettamente ragione

solo non trovo la voce allega file/allegato
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: vba sommare numeri in riga

Postdi giorgioa » 13/02/22 23:05

Immagine
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: vba sommare numeri in riga

Postdi giorgioa » 13/02/22 23:09

Salve non ci ho capito niente non so con questa immagine

se mi potete aiutare.

per riga sommare i numeri a 2 a 2 che combinati fra essi darebbero 10 somme

e farlo rigo dopo rigo
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: vba sommare numeri in riga

Postdi giorgioa » 13/02/22 23:11

aggiungo che se la somma dei 2 numeri supera 90

sottrarre alla somma 90
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: vba sommare numeri in riga

Postdi aggittoriu » 13/02/22 23:51

Ma l'hai provata la macro che ti ho dato?

Ci aggiungi sotto
Codice: Seleziona tutto
    Range("I6:R6").Select
    Selection.AutoFill Destination:=Range("I6:R" & Range("C" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault

così ti trascina le formule giù.
aggittoriu
Utente Senior
 
Post: 158
Iscritto il: 24/06/14 08:49

Re: vba sommare numeri in riga

Postdi Anthony47 » 13/02/22 23:56

Prova con questa macro:
Codice: Seleziona tutto
Sub Somma90()
Dim I As Integer, J As Integer, K As Integer, L As Integer
Dim R As Integer
'
For I = 6 To Cells(Rows.Count, "C").End(xlUp).Row
    L = 9
    For J = 1 To 4
        For K = J + 1 To 5
            R = Cells(I, J + 2) + Cells(I, K + 2)
            If R > 90 Then R = R - 90
            Cells(I, L) = R
            L = L + 1
        Next K
    Next J
Next I
End Sub

Va inserita in un Modulo standard del vba

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19245
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vba sommare numeri in riga

Postdi giorgioa » 14/02/22 00:28

Salve agittoriu

ho provato la tua macro
fa il calcolo di una sola riga
e lo fa in formule

Però siccome mi è nuovo questo modo vorrei capire il meccanismo.

Domando se per ogni riga si dovrebbe compilare tutto quel codice?
Se per esempio completi la macro per tutte le righe.

Grazie
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: vba sommare numeri in riga

Postdi giorgioa » 14/02/22 00:39

Salve Anthony47

la macro che mi hai scritto è perfetta

non so se devo aggiungere RISOLTO

Intanto ti ringrazio
NB da filedropper
Ho cercato di caricare il file
chiede di caricare ma dopo non esce l'URL
ho perso almeno mezzora alla fine ho deciso
con l'immagine.
Vorrei dire che non mi esce l'immagine UPLOAD
me ne esce un'altra dove mi dice di caricare
Questo per poter allegare un file per un'altra richiesta.
Non ora
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: vba sommare numeri in riga

Postdi Anthony47 » 14/02/22 00:46

Si, l'avevo visto che l'interfaccia di Filedropper e' cambiata, devo aggiornare le istruzioni...
Avatar utente
Anthony47
Moderatore
 
Post: 19245
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vba sommare numeri in riga

Postdi giorgioa » 14/02/22 00:47

OK aggittoriu non avevo inserito nella tua macro anche l'altra parte di codice

però vorrei capirci ugualmente

Grazie
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: vba sommare numeri in riga

Postdi aggittoriu » 14/02/22 01:10

giorgioa io vorrei capire cosa vuoi capire. :D

Io sono scarso col vba. Quindi mi scrivo le formule, poi le registro, se le voglio in vba. Infine, se non mi interessano le formule ma voglio solo i valori, tramite vba seleziono tutte le formule, copio e incollo i valori.
aggittoriu
Utente Senior
 
Post: 158
Iscritto il: 24/06/14 08:49


Torna a Applicazioni Office Windows


Topic correlati a "vba sommare numeri in riga":


Chi c’è in linea

Visitano il forum: Marius44 e 31 ospiti