Modificar macro de combinaciones de números
Necesito cambiar una macro que hace combinaciones de 4 números para combine 6 en lugar de 4.
Te envío la macro anexa
Sub Combinacion()
i = 1
nGrupo = 0
For b1 = 1 To 61
For b2 = b1 + 1 To 62
For b3 = b2 + 1 To 63
For b4 = b3 + 1 To 64
Cells(i + 2, 1 + nGrupo) = b1 & "-" & b2 & "-" & b3 & "-" & b4
Range("A1") = i
'Aqui le decimos cuando llega a 10000 combinaciones se genera otro grupo al lado.
If i = 10000 Then
nGrupo = nGrupo + 1
i = 1
Else
i = i + 1
End If
Next
Next
Next
Next
End SubGracias. MG
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro actualizada
Sub Combinacion()
i = 1
nGrupo = 0
For b1 = 1 To 61
For b2 = b1 + 1 To 62
For b3 = b2 + 1 To 63
For b4 = b3 + 1 To 64
For b5 = b4 + 1 To 65
For b6 = b5 + 1 To 66
Cells(i + 2, 1 + nGrupo) = b1 & "-" & b2 & "-" & b3 & "-" & b4 & "-" & b5 & "-" & b6
Range("A1") = i
'Aqui le decimos cuando llega a 10000 combinaciones se genera otro grupo al lado.
If i = 10000 Then
nGrupo = nGrupo + 1
i = 1
Else
i = i + 1
End If
Next
Next
Next
Next
Next
Next
End Sub.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
