Hi, I have a bounding box macro (L x W x H) and it works great. Is there any way to change so it sorts the three sizes from least to greatest?
I'm using SW 2017
Dim Temp As Variant Dim X As Integer Dim Sorted As Boolean Sorted = False Do While Not Sorted Sorted = True For X = 0 To UBound(Dimensions) - 1 If Dimensions(X) > Dimensions(X + 1) Then Temp = Dimensions(X + 1) Dimensions(X + 1) = Dimensions(X) Dimensions(X) = Temp Sorted = False End If Next X Loop
Thank you. This is a good start, unfortunately there is a lot of code in the macro and I'm not having luck when I paste as I'm not sure exactly where to paste it.
Any way you can check where this code can be pasted and the macro will work?
find this line in your code Array.Sort(Dimensions)
there you can past previous code
Retrieving data ...