Jump to content

Combinacion de datos para calcular la cantidad optima que se tiene que comprar (minimizar el residuo).


Andre99

Recommended Posts

Buenos dias, tardes, noches.

 

Ante todo muchas gracias por leer este tema que es muy importante para mi. Soy principiante y me encuentro en un problema muy complejo. 

Mi pregunta/problema es el siguiente:

En la empresa donde trabajo tengo que comprar "x" palos de alumino. Estos palos son adquiridos con una longitud de 3000 milimetros (osea 3 metros). Lo que se hace con estos palos son estructuras y estas se construyen con diferentes medidas de palos.

Me explico mejor con un ejemplo simple: La estructura o base que se construye se tiene que hacer con: n.1 palo de 1400mm + n.2 palos de 1600 milimetros + n.1 palo de 900 milimetros + n.4 palos de 300milimetros.

Cuando se quiere hacer, por ejemplo, el palo de 1400mm una ves cortado tendria un residuo final de 1600mm del primer palo de 3000mm utilizado. 

Si corto el palo para hacer los dos palos de 1600mm tendria que utilizar dos palos y obtendria un residuo final de 1400 por cada palo que he utilizado. Este residuo si es mayor que el siguiente palo que se tiene que cortar, como el de 900, puede ser utilizado.

Entonces como lo resolverian para saber al final cuantos palos se tendria que comprar para tener el menor residuo posible? 

Que funciones utilizarian para hacer estas combinaciones osea buscar en la posicion siguiente si el residuo que he generado con el primer palo cortado es util o no para el siguiente palo que tengo que cortar.

Que funcion utilizarian para buscar el residuo util osea mayor (de arriba hacia abajo) del palo que tengo que hacer.

GRACIAS DE ANTEMANO Y CUALQUIER OPINION/PREGUNTA/SUGERENCIA ESCRIBANLO.

Problema.xlsx

Link to comment
Share on other sites

Gracias Laura por tu sugerencia.

he visto el post y si en efecto es casi lo q busco aunque encuentro muchos errores en la macro que se usa. Quiero decir q cuando meto los datos necesarios hay campos vacios y me da un resultado poco exacto. Pecado que el post esté ya cerrado sino preguntaría allí. 
De todas formas ya es un avanze y agradezco tu apoyo. 
 

espero otras respuestas y quizas si alguien se anime a crear una macro o como lo hizo el experto del post usando la simulacion de montecarlo. 

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila     Range("O" & fila) = Range("H" & fila) & Range("I" & fila) Next fila End Sub Por favor si me podria dar una ayuda estare muy agradecido. Adjunto el archivo Consolidado.xlsm
    • Con la grabadora Pero son demasiadas filas. Sub Macro1() Range("C3:I7").Select Selection.Copy Range("C12").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Range("C21").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Hace tiempo que no entro en el foro y no veo la opcion de subir libro. Un Saludo.
    • Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro. Gracias.
    • Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then    Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
    • Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy