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

Thread: A more efficient way of doing this

  1. #1
    New Member
    Join Date
    Feb 2002
    Posts
    18
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    OK, basically I am copying and pasting 3 cells from one sheet into another, I can't copy all the cells at once due to how they are arranged on the sheet, so I was wondering if there would be an easier way of doing this than copying the cell, selecting the sheet and then pasting the cell (3 times)

    [C7].Copy
    Sheets("Component_list").Select
    [A40].End(xlUp).Offset(1, 0).PasteSpecial
    Sheets("Add_components").Select
    [C9].Copy
    Sheets("Component_list").Select
    [B40].End(xlUp).Offset(1, 0).PasteSpecial
    Sheets("Add_components").Select
    [C11].Copy
    Sheets("Component_list").Select
    [C40].End(xlUp).Offset(1, 0).PasteSpecial
    Sheets("Add_components").Select

  2. #2
    MrExcel MVP Barrie Davidson's Avatar
    Join Date
    Feb 2002
    Location
    Winnipeg
    Posts
    2,330
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-02-17 10:26, P5X wrote:
    OK, basically I am copying and pasting 3 cells from one sheet into another, I can't copy all the cells at once due to how they are arranged on the sheet, so I was wondering if there would be an easier way of doing this than copying the cell, selecting the sheet and then pasting the cell (3 times)

    [C7].Copy
    Sheets("Component_list").Select
    [A40].End(xlUp).Offset(1, 0).PasteSpecial
    Sheets("Add_components").Select
    [C9].Copy
    Sheets("Component_list").Select
    [B40].End(xlUp).Offset(1, 0).PasteSpecial
    Sheets("Add_components").Select
    [C11].Copy
    Sheets("Component_list").Select
    [C40].End(xlUp).Offset(1, 0).PasteSpecial
    Sheets("Add_components").Select
    This will work for you (if I understand your requirements):

    Range("C7,C9,C11").Copy
    Range("A40").End(xlUp).Offset(1, 0).PasteSpecial _
    Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
    , Transpose:=True
    Application.CutCopyMode = False



    Barrie Davidson

    "You're only given a little spark of madness. You mustn't lose it." - Robin Williams

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

    Default

    Thanks, that was just what I wanted

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
  •