Find, copy and paste data for printing.

AndyW

New Member
Joined
Jan 13, 2002
Messages
4
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!
 

Excel Facts

Difference between two dates
Secret function! Use =DATEDIF(A2,B2,"Y")&" years"&=DATEDIF(A2,B2,"YM")&" months"&=DATEDIF(A2,B2,"MD")&" days"
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
 
Upvote 0
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
 
Upvote 0
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
 
Upvote 0

Forum statistics

Threads
1,213,543
Messages
6,114,236
Members
448,555
Latest member
RobertJones1986

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top