+ Reply to Thread
Results 1 to 1 of 1

Copy rows that have 1 or > in columns A or B and paste to ORDER ESTIMATE WORKSHEET

  1. #1
    Registered User
    Join Date
    08-25-2012
    Location
    Candler NC
    MS-Off Ver
    Excel 2007
    Posts
    1

    Copy rows that have 1 or > in columns A or B and paste to ORDER ESTIMATE WORKSHEET

    I have a Macro that works well, but it copies the formulas and I would like to have just the Values copied to the "Order Sheet" (I changed the name from Order Estimate to Order Sheet).
    This is the Macro, any help would be appreciated.

    Sub Verint_Parts_List()
    Dim i As Long, lrow As Long, lastrow As Long

    With Worksheets("Verint")
    lrow = .Range("a" & .Rows.Count).End(xlUp).Row
    For i = 3 To lrow
    If .Range("a" & i).Value >= "1" Then
    lastrow = Worksheets("Order Sheet").Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & i & ":G" & i).Copy Worksheets("Order Sheet").Range("A" & lastrow + 1)
    a = a + 1
    End If
    Next i
    End With
    End Sub



    I am new to this forum and would appreciate any help with the following:

    What I would like to accomplish is to have any cell in columns A or B of sheets 1, 2, 3 that has a value of 1 or greater; for the entire row to be copied over and pasted to start at Row 27 of the ORDERESTIMATE WORKSHEET and if the row is filled, to move down and paste to the next empty row.

    I have attached a sample worksheet

    Thanks for any help that you can provide.

    LFleet
    DVR test workbook.zip
    Last edited by lfleet; 09-17-2012 at 02:10 PM. Reason: Update

+ 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