DJOrka

Eu tenho uma planilha com os seguintes valores na coluna B: 11 41 21 18 42 27 15 30 36 29 30 6 E com o codigo anexado vou combinando esses valores desde que a soma deles seja maior ou igual a determinado valor X. A macro exibe as combinaçoes, ok. Eu sei que para x=44 dá 12 combinaçoes porque executei a macro. Mas eu precisava saber apenas quantas combinações foram conseguidas sem mostra-las. Alguem sabe de maneira de fazer isso? Sub NumComb() Workbooks("COM.xlsm").Sheets("Plan2").Activate Dim m, n, x As Integer x = Range("E5") For m = 1 To 12 For n = 1 To 12 If Cells(m, 2) + Cells(n, 2) >= x Then Range("C" & m) = Cells(m, 2) & " " & Cells(n, 2) End If Next n Next m End Sub