Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: Copying New Data And Having The Rows Going Down Each Time Ur

  1. #1
    Board Regular
    Join Date
    Mar 2002
    Posts
    85
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Hello I have a problem.

    Ok I have a macro that copies data to another worksheet

    However I want everytime the macro copies this data to move it down to the next cell for example:

    One time when I copy the data from the cell 'B11' I copy it to a new worksheet to the cell 'A2' however the next time I copy the data from 'B11' want it to copy the data to 'A3' and so on

  2. #2
    Board Regular
    Join Date
    Feb 2002
    Location
    Perth Australia
    Posts
    1,584
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Hi there

    There are many ways to do this, but as a starter try this:

    On your other worksheet, in any cell not in column A (say D1) put this formula

    ="A"&COUNTA(A:A)+1

    D4 now shows the address of the next blank cell in Column A (provided you have no gaps). First get your macro to select this sheet then select the required cell using code like this:
    Range(Range("D4").Value).Select
    Now return to you first sheet, copy your data, select the second sheet and use the code
    ActiveSheet.Paste.
    This will paste it into the cell you have previously selected

    hope this helps, if not use the search function here as this has come up many times
    regards
    Derek
    Der

  3. #3
    MrExcel MVP Tom Urtis's Avatar
    Join Date
    Feb 2002
    Location
    San Francisco, California USA
    Posts
    11,162
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Here's a more detailed code if you are still stuck. Modify for sheet names.

    Sub CopyThis()
    Application.ScreenUpdating = False
    Sheets("Sheet1").[B11].Copy
    Sheets("Sheet2").Select
    [A65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
    Application.CutCopyMode = False
    Sheets("Sheet1").Select
    Application.ScreenUpdating = True
    End Sub

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
  •