Ho questa macro che a volte si blocca, quindi non effettua i dovuti calcoli.
Chiedo gentilmente se qualcuno può verificare il perché:
- Codice: Seleziona tutto
Sub Statistica()
For k = 3 To 160
t = 0
n = Range("a" & k)
If n = 0 Then
Exit Sub
End If
Select Case n
Case Is <= 6
nt = 1
Case Is <= 12
nt = 7
Case Is <= 18
nt = 13
Case Is <= 24
nt = 19
Case Is <= 30
nt = 25
Case Is <= 36
nt = 31
End Select
For x = k - 1 To 2 Step -1
nc = Range("a" & x)
If nc >= nt And nc <= nt + 5 Then
t = nc
Exit For
End If
Next
If t <> 0 Then
Range("H" & t + 2).Select
ActiveCell.Offset(0, n + 1) = ActiveCell.Offset(0, n + 1) + 1
End If
Next
End Sub