+ Reply to Thread
Results 1 to 3 of 3

On select, Transfer the information to new Workbook (Excel 2003)

Hybrid View

  1. #1
    Forum Contributor
    Join Date
    03-29-2012
    Location
    Canada
    MS-Off Ver
    2007
    Posts
    818

    On select, Transfer the information to new Workbook (Excel 2003)

    I have looked in different web link and nothing that could help this situation.

    I need to complete the transfer from one Workbook to another.

    I have the following Code:

    If LCase(Target.Value) = "cancelled" Then
    Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy
    Sheets("Archives").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.EnableEvents = False
    Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).ClearContents
    Application.EnableEvents = True
    End If
    This transfer's the data to my "Archives" sheet in my original workbook. I have created a new workbook named "Archives.xls". I need the code to; Transfer the information when "cancelled" is selected to my "Archives.xls." document.

    So instead of
    Sheets("Archives").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    it would transfer to my "Archives.xls".

    Help would be nice

  2. #2
    Forum Contributor
    Join Date
    03-29-2012
    Location
    Canada
    MS-Off Ver
    2007
    Posts
    818

    Re: On select, Transfer the information to new Workbook (Excel 2003)

    I have also tried to Record the macro but using Excel 2003. It wont go from workbook to workbook.

  3. #3
    Forum Contributor
    Join Date
    03-29-2012
    Location
    Canada
    MS-Off Ver
    2007
    Posts
    818

    Re: On select, Transfer the information to new Workbook (Excel 2003)

    I recorded the following macro but I am lost in how to add this to my original code:

    Range("A5:L5").Select
        Selection.Copy
        Range("M5").Select
        Windows("Archives.xls").Activate
        Range("A5").Select
        ActiveSheet.Paste
        Windows("Draftrfp.xls").Activate
        Range("A5:M5").Select
        Range("M5").Activate
        Application.CutCopyMode = False
        Selection.ClearContents

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1