Find, copy and paste data for printing.
Manage your personal finances in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 4 of 4

Thread: Find, copy and paste data for printing.

  1. #1
    New Member
    Join Date
    Jan 2002
    Location
    Western Australia
    Posts
    4
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

     
    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!

  2. #2
    Board Regular
    Join Date
    Mar 2002
    Location
    Cincinnati, Ohio, USA
    Posts
    6,824
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  3. #3
    New Member
    Join Date
    Feb 2002
    Location
    Belgium
    Posts
    24
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  4. #4
    New Member
    Join Date
    Jan 2002
    Location
    Western Australia
    Posts
    4
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

      
    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


User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

 

 
DMCA.com