
Option Explicit Public Function ValutaCodCli(Codice As Range, Vcod As Variant, Cliente As Range, Ncli As Variant) As Long Dim i As Long, o As Long, nconta As Long Dim V_cod As Variant nconta = 0 o = 0 For Each V_cod In Codice If V_cod = Vcod Then i = V_cod.Row Exit For End If Next For Each V_cod In Cliente If V_cod = Ncli Then nconta = nconta + 1 o = o + 1 If o = i Then Exit For Next ValutaCodCli = nconta End Function |
