software

I am trying to create an inventory sheet -

Column A - Part Number (always the same) (ex. 10-0A in cell 2A)
Column B - Serial Number (needs to add 1 every new cell (ex. 0001 in cell B2
and needs to be 0002 in cell B3))
Column C - Invoice Description
Column D - Product Details

Is it possible to only add a new line when you start typing 10-0A in cell A3
and have the serial number column B add 1 to be 0002 in that column?

PART NUMBERSERIAL NUMBERINVOICE DESCRIPTION
10-0A 0001

If i click the cell below 10-0A and start typing is it possible to
automatically in the cell under the 0001 in the serial number column to add
1 to make it 0002?

Thanks,

I would do this:

Format your column B cells as quot;0000quot; in order to see leading zeros.

in B3, type in the following formula:

=IF(A3lt;gt;quot;quot;,B2 1,quot;quot;)

Copy this formula down Column B as far as you need to.Thank you very much!

jburch

quot;Mark Lincolnquot; wrote:

gt; I would do this:
gt;
gt; Format your column B cells as quot;0000quot; in order to see leading zeros.
gt;
gt; in B3, type in the following formula:
gt;
gt; =IF(A3lt;gt;quot;quot;,B2 1,quot;quot;)
gt;
gt; Copy this formula down Column B as far as you need to.
gt;
gt;

Is there a way for when i print this if only 4 products are on the page to
automatically hit print and not have extra pages print?

quot;Mark Lincolnquot; wrote:

gt; I would do this:
gt;
gt; Format your column B cells as quot;0000quot; in order to see leading zeros.
gt;
gt; in B3, type in the following formula:
gt;
gt; =IF(A3lt;gt;quot;quot;,B2 1,quot;quot;)
gt;
gt; Copy this formula down Column B as far as you need to.
gt;
gt;

I've amended this a bit from one of my own macros. Some of the experts
on this list might have a more elegant solution. But having said
that....

This assumes no empty rows in the data range.

Dim c as Range
Dim LastRow as Integer
Dim PrintRange as String

Sub PrintDataUnits()
For Each c In Range(quot;A2:A5000quot;).Cells
If (c.Value) = quot;quot; Then
LastRow = LTrim(Str(c.Row - 1))
Exit For
End If
Next
PrintRange = quot;A1:Fquot; amp; LastRow ' lt;---Change F to match your last
column
If LastRow lt;gt; quot;1quot; Then Range(PrintRange).PrintOut
End Sub

Hope this helps.