Consulting

Results 1 to 7 of 7

Thread: Macro to copy and paste in another Worksheet

  1. #1
    VBAX Newbie
    Joined
    Mar 2012
    Posts
    3
    Location

    Macro to copy and paste in another Worksheet

    Hi, this is my 1st post here and I hope You can help me.
    I'm not a programmer so I confess I did the following macro copying and pasting here and there...
    I would like to ask for Your support as I need to add a new feature to this macro but I don't know how to do it and I hope You do!
    The following code takes an excel file and splits its lines into 2 blank worksheets depending on a certain caracter inside a certain cell.
    It works fine, but I need to add an extra feature.
    I would like that:
    1) When done, in the worksheet "a" a new blank column is created after column "B".
    2) The "A" column inside worksheet "b" is copied into the empy column created at step 1.
    Can anyone help me to modify this line so that they do this operation too?

    [VBA]Public Sub CopyRows()
    Sheets("Sheet1").Select
    ' Find the last row of data
    FinalRow = Range("A65536").End(xlUp).Row
    ' Loop through each row
    For x = 14 To FinalRow
    ' Decide if to copy based on column H
    ThisValue = Range("K" & x).Value
    If ThisValue = "R" Then
    Range("A" & x & ":S" & x).Copy
    Sheets("a").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Range("A" & NextRow).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    ElseIf ThisValue = "" Then
    Range("A" & x & ":S" & x).Copy
    Sheets("b").Select
    NextRow = Range("A65536").End(xlUp).Row + 1
    Range("A" & NextRow).Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    End If
    Next x
    End Sub[/VBA]

    Thanks in advance for Your attention.

  2. #2
    VBAX Guru mancubus's Avatar
    Joined
    Dec 2010
    Location
    "Where I lay my head is home" :D
    Posts
    2,644
    wellcome to the Forum.
    try this. untested. so work with a copy first.



    [vba]
    Public Sub CopyRows()

    Dim wsBase As Worksheet, wsA As Worksheet, wsB As Worksheet
    Dim Calc As Long, FinalRow As Long, x As Long

    Set wsBase = Worksheets("Sheet1")
    Set wsA = Worksheets("a")
    Set wsB = Worksheets("b")

    With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    .EnableEvents = False
    Calc = .Calculation
    .Calculation = xlCalculationManual
    End With

    With wsBase
    FinalRow = .Cells(Rows.Count, "A").End(xlUp).Row
    For x = 14 To FinalRow
    If .Range("K" & x).Value = "R" Then
    .Range("A" & x & ":S" & x).Copy wsA.Cells(Rows.Count, "A").End(xlUp).Offset(1)
    ElseIf .Range("K" & x).Value = "" Then
    .Range("A" & x & ":S" & x).Copy wsB.Cells(Rows.Count, "A").End(xlUp).Offset(1)
    End If
    Next x
    End With

    wsA.Columns("C").EntireColumn.Insert
    wsB.Range("A1:A" & wsB.Cells(Rows.Count, "A").End(xlUp).Row).Copy wsA.Range("C1")

    With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
    .EnableEvents = True
    .Calculation = Calc
    End With

    End Sub
    [/vba]
    PLS DO NOT PM; OPEN A THREAD INSTEAD!!!

    1) Posting Code
    [CODE]PasteYourCodeHere[/CODE]
    (or paste your code, select it, click # button)

    2) Uploading File(s)
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) (multiple files can be selected while holding Ctrl key) / Upload Files / Done
    Replace company specific / sensitive / confidential data. Include so many rows and sheets etc in the uploaded workbook to enable the helpers visualize the data and table structure. Helpers do not need the entire workbook.

    3) Testing the Codes
    always back up your files before testing the codes.

    4) Marking the Thread as Solved
    from Thread Tools (on the top right corner, above the first message)

  3. #3
    VBAX Newbie
    Joined
    Mar 2012
    Posts
    3
    Location
    It works perfectly, many thanks, I really appreciated Your time!

  4. #4
    VBAX Guru mancubus's Avatar
    Joined
    Dec 2010
    Location
    "Where I lay my head is home" :D
    Posts
    2,644
    you're wellcome.

    pls mark the thread "solved" from Thread Tools above the first post in his page.
    PLS DO NOT PM; OPEN A THREAD INSTEAD!!!

    1) Posting Code
    [CODE]PasteYourCodeHere[/CODE]
    (or paste your code, select it, click # button)

    2) Uploading File(s)
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) (multiple files can be selected while holding Ctrl key) / Upload Files / Done
    Replace company specific / sensitive / confidential data. Include so many rows and sheets etc in the uploaded workbook to enable the helpers visualize the data and table structure. Helpers do not need the entire workbook.

    3) Testing the Codes
    always back up your files before testing the codes.

    4) Marking the Thread as Solved
    from Thread Tools (on the top right corner, above the first message)

  5. #5
    VBAX Newbie
    Joined
    Mar 2012
    Posts
    3
    Location
    Quote Originally Posted by mancubus
    you're wellcome.

    pls mark the thread "solved" from Thread Tools above the first post in his page.
    Sorry but I can't see what You are referring to....
    If I click on "Thread tool" it brings down the page, but I can't mark anything (print/search/email)

  6. #6
    VBAX Mentor jammer6_9's Avatar
    Joined
    Apr 2007
    Location
    Saudi Arabia
    Posts
    318
    Location
    This happens on me as well if my browser is Chrome

    Quote Originally Posted by alccad
    Sorry but I can't see what You are referring to....
    If I click on "Thread tool" it brings down the page, but I can't mark anything (print/search/email)
    T-ogether
    E-veryone
    A-chieves
    M-ore


    One who asks a question is a fool for five minutes; one who does not ask a question remains a fool forever.

  7. #7
    VBAX Guru mancubus's Avatar
    Joined
    Dec 2010
    Location
    "Where I lay my head is home" :D
    Posts
    2,644
    internet explorer will do it.
    PLS DO NOT PM; OPEN A THREAD INSTEAD!!!

    1) Posting Code
    [CODE]PasteYourCodeHere[/CODE]
    (or paste your code, select it, click # button)

    2) Uploading File(s)
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) (multiple files can be selected while holding Ctrl key) / Upload Files / Done
    Replace company specific / sensitive / confidential data. Include so many rows and sheets etc in the uploaded workbook to enable the helpers visualize the data and table structure. Helpers do not need the entire workbook.

    3) Testing the Codes
    always back up your files before testing the codes.

    4) Marking the Thread as Solved
    from Thread Tools (on the top right corner, above the first message)

Posting Permissions

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