Here’s a program I wrote some time ago to determine how much stock (such as lumber) of a particular length you would need to get a certain number of cut stock. It sorts the cuts from longest to shortest and uses up the stock in that order. That may not be the most efficient use of stock, but I can’t think of a better way.
Dim CutArr() As Double, DetStk() As Double
Dim R As Long
Dim lRowCount As Long
Dim i As Long, j As Long, k As Long
Dim temp As Double, temp2 As Double
Dim TotStk As Double, TmpStk As Double
Dim MinCut As Double, TotCut As Double
Dim dStk As Double
Dim rInpStk As Range
Dim rInputCuts As Range
Dim rLastEntry As Range
Dim AllZero As Boolean
Dim sMsg As String, sTtl As String
Dim cell As Range
Set rLastEntry = wshCuts.Range("A" & wshCuts.Rows.Count).End(xlUp)
Set rInpStk = wshCuts.Range("InpStock")
'Make sure cuts have been entered
If rLastEntry.Address = "$A$1" Then
Set rInputCuts = wshCuts.Range("A2", rLastEntry.Address).Resize(, 2)
lRowCount = rInputCuts.Rows.Count
'Check for non-numeric data and negative numbers
For Each cell In rInputCuts.Cells
If Not IsNumeric(cell.Value) Then
MsgBox "Your selected range contains non-numeric data"
If cell.Value < 0 Then
MsgBox "All values must be positive"
'Make sure stock length was entered
If IsEmpty(rInpStk.Value) Or Not IsNumeric(rInpStk.Value) Or rInpStk.Value <= 0 Then
MsgBox "Stock length must be a positive number"
dStk = rInpStk.Value
ReDim CutArr(lRowCount - 1, 1)
'Fill array with cuts
For i = 0 To UBound(CutArr, 1)
For j = 0 To UBound(CutArr, 2)
CutArr(i, j) = rInputCuts.Cells(i + 1, j + 1)
'Sort array descending on cut length
For i = 0 To UBound(CutArr, 1) - 1
For j = i + 1 To UBound(CutArr, 1)
If CutArr(i, 1) < CutArr(j, 1) Then
temp = CutArr(j, 0)
temp2 = CutArr(j, 1)
CutArr(j, 0) = CutArr(i, 0)
CutArr(j, 1) = CutArr(i, 1)
CutArr(i, 0) = temp
CutArr(i, 1) = temp2
'Make sure all cuts can be made with stock length
If CutArr(0, 1) > dStk Then
MsgBox "At least one cut is greater than the stock length."
MinCut = CutArr(UBound(CutArr), 1)
TmpStk = dStk
TotCut = 1 'set > 0 to start loop, TotCut is
'recalced within loop
i = 0
k = 0
'TotCut is sum of first dimensions in array
Do While TotCut > 0
'MinCut is smallest 2nd dimension where 1st
'dimension is > 0
Do While TmpStk >= MinCut
If CutArr(i, 1) <= TmpStk And CutArr(i, 0) > 0 Then
'Reduce current stock length by cut length
TmpStk = TmpStk - CutArr(i, 1)
'Reduce number of current cut by 1
CutArr(i, 0) = CutArr(i, 0) - 1
'Store current cut length
ReDim Preserve DetStk(1, k)
DetStk(0, k) = TotStk + 1
DetStk(1, k) = CutArr(i, 1)
k = k + 1
'Move to next cut length
i = i + 1
AllZero = True
For j = LBound(CutArr) To UBound(CutArr)
If CutArr(j, 0) > 0 Then
MinCut = CutArr(j, 1)
AllZero = False
'If there are no cut pieces remaining, get out
If AllZero Then
'Reset TmpStk and add one to TotStk
TmpStk = dStk
TotStk = TotStk + 1
'Reset i to row of largest 2nd dimension whose
'1st dimension Is Not zero
For j = UBound(CutArr) To LBound(CutArr) Step -1
If CutArr(j, 0) <> 0 Then
i = j
'Reset TotCut to sum of all 1st
TotCut = 0
For j = LBound(CutArr) To UBound(CutArr)
TotCut = TotCut + CutArr(j, 0)
'Output totals to a message box
sTtl = "Total stock at " & dStk & " = " & TotStk
sMsg = "Board No." & vbTab & "Cut Length" & vbCrLf
For k = LBound(DetStk, 2) To UBound(DetStk, 2)
sMsg = sMsg & DetStk(0, k) & vbTab & vbTab _
& DetStk(1, k) & vbCrLf
MsgBox sMsg, vbOKOnly, sTtl
I should really put the output on a sheet instead of a message box so it could be printed. I started to do something similar for square feet instead of linear feet (like plywood instead of 2×4s), but it was way too hard. You can download BoardFeet.zip.
42 thoughts on “Cutting Stock Lengths”
Dick, this could be very useful, but what about the amount of wood you lose with each cut? Needs to have a place to put how wide the saw blade is to account for this in each cut you make on a board. As you said it would be better to have the results put on a sheet and maybe even the “waste” that is left in each board, just a thought
The width of a saw blade? What are you making, Scandinavian furniture? It might be good to have a generic waste factor in there. The user could enter either a percentage or a hard measurement and that could be added to each cut, or rather subtracted from the remaining stock after each cut.
I thought about tracking the waste, but never got around to doing it.
No am not making Scandinavian furniture but with a 1/8? saw blade and if you have 36? stock and want three 12? boards you would end up with two 12? and one 11 3/4?. If you are making anything, except maybe “rough” framing a house that is a big deal. And of course the longer the stock and the more cuts you make or a wider saw blade, this becomes more of a problem.
Measure once, cut twice, swear three times…
Back in my University days our Operational Research Mathematics class (Dr Lynn was our lecturer if I remember correctly) was set the task of using linear programming and/or trim loss theory to work out how to minimise waste for a carpet manufacturer.
Obviously they sold rolls of carpet in various lengths and widths but cut from one roll.
I did come up with a neat solution in Algol but have never had the need to use it again (or translate it into any other language).
Professor George B. Dantzig invented the the “simplex method” and “linear programming” whilst at Stanford, so if you need more information look it up on the web!
Alternatively, email me and I might be able to find the Algol program!!!
Hi Simon. I would be interested in your Algol solution. I happen to like OR when I was in school and am curious to see your solution. I hope you can find it and share it. Thanks for your time.
Hello, first time here. Dick Kusleika – I work in the steel fabrication industry and could use your stock cutting VBA to some degree. What I would like to know is would it take much to have it tell me which pieces of which length to cut from each stock length. i.e., 2 pieces 18′ 6? long to cut from a 40′ 0? stock length piece. I would be dealing with hundreds of pieces of varying lengths from 1′ 0? to 58′ 0? being cut from 20′ 0?, 40′ 0? and 60′ 0? (various quantities of each) stock lengths as well as several random stock lengths left over from previous jobs.
Thank you, Ed
Hello, first time here. Dick Kusleika – I work in framing industry and am very happy to find your cutting stock length program. Would you consider adding a few modifications to better fit my needs? I would be grateful and more than happy to pay you for your time.
good day. i cant identify which cells or group of cell you renamed. like wshcuts, rinpstok, rinpcuts. please advice.
Looks like we all like this example and all of us want something more.
Thanx anyway for this….
Very Useful. I’m curious if it would be easy to insert a 3rd row in addition to quantities and sizes that shows where the specific cut is to be installed. I.E. the first cut would have 4 cuts for window 1 and 3 for window 2…
Hello Dick Kusleika,
I am 16 year and as student that love VBA i follow all your steps… and see you as my master.
I am for years very interesting in the Cutting Stock problem and find yours one of the best i ever saw!
But i could never figure out how to make it working by more stock with different lengths.
If one day you got little time… can you please show it?
Thank you to read this and for your hard work!
I was wondering if you have a functioning copy of this you could send through, the zip download is no longer working. I would love to see the construction of the excel file.
The link is fixed. Thanks for letting me know.
That takes me back many years to a time when I was working with a mainframe Linear Programming system (MPSX) with mixed inter options (solving problems for Roger Govier amongst others!). The optimisation of cut stock can be formulated as an Integer programming problem.
You could probably find the optimum solution using Solver
There seems to be at least one Excel addin that targets the problem:
Hola, segun veo este metodo no funciona para unos cortes de 1 de 4000,1 de 3000, 2 de 1500 y 2 de 1000 . largo de barra 6000.
Si tienes la solucion a tal fin agradeceria que me la pases.
Funciono para mi ¿Qué error estás viendo? (It worked for me. What error are you seeing?)
A esos cortes los puedes sacar en 2 barras.
Sí, ya veo. El algoritmo de optimización no es muy bueno. Siempre lleva el corte más grande que se ajuste.
I made a new macro that solves this particular problem. But there are a few caveats. It’s not very well tested, so don’t use it in production. I didn’t do a lot of the error checking that it’s in the original. And it tests every possible combination so it will be really slow if you have more than a few cuts.
Hice una nueva macro que resuelve este problema en particular. Pero hay algunas advertencias. No está muy bien probado, así que no lo uses en producción. No cometí muchos errores al comprobar que está en el original. Y prueba todas las combinaciones posibles, por lo que será muy lento si tiene más de unos pocos cortes.
La verdad que te pasaste Dick Kusleika , esta muy bien…. Te consulto es posible hacer algo que en verdad tome muchos cortes y optimicen en un stock con medidas dinámicas? He estado buscando mucho este tema y parece que es algo muy complejo de realizar,por lo que me gustaría se es posible que me des una mano.
Desde ya muchísimas gracias y un abrazo enorme.
He visto un metodo muy bueno hecho en Python pero no lo puedo pasar a visual por lo que si tu sabes te lo agradeceria.
This is a shot in the dark but seeing that this thread has had so much success I thought you might have some advice for me with a wood board I’m trying to cut. I know that excel must be able to do this but I have no idea how.
I have a number of wood boards that I want to cut into a lot of different sizes that I need for my project. I have a list of the exact sizes I need to cut but want to cut them out as efficiently as possible so as not to waste any board.
Any tips on how to get this done?
Thanks so much in advance,
You can try the BoardFeetBestFit file I posted a few comments ago, but be sure to read the caveats. When the code test every possible combination, it gets really slow.
How would I flip the column A to B and B to A? My length has to be in Column A and qty of that length is is Column B.
Everywhere there’s a CutArr, you have to change the 0 to 1 and 1 to 0. So CutArr(i,0) would have to be CutArr(i,1), for example.
Thanks for sharing your code.
I’ve downloaded the last (?) version of it (this one : http://dailydoseofexcel.com/excel/BoardFeetBestFit.zip ) but while doing a quick reading of your code it seems it’s only “cutting” one dimensional ? I mean only the running meters and quantities are being analysed, and then put as optimized as possible into the different boards.
I need a 2 dimensional code. Where your (wood) panel is a fixed width & height, and the panels you need to cut out or being placed as optimized as possible.
They may been rotated or not, depending on what kind of wood / execution you have.
I know it makes it much more difficult than what you wrote, but do you think it’s do-able starting from your code or it’s too complex ?
(and very small tip: it’s length and not lenght ;) )
I’ve tried to write the code for area instead of linear a couple times, but never got anywhere. If I were going to do it again, I’d search for “2d cutting stock problem algorithm” and adapt it to VBA.
Love this code. Is there a way for it to choose from different lengths and give you the best possible options?
EG. 6, 9 or 12 metre lengths as stock length available
Thank you for sharing.
Can I use this code in programs I have written in Excel.
@Sefa. Yes, you can.
Everytime when i press the Best Fit button it crashes down (excel turns off).
Don’t you have idea where the problem could be?
No, I don’t. It doesn’t use any references to libraries (other than the standard ones) so it’s not a corrupt or missing library.
I ran it through the code cleaner and it works for me without crashing. Try deleting your version and downloading this newly cleaned one.
If that still doesn’t work, you could set a breakpoint on the first line and see if you can figure out which line is causing the problem.
Will be nice if a 3rd column shows the offcut piece.
Really nice spreadsheet.
I dont suppose this can be used in ms access?
Also waste and efficiency rate would be nice to see.
Thank you in advance.
Is it possible for you to make a output in excel cells not in message,
or at least if you point me in right directions with a peace of VBA code.
At the bottom of
ComputeStick, change the code to this
That comments out all the message box stuff and writes the array (DetStk) starting in L20. You can obviously change that starting cell to whatever you want.
I have been looking forever for code to be able to optimize an Excel cut list that I had created for our drafting team. We do a significant amount of lineal profile cutting and with getting automated saw, it would be a huge help for us to incorporate this code into our existing cut list.
My question is, could this code be adapted to include a “mark number” along with the cut sizes? We produce labels for all of our cuts so having the “mark number” listed along with the cut size would be awesome. The qty would always be 1, so ideally we could replace the qty with the “mark number” Is that doable?
That seems doable. Can you give me an example of what your input and output would look like?
The input would be the same format you have in your files, with the only difference being a mark number in a 3rd column. The output would be the same that you have, but would just need to pull over the mark number with the corresponding length. The qty is always 1, even if there 5 pieces of the same length, they would just be listed as mark # 1,2,3,4,5 and each have the same length. Let me know if you have any additional questions and I can possibly send you an email with an example file I would be trying to incorporate the vba logic in.
Say you have this
Then you want
Add a variable named lMark and change the last For k Next look in the ComputeStock procedure to
The Application.Transpose works well.
But I want to expose the result to limit the number of rows.
So I wan that all cutted length of a profile as exposed shown in a row and each row starts with the profile. Something like:
Profile cut1 cut2 cut3 cut4 cut5
1 4840 1102
2 4840 1102
3 2178 2178 1625
4 2178 2178 1625
5 2178 2178 1625
6 2178 2178 1625
7 1863 1863 1863 240 120
8 1863 1863 1863 240 120
9 1863 1863 1863 240 120
10 1863 1863 1863 240 120
11 1625 1625 1625 1102
12 1625 1625 1625 1102
13 1625 1625 1625 1102
14 1625 1625 1625 1102
Is that anyway possible?
I tried to google, but couldn’t find something.
Thank you in advance
Posting code? Use <pre> tags for VBA and <code> tags for inline.