-in un modulo del vba (es Modulo1) inserisci questo codice
- Codice: Seleziona tutto
Option Base 1 ' !! <<< !! QUESTA VA IN TESTA AL MODULO
Function TonyPers(Interv, Soglia) As Integer
'Conta da sx di Interv quanti valori sono superiori a Soglia
'es: =TonyPers(B10:K10;40)
'
Varr = Interv
For I = UBound(Varr, 2) To 1 Step -1
If Varr(1, I) > Soglia Then
TonyPers = TonyPers + 1
Else: Exit Function
End If
Next I
End Function
Poi, con riferimento allo screenshot pubblicato nel penultimo post, in P2 inserisci la formula
- Codice: Seleziona tutto
=tonypers(B2:K2;40)
Poi copi P2 verso il basso fino a quando serve.
Ciao.