Excel output question. this is difficult to explain sorry!

[Ratedr]

OK I have a business where I take orders for certain stock #s (I have
a stock list of part #s and sizes for those part #s). When a customer
orders, they will write what # of parts they want of each of the
sizes, or just not write anything if they dont want it. The top row
is the sizes, down the sides are the part #s...and across (under the
sizes, are the quantity of each they want) For example, this is what
two lines of my spreadsheet/ordersheet could like:


Sizes
4 5 6 7
8 9 10 11 12
Part #
x45l2 0 2 0 0 0
0 0 1 0
x45l3 1 0 0 0 0
0 2 0 0

OK I hope that makes sense, if it doesnt, I could send you an actual
order sheet to show you. What I then do, is take those, and write up
a list of only the parts I need for the factory, obviously I dont need
to write up the 0's...like this:

x45l2 2/5
x45l2 1/11
x45l3 1/4
x45l3 2/10

Eventually I also make up labels, but thats another story.
Is there either a function of excel, a 3rd party software add-on to
excel, or another program someone recommends to do this? If someone
contacted me directly, I have a program written by a customer of mine
(only for them of course!), that takes a spreadsheet, and I import it
into access, and it then takes it, breaks it down and prints out the
labels. BEST case scenario, would be someone to be able to take a
look at that program (including the access one) and break it down to
figure out how to edit it to my specifications (obviously my customer
doesnt want to help me help my other customers!).

I will GLADLY pay someone for their time if this can be completed.
Please contact me at (e-mail address removed) with suggestions and/or quotes to
help me along with this.


SORRY FOR IT BEING SO LONG I JUST DIDNT WANT TO LEAVE ANYTHING OUT!



What I want to do, is to be able to print out orders to send out to

 

[Shane Devenshire]

Hi,

I'm think you are going to need a macro to do this.

Sub WriteOrder()
Dim cell As Range
For Each cell In Selection
If cell <> 0 Then
With Sheet3.Range("A65536").End(xlUp)
.Offset(1, 0) = Cells(cell.Row, 1)
.Offset(1, 1) = cell & "/" & Cells(1, cell.Column)
End With
End If
Next cell
End Sub

This macro assumes you have the part numbers in column A on a sheet other
than Sheet3 and the size across the top on row 1. This will output the
results to Sheet3 starting in cell A2 (I assume titles on row 1). To run
this Format the cells in column B of the output sheet to text before you run
the macro. The select the data range, starting in B2 of the original data
sheet (exclude the titles on row 1 and in column A)

If this helps, please click the Yes button

Cheers,
Shane Devenshire