
Function FPBC(Data_, Categoria, Selezione)
Dim CNT
For CNT = 1 To Range("AreaDati").Rows.Count
If Categoria = Range("AreaDati").Cells(CNT, 2) And Data_ >= Range("AreaDati").Cells(CNT, 1) Then
Select Case Selezione
Case "PB"
FPBC = Range("AreaDati").Cells(CNT, 3)
Case "C"
FPBC = Range("AreaDati").Cells(CNT, 4)
Case "D"
FPBC = Range("AreaDati").Cells(CNT, 5)
Case "E"
FPBC = Range("AreaDati").Cells(CNT, 6)
End Select
End If
Next CNT
End Function |
