Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: 2 Macro questions

  1. #1
    New Member
    Join Date
    Mar 2002
    Location
    Melbourne, Victoria
    Posts
    10
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    These questions both relate to an invoice set up in a worksheet.

    1. After I have finished an 'invoice' I want to transfer some data onto another worksheet called Sales Journal. I need a macro that can copy 5 cells and paste them into the Sales Journal (one at a time, not all together). But problems occur because one of the cells from the invoice is made up of a calculation so when this copies over I just get the formula rather than the figure. Then the data has to be pasted below existing entries.

    2. Once the above is done I want to clear the invoice so I can enter someone else's details. Now the macro to clear the details if fine, what I want to add to it though is an automatic incrementation of the invoice number. I have no clue how to do this.

    Any idea's? Would be grateful for help [grin]

  2. #2
    Board Regular
    Join Date
    Feb 2002
    Posts
    255
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Danielle--

    1) If I understand your question, it sounds like your macro is pasting the formulas when you want it to paste values. I'm not sure if this was written or recorded, but if you look at the VB Editor you should see some code that looks like this:
    selection.paste or activesheet.paste or something.pastespecial paste:=xlPasteAll
    You want to change that to:
    Selection.PasteSpecial paste:=xlValues so that you will on paste the values and not the formulas.

    2)At the end of the macro that clears your invoice add Range ("the address of the cell with the invoice number").value=Range ("the address of the cell with the invoice number")+1. This will add one to the invoice number when you run the macro. If the number is in cell b2 then it looks like this:
    Range("b2").value=Range("b2").value+1

    I hope this helps you out.

    Dave

Some videos you may like

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
  •