............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro para combinaciones con repetición

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para combinaciones con repetición

Mensaje por Cabubi el Jue Jul 11, 2013 1:47 pm

Hola.

Necesitaba una macro para generar un patrón de combinaciones de números, y después de mucho intentarlo sin conseguir un resultado idóneo, ya que necesito repeticiones, encontré en este foro una se samros.

El problema es que hace combinaciones de 3 números y necesito que sean 5, le he estado dando vueltas y combinaciones a todas las variables y no doy con la exacta.


Gracias

Sub Combinaciones()
Dim fila As Long
Dim Enc As Integer
Enc = 0

For i = 0 To 10
For j = 0 To 10
For k = 0 To 10
' For l = 0 To 10
' For m = 0 To 10



If (i = j Or i = k Or j = k Or k = i) Or (i <> j Or i <> k Or j <> k Or k <> i) Then
' Aqui es donde no consigo combinar las variables

fila = Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).Row

Cells(fila, "a") = i
Cells(fila, "b") = j
Cells(fila, "c") = k
' Cells(fila, "c") = l
' Cells(fila, "c") = m


Enc = Enc + 1
Cells(12, 14) = Enc
Else
End If


' Next m
' Next l
Next k
Next j
Next i

End Sub

Cabubi

Masculino Cantidad de envíos : 1
Edad : 47
Ciudad - Pais : Madrid
Version de Excel : 2003
Fecha de inscripción : 11/07/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.