
=SOMMA(INDIRETTO("C"&CONFRONTA("OK";1:1;0)&":Z2")) |
Option Explicit Public Function Som_az(az As String, Rcel As Range) Dim celle As Range Dim conta As Double, cella As Variant conta = 0 Set celle = Rcel For Each cella In celle If cella.Value = az Then conta = 0 Else If IsNumeric(cella) Then conta = conta + cella.Value End If Next Set celle = Nothing Som_az = conta End Function |
