Hola a todos. He tratado de añadir una nueva condicion a mi codigo de combinaciones pero en cada intento, solo saco errores, o no produce ningun resultado.

Este codigo produce una lista de combinaciones de 6 numeros y puedo controlar cuantos primos y pares como tambien la suma de cada combinacion.

La condicion que deseo añadir ahora es Columna "Q" - col "L" si el resultado esta comprendido entre los numeros minimo de la celda E9 y el maximo de la celda E10 entonces mostrar la combinacion, de lo contrario no mostrarla.

La lista de combinaciones esta en el sheet2, y el modulo es el 1.

Quiero ser un poco mas claro, para poder recibir ayuda.

VARIABLES.

minV = valor minimo

maxV= valor maximo

Dif = diferencia

la locacion de las variables es

E9 = minV

E10=maxV

el proceso seria

Col ("Q") - Col ("L") = Dif

if Dif >= minV and Dif <=maxV then True.

es mas o menos la idea,

Gracias por la ayuda que me puedan brindar.

trato de subir mi archivo pero dice que es muy grande,

Option Explicit


Public sumArr As Long, oddNo As Long, evenNo As Long, oddNoReq As Long, LastRow As Long, _

evenNoReq As Long, minSumValue As Long, maxSumValue As Long, lRow As Long, testRow As Long, minMaxRn As Long

Sub Combinations()

Dim rRng As Range, p As Integer

Dim vElements, vresult As Variant

Dim q As Integer

Dim b As Double

Dim exceptrange As Range  'variable for exceptions


Set exceptrange = Range("D12:D22") 'INPUT SUM EXCEPTIONS


Set rRng = Range("A1", Range("A1").End(xlDown))  'INPUT NUMBERS TO PLAY


oddNoReq = Range("D7"): evenNoReq = Range("D6"): minSumValue = Range("D9"): maxSumValue = Range("D10")


lRow = 1: testRow = 1


p = 6: b = 1


       For q = 0 To p - 1

             b = b * (LastRow - q) / (p - q)

       Next q


Range("E33") = b  'OUTPUT TOTAL COMBINATIONS


vElements = Application.Index(Application.Transpose(rRng), 1, 0)


ReDim vresult(1 To p)

Columns("K").Resize(, p + 15).Clear


Call CombinationsNP(vElements, p, vresult, lRow, 1, 1, exceptrange)

Exit Sub


End Sub

Sub CombinationsNP(vElements As Variant, p As Integer, vresult As Variant, lRow As Long, iElement As Integer, iIndex As Integer, XceptValues As Range)

Dim i As Integer, k As Integer


    For i = iElement To UBound(vElements)

                  vresult(iIndex) = vElements(i)

            If iIndex = p Then   'P IS THE 6 NUMBERS OR SIX COLUMNS


               For k = LBound(vresult) To UBound(vresult)          'HERE IS PRODUCED THE COMBINATIONS

                       If vresult(k) Mod 2 <> 0 Then oddNo = oddNo + 1

                       If vresult(k) Mod 2 = 0 Then evenNo = evenNo + 1

                                                     sumArr = sumArr + vresult(k)

               Next k



                              If (oddNo = oddNoReq) And (evenNo = evenNoReq) _

                                                                 And (sumArr >= minSumValue) And (sumArr <= maxSumValue) _

                                                                 And (LoopRow(XceptValues, sumArr)) Then


                              lRow = lRow + 1

                              testRow = testRow + 1

                                Range("L" & lRow).Resize(, p) = vresult  'OUTPUT   COMBINATION MATCH CRITERIA

                                Range("S" & lRow) = sumArr                 'OUTPUT SUM BY ROW

                                   Range("W" & lRow) = Range("Q" & lRow) - Range("L" & lRow)

                                   Range("U" & lRow) = Range("O" & lRow) - Range("N" & lRow)

                                   Range("V" & lRow) = Range("P" & lRow) - Range("M" & lRow)

                              End If

                       End If


            If iIndex <> p Then

            Call CombinationsNP(vElements, p, vresult, lRow, i + 1, iIndex + 1, XceptValues)

            End If

        sumArr = 0

       evenNo = 0

       oddNo = 0


    Next i

End Sub[/CODE]

este es el codigo que necesita la condition mencionada