Manual Labor Saver Inventory Shipping docs.

[rakmup]

Hello,
I have a sheet of inventory (300 items) all qty 0....we maintain the qty on that sheet for what we are shipping that day. Once we add the qty, we need it copied over to a shipping doc.

Shipping Doc only has 13 rows to fill because of header and footer info. More than 13 lines will need a second sheet filled out as a copy of all data on shippingdoc1...etc

How can I copy only the rows of data with >0 in Qty to rows 26-38 on another worksheet(shippingdoc1) and other lines to a new copy of the shippingdoc1 which will be shippingdoc2 and so on?

[TABLE="width: 543"]
<tbody>[TR]
[TD][/TD]
[TD][TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Item Ref#[/TD]
[TD]Loc[/TD]
[TD]Description[/TD]
[TD]HTS Code[/TD]
[TD]Qty[/TD]
[TD]Weight[/TD]
[TD]Value[/TD]
[TD]COO[/TD]
[/TR]
[TR]
[TD]Part1[/TD]
[TD]A1[/TD]
[TD]Box[/TD]
[TD]HTS123[/TD]
[TD]2[/TD]
[TD]10[/TD]
[TD]100[/TD]
[TD]US[/TD]
[/TR]
[TR]
[TD]Part2[/TD]
[TD]B2[/TD]
[TD]Sphere[/TD]
[TD]HTS345[/TD]
[TD]6[/TD]
[TD]20[/TD]
[TD]200[/TD]
[TD]US[/TD]
[/TR]
[TR]
[TD]Part3[/TD]
[TD]C3[/TD]
[TD]Pyramid[/TD]
[TD]HTS678[/TD]
[TD]0[/TD]
[TD]100[/TD]
[TD]32[/TD]
[TD]CA[/TD]
[/TR]
[TR]
[TD]Part4[/TD]
[TD]D4[/TD]
[TD]Cylinder[/TD]
[TD]HTS789[/TD]
[TD]2[/TD]
[TD]75[/TD]
[TD]20[/TD]
[TD]PL[/TD]
[/TR]
[TR]
[TD]Part5[/TD]
[TD]E5[/TD]
[TD]Bottle[/TD]
[TD]HTS482[/TD]
[TD]1[/TD]
[TD]12[/TD]
[TD]16[/TD]
[TD]EE[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

In the example all lines except Part3 would copy over.

Is it possible to write code that can do this? I have only tried copy and paste macros but can't recognize the qty being zero.

Any help is greatly appreciated.

 

[Fennek]

Hello,

one idea for trial is the use of the autofilter:
maybe something like this:

sub Test()
with cells(1).currentregion
.autofilter 5, "<>0"
.copy '####### destination, e.g. sheets(2).cells(1)
.autofilter
end with
end sub
{/code]

regards

 

[rakmup]

Thank you...definitely helped get me there.

Hello,

one idea for trial is the use of the autofilter:
maybe something like this:

sub Test()
with cells(1).currentregion
.autofilter 5, "<>0"
.copy '####### destination, e.g. sheets(2).cells(1)
.autofilter
end with
end sub
{/code]

regards[/QUOTE]