Moderatori: Anthony47, Flash30005
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
Range("I6:R6").Select
Selection.AutoFill Destination:=Range("I6:R" & Range("C" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
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
Torna a Applicazioni Office Windows
Ordinare colonne sulla stessa riga se stesso contenuto Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Aumenta altezza riga in base valore cella Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 47 |
SOMMARE DUE VALORI IN DUE COLONNE DIVERSE Autore: millennia80 |
Forum: Applicazioni Office Windows Risposte: 1 |
Macro sposta riga se data in colonna più vecchia di 3 mesi Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 23 |
Visitano il forum: Nessuno e 11 ospiti