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

Combinaciones de medidas

Ver el tema anterior Ver el tema siguiente Ir abajo

Combinaciones de medidas

Mensaje por samros el Sáb Mayo 17, 2008 1:59 pm

Hola y buen dia a todos.

Soy novato en la programacion y me encuentro con este dilema que no he podido resolver.

Tengo una tabla con varias medidas llamadas anchos de rollos y que puede variar la cantidad de items de 2 hasta 10

Ejemplo de 4 items
36.25
42.00
53.00
21.65
Quiero hacer permutas entre estos numeros multiplicandolos por hasta 6 (cortes) acumulados

Ejemplo

36.25 * 2 = 72.5
42.00 * 2 = 84.0

Total 4 Cortes (No mas de 6)
Total de ancho 156.5

Otro ejemplo

36.25 * 2 = 72.5
42.00 * 1 = 42
21.65 * 2 = 43.3

Total 5 Cortes (No mas de 6)
Total de ancho 157.8

La idea es vaciar en una tabla todas las posibles combinaciones que se generen.
Agradezco si alguien me puede ayudar en tanto prometo seguir intentando e investigando.

Saludos desde Mexico.
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 40
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones de medidas

Mensaje por GalileoGali el Sáb Mayo 17, 2008 4:01 pm

Ante todo: Bienvendio a este foro!!
En el archivo adjunto puedes encontrar uan posible solucion:
primero pueblo de valores con las posibles combinaciones de tus medidas, que van como encabezamientos., luego recurro a la Funcion Matricial Mmult

[Tienes que estar registrado y conectado para ver este vínculo]

Código:
Sub poblar()
Dim i As Integer, j As Integer, k As Integer, g As Integer
Dim fila As Long

Range("A:F").ClearContents

For i = 0 To 6
    For j = 0 To 6
        For k = 0 To 6
            For g = 0 To 6
               
                        fila = Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).Row
                        If (i + j + k + g) <= 6 Then
                            Cells(fila, "a") = i
                            Cells(fila, "b") = j
                            Cells(fila, "c") = k
                            Cells(fila, "d") = g
                        End If
            Next g
        Next k
    Next j
Next i
End Sub
Ahi va el codigo. Ubicacion: Modulo de la hoja1


Última edición por GalileoGali el Dom Mayo 18, 2008 2:44 pm, editado 1 vez

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones de medidas

Mensaje por samros el Dom Mayo 18, 2008 2:19 pm

Muchisimas gracias GalileoGali esto me aproximo bastante a la respuesta, el resto es solamente filtrar aquellos que cumplan con el criterio de minimo 150 y maximo 160 de ancho total.

Se puede cerrar el hilo.

Saludos.
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 40
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones de medidas

Mensaje por GalileoGali el Dom Mayo 18, 2008 2:45 pm

Cambie el archivo en el vinculo anterior, ahora con un Filtro avanzado

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones de medidas

Mensaje por samros el Lun Jun 09, 2008 2:58 pm

GalileoGali, Saludos y buen día.

Disculpa las tantas molestias.
Una pregunta.

Sobre la forma de trabajar de este modulo es perfecta para calcular 5 o hasta 7 diferentes items, pero cuando quiero trabajar con mas de 10 el bucle tiene que hacer millones de calculos y simplemente terminaria en dias o meses, que recomiendas en este caso.

Mi necesidad es calcular por el momento hasta 15 items diferentes pero esto podria incrementarse.

Gracias.
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 40
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones de medidas

Mensaje por GalileoGali el Lun Jun 09, 2008 8:33 pm

Puedes intentar con SOLVER...
PERO ESO REQUIERE TIEMPO, CONOCIMIENTOS y paciencia, de lo primero carezco, de lo segundo creo tener y de lo ultimo, tendras que ocuparte vos...

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones de medidas

Mensaje por samros el Mar Jun 10, 2008 10:28 am

Gracias GalileoGali, creo que esta es una buena oportunidad de entender SOLVER y esta claro que no todo tiene que ser solucionado por ti, hay que intentarlo nosotros.

Saludos y quedo muy agradecido.
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 40
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones de medidas

Mensaje por Contenido patrocinado


Contenido patrocinado


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.