Oi, pessoal.
Eu tentei criar uma função VBA que atende a essas condições conforme o script, só que por algum motivo ela não funciona, e como estou trabalhando com uma base de dados longa, optar pelo VBA tem sido a melhor opção.
Function crit(duration)
If duration < 21 Then
crit = "P1"
ElseIf duration > 21 Then
crit = "P1 OU P2"
ElseIf duration > 42 Then
crit = "P2 OU P3"
ElseIf duration > 63 Then
crit = "P3 OU P4"
ElseIf duration > 126 Then
crit = "P4 OU P5"
ElseIf duration > 252 Then
crit = "P5 OU P6"
ElseIf duration > 504 Then
crit = "P6 OU P7"
ElseIf duration > 756 Then
crit = "P7 OU P8"
ElseIf duration > 1008 Then
crit = "P8 OU P9"
ElseIf duration > 1260 Then
crit = "P9 OU P10"
ElseIf duration < 2520 Then
crit = "P10"
Else
crit = "--"
End If
End Function
Quem conhecer uma opção melhor fique a vontade