Results 1 to 5 of 5

Speed Up Macro

Threaded View

  1. #1
    Registered User
    Join Date
    12-14-2010
    Location
    Texas,United Stated
    MS-Off Ver
    Excel 2007
    Posts
    63

    Speed Up Macro

    This Macro archives order informaton to another workbook once an order is complete... But it is insanely slow!!! Please help me speed it up some!
    Thanks... jbmerrel

    Sub Archive()
    
        Application.ScreenUpdating = False
        
        Workbooks("Copy of 1 - My Orders.xls").Activate
        Sheets("Orders").Select
        LastRow = Range("A65536").End(xlUp).Row
        For x = 2 To LastRow
            Text = Range("K" & x).Value
            If Text = "Complete" Then
                Range("A" & x & ":M" & x).Copy
                Workbooks("5 - Orders Archive.xls").Activate
                Sheets("Orders").Select
                NextRow = Range("A65536").End(xlUp).Row + 1
                Range("A" & NextRow).Select
                ActiveSheet.Paste
                Workbooks("Copy of 1 - My Orders.xls").Activate
                Sheets("Orders").Select
          
            End If
        Next x
    
    End Sub
    Last edited by jbmerrel; 01-16-2012 at 11:56 AM.

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