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

    • Muchas gracias a los dos. Ambas respuestas me han servido, pero por sencillez he optado por la de JSDJSD. No obstante, como comenté anteriormente, tengo que tener siempre activa una impresora (de tickets) entonces si le doy a la macro, al crearse el PDF lo hace en el formato de esa impresora. Por tanto, pensé en el inicio de ejecutar la macro poner:  Application.ActivePrinter = "Microsoft Print to PDF" Y una vez finalizada la macro, cambiar a la impresora de Tickets, pero me da error. ¿Hay alguna forma de conseguir esto que comento? Gracias.
    • Ya puedes descargar un Test de Excel, hecho con el cálculo iterativo de las fórmulas de Excel.¡Mentira!¡No lo vas a poder descargar!He incrustado el test en mi blog, y sólo vas a poder realizar el test en modo online, desde un navegador Web o con una tableta o un móvil Android o Mac.   Enlace aquí:https://pedrowave.blogspot.com/2021/10/test-de-excel-con-calculo-iterativo.html     Ventajas de tener el Test de Excel en la nube: No contiene macros VBA ni Office Script. Se actualiza automáticamente al ser un Excel en la Web. Siempre verás la versión más actualizada del Test. Todos los usuarios harán el Test en las mismas condiciones. Se puede hacer el Test en la nube, incluso sin tener Excel instalado. Puedes hacer comentarios al Test en la nube. Puedo actualizar el Test cuando quiera para añadir más preguntas. Puedo modificar su comportamiento, mejorar su uso y/o corregir errores. Puedo proteger mucho mejor mis derechos de autor, para que no se pueda copiar mi idea de este Test de Excel. Gracias anticipadas por seguirme, por tus reacciones y por tus comentarios.
    • Prueba esto:   Sub guarda_pdf()     ruta = ActiveWorkbook.Path & "\salida3.pdf"     ActiveSheet.PageSetup.PrintArea = "$A$2:$P$42"     Application.PrintCommunication = False     With ActiveSheet.PageSetup         .LeftHeader = ""         .CenterHeader = ""         .RightHeader = ""         .LeftFooter = ""         .CenterFooter = ""         .RightFooter = ""         .LeftMargin = Application.InchesToPoints(0)         .RightMargin = Application.InchesToPoints(0)         .TopMargin = Application.InchesToPoints(0)         .BottomMargin = Application.InchesToPoints(0)         .HeaderMargin = Application.InchesToPoints(0)         .FooterMargin = Application.InchesToPoints(0)         .PrintHeadings = False         .PrintGridlines = False         .PrintComments = xlPrintNoComments         .CenterHorizontally = True         .CenterVertically = True         .Orientation = xlLandscape         .Draft = False         .PaperSize = xlPaperLetter         .FirstPageNumber = xlAutomatic         .Order = xlDownThenOver         .BlackAndWhite = False         .Zoom = False         .FitToPagesWide = 1         .FitToPagesTall = 1         .PrintErrors = xlPrintErrorsDisplayed         .OddAndEvenPagesHeaderFooter = False         .DifferentFirstPageHeaderFooter = False         .ScaleWithDocHeaderFooter = True         .AlignMarginsHeaderFooter = True         .EvenPage.LeftHeader.Text = ""         .EvenPage.CenterHeader.Text = ""         .EvenPage.RightHeader.Text = ""         .EvenPage.LeftFooter.Text = ""         .EvenPage.CenterFooter.Text = ""         .EvenPage.RightFooter.Text = ""         .FirstPage.LeftHeader.Text = ""         .FirstPage.CenterHeader.Text = ""         .FirstPage.RightHeader.Text = ""         .FirstPage.LeftFooter.Text = ""         .FirstPage.CenterFooter.Text = ""         .FirstPage.RightFooter.Text = ""     End With     Application.PrintCommunication = True          ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _         ruta, Quality:=xlQualityStandard, _         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _         False End Sub  
    • Aquí adjunto un excel de prueba.  Lo que me gustaría es guardar las tablas (en la prueba están vacías) en una única hoja horizontal en PDF.  La opción de imprimir que comenta Exceler C no me sirve, ya que tengo que tener una impresora activa todo el rato y no puedo cambiarla por la de Microsoft Print To PDF. Gracias. Prueba.xlsm
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy