
=CERCA.VERT($A2;$A$2:$B$10;2;FALSO) |
Sub zona_zero()
Dim somma, flag
somma = 0
flag = 0
For i = 2 To 100
If Cells(i, 2) = 0 Then
Select Case flag
Case 0
flag = 1
Case 1
flag = 0
End Select
End If
If flag = 1 Then
somma = somma + Cells(i, 2)
End If
Next i
Range("E2") = somma
End Sub |
Sub zona_zero()
Dim X, somma, flag
X = 0 ''posizione ultimo 0
somma = 0
flag = 0
For z = Range("B" & Rows.Count).End(xlUp).Row To 1 Step -1
X = z
If Cells(z, 2) = 0 Then Exit For
Next z
For i = 1 To X
If Cells(i, 2) = 0 Then
Select Case flag
Case 0
flag = 1
Case 1
flag = 0
End Select
End If
If flag = 1 Then
If IsNumeric(Cells(i, 2)) Then somma = somma + Cells(i, 2)
End If
Next i
Range("D2") = somma
End Sub
|
