será que alguem pode testar se essa função que dá o csn de uma combinação está retornando o valor correto? Function cobinaçãoCSN(combinação As Range, valor_max) If IsArray(combinação) Then arr = combinação '.Value2 c = UBound(arr, 2) If UBound(arr, 1) > 1 Then cobinaçãoCSN = "apenas uma linha por combinação": Exit Function Dim i As Long Dim b As Double, dd As Double b = 1 For i = 0 To c - 1 b =