Find, copy and paste data for printing.

[AndyW]

I have a wsheet (Claim Values)that contains tables of claimable $values; each week, a new table is created with new values for claiming.
The tables remain the same row and column size with a progressive $value subtotal change each week.
I need to be able to select the positive value sub-totals (non $zero) only and transfer them into a print sheet for each weekly claim.
I have spent some time browsing the messages but I can't find what I'm looking for.

Help will be much appreciated.

Thanks AndyW

ps very little vba & macro exposure...need it in small sylables!

[Tom Schreiner]

Hi Andy
Is the print sheet in the same workbook?
What are the cell's addresses the data is coming from?
What is the sheetname and cells where the data is going?
Thanks,
Tom

[paludgnp]

Is your print Sheet inthe same workbook?
If yes, your code could sound like this:

All what you have to define is your rows and columns numbers (i,j,x,z).

This code will check values in column j, from row 1 to to row 10, and will copy the result, if ><0, to the other sheet called "Print Sheet", in the cell(x,z), where x is the row number and z is the column number.

sub CopyValue()
dim i as integer
dim z as integer
dim x as integer
dim j as integer
j=3
z=4
for i=1 to 10
if Val(sheets("Claim Values").cells(i,j))>< 0 then
x=i
sheets("print sheet").cells(y,z)=Val(sheets("Claim Values").cells(i,j))
end if
next i
end sub
Good luck

[AndyW]

First up... thanks for the prompt replies.

Now the questions:

Yes the print sheet is in the same wb.

Each table consists of 6 columns * 75 rows.

Each week a new table is created (alongside) the last table.

The last column in the table is the value I need to print along with the information in it's row as long as it's not $0 (no point in printing negative rows)

I currently name each table Claim1, Claim2 etc so I would be calling:

Goto Claim1
Find the "Claim Value" column
Check each row > zero value
If > zero value put the row in this sheet
continue until all rows have been checked.

Any help.

Meanwhile I'll try the method shown.

Again Thanks