Te anexo la macro, son más de 2 millones de combinaciones que se tienen que revisar, puede tardar bastante.
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: comb
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub comb()
'Por.DAM
x = 40
f = 2
c = 2
Cells.Clear
For i = 1 To x
For j = i + 1 To x
For k = j + 1 To x
For l = k + 1 To x
For m = l + 1 To x
For n = m + 1 To x
f = f + 1
Cells(1, 1) = f
ws = i + j + k + l + m + n
If ws = 125 Then
Cells(c, 1) = ws
Cells(c, 2) = i
Cells(c, 3) = j
Cells(c, 4) = k
Cells(c, 5) = l
Cells(c, 6) = m
Cells(c, 7) = n
c = c + 1
End If
Next
Next
Next
Next
Next
Next
End Sub
En la celda A1 te pone el número de combinación que lleva, recuerda que son más de 2 millones.
En las columnas B a la G, te pone los números que suman 125
Saludos. DAM
Si es lo que necesitas.
Hola Dam, necesito que me ayudes un poco más. Justo estaba necesitando una macro como esta, pero no quiero ver todas las combinaciones. Me podrías decir en que parte del algoritmo tendría que poner que solo me muestre hasta 5 números pares de los 6. Todos esto es para un trabajo de la facultad. Desde ya mil gracias. Saludos!! - Naty Engler
Hola Dam, necesito que me ayudes un poco más. Justo estaba necesitando una macro como esta, pero no quiero ver todas las combinaciones. Me podrías decir en que parte del algoritmo tendría que poner que solo me muestre hasta 5 números pares de los 6. Todos esto es para un trabajo de la facultad. Desde ya mil gracias. Saludos!! - Naty Engler