Este fórum está sendo desativado

[creocatia3d]

oi amigos
tenho este codigo abaixo e queri somar estas combinações

Sub Combinações(Optional v As Variant) 'nome da macro é combinação setando a matriz v como variante

Dim n As Integer
Dim m As Integer 'seta a quantidade elementos como número inteiro
Dim soma As Integer

n = Application.CountA(Range("A2:Y2")) 'conta quantidade de números para gerar combinações

If IsMissing(v) Then 'v sendo ausente executa o redimensionamento da matriz na quantidade máxima de 1000 elementos

ReDim v(1000) As Variant
For i = 0 To n - 1 'inicia a captura dos números digitados para a matriz
v(i) = Cells(2, i + 1)
soma = soma + v(i)

Next
End If
ReDim Preserve v(1 To n) 'redimensiona a matriz para a quantidade máxima de elementos digitados
m = [a4] 'alimente a variável m com a a quantidade de elementos em cada combinação

ss = "" 'variável ss serve para fazer a junção da combinação
Range("5:5").ClearContents 'seleciona o cabeçalho das combinações e apaga
For i = 1 To m
Cells(5, i) = "Nº " & i 'cria novos cabeçalhos com a quantidade exata dos elementos
' soma = soma + Cells(6, i)
Next
Cells(5, i) = "Junção"
Cells(5, i + 1) = "Soma"
Cells(5, i + 2) = "QdadePar"
Cells(5, i + 3) = "QdadePrimo"
Cells(5, i + 4) = "Fibbonacci"
Cells(5, i + 5) = "SomaPar"
Range("A6").Select 'marca a celula inicial que receberá os dados
Comb2 n, m, 1, "", v 'chama a macro Comb2 setando a algumas variáveis e mantendo outras
End Sub


Criei este campos acima: juncao, soma, qdadepar..... mas nao consegui colocar o valor inicial da soma
Podem dar uma luz?
obrigado

[babdallas]

Anexa um exemplo.