Alternatives SUMPRODUCT ISO

[PcMax]

I created a formula for a search of the current week, I ask if there are alternatives


=SUMPRODUCT((YEAR($C$3:$AAC$3)=YEAR($B$14))*(ISOWE EKNUM($B$14)=$B$15)*(C4:AAC4="K"))
Thank you for your cooperation

[snb]

=weeknum(today();21)

or

Function F_ISOweeknumber(d_01)
F_ISOweeknumber=Format("ww",d_01-WeekDay(d_01,2)+4,2,2)
End Function

[PcMax]

thank you snb

I used the formula
=weeknum(today();21) Test Ok


Otherwise the function:
Function F_ISOweeknumber(d_01)
F_ISOweeknumber=Format("ww",d_01-WeekDay(d_01,2)+4,2,2)
End Function
I could not use it, I think for local language problems

I successfully tested

Public Function fSettimana(ByVal v As Variant) As Long
Application.Volatile
fSettimana = Format(DatePart("ww", v, , 0), "ww", vbMonday, vbFirstJan1)
End Function


I was looking for the formula I modified in this way:
=COUNTIF(OFFSET(TURNI!$A$4:$A$9,0,MATCH(B14,TURNI! $A$3:$ZZ$3,0)-WEEKDAY(B14,2),100,7),"K")
Total count voices of the week