vba sommare numeri in riga

[giorgioa]

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]

Non trovo dove allegare il file di esempio

[giorgioa]

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

[Anthony47]

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

Ciao

[aggittoriu]

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

[Anthony47]

Meglio ragionare col file (vedi messaggio di poco fa)

[giorgioa]

Si avete perfettamente ragione

solo non trovo la voce allega file/allegato

[giorgioa]

[giorgioa]

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]

aggiungo che se la somma dei 2 numeri supera 90

sottrarre alla somma 90

[aggittoriu]

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ù.

[Anthony47]

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

[giorgioa]

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]

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

[Anthony47]

Si, l'avevo visto che l'interfaccia di Filedropper e' cambiata, devo aggiornare le istruzioni...

[giorgioa]

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

però vorrei capirci ugualmente

Grazie

[aggittoriu]

giorgioa io vorrei capire cosa vuoi capire.

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.