
Dim sel As Range
valore = 700
k = Range("g" & Rows.Count).End(xlUp).Row - 2
For i = 1 To k
If Cells(i, 7) >= valore Then
If sel Is Nothing Then
Set sel = Cells(i, 7)
Else
Set sel = Union(sel, Cells(i, 7))
End If
End If
Next
For j = 1 To 8
somma = 0
For Each el In sel
somma = somma + Cells(el.Row, j)
Next
Cells(k + 2, j) = somma
Next
sel.Select |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
