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 Sub

Gracias. MG

1

1 respuesta

Respuesta
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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas