?
Solved

Copy Rows from one sheet where the date > the latest date on another sheet

Posted on 2015-01-28
8
Medium Priority
?
597 Views
Last Modified: 2016-02-10
Hi,

In the attached example, I want to find the latest date in column A on sheet 1, then copy all rows from sheet 2 to sheet 1 where the date in column A on sheet 2 is greater than the latest date in column A on sheet 1.

In my example, the solution would copy the 3 highlighted rows from sheet 2 to sheet 1, appending at the end of the existing data.

I would use this on data sets that are many thousands of rows so the solution shouldn't be based on how many rows are in this example.

Thanks in advance,

swjtx99
Example.xlsx
0
Comment
Question by:swjtx99
  • 3
  • 2
  • 2
  • +1
8 Comments
 
LVL 43

Assisted Solution

by:Saqib Husain, Syed
Saqib Husain, Syed earned 800 total points
ID: 40576764
Try

Sub movlatest()
    Set tws = Sheets("Sheet1")
    Set sws = Sheets("Sheet2")
    ld = WorksheetFunction.Max(Range("A:A"))
    For Each cel In sws.Range("A:A")
        If cel.Value <> "" Then
            If cel.Value > ld Then
                cel.EntireRow.Copy tws.Range("A" & Rows.Count).End(xlUp).Offset(1)
            End If
        End If
    Next cel
End Sub
0
 
LVL 31

Accepted Solution

by:
gowflow earned 1200 total points
ID: 40576920
Here is the code that could do that with no FLAW.
Pls note that the code that Saquib posted is fine except that it has a flaw if you are positioned in sheet2 and activate the macro then you will only get the header copied ! if you are positioned in Sheet1 and activate the macro it will copy the header + the correct records.

For this reason only I posted my code.
Sorry for this.

Sub CopyLatestRows()
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim cCell As Range
Dim MaxDate As Date
Dim I As Long, MaxRow1 As Long, MaxRow2 As Long

Set WS1 = Sheets("Sheet1")
MaxRow1 = WS1.Range("A" & WS1.Rows.Count).End(xlUp).Row
MaxDate = Application.WorksheetFunction.Max(WS1.Range("A:A"))

Set WS2 = Sheets("Sheet2")
MaxRow2 = WS2.Range("A" & WS2.Rows.Count).End(xlUp).Row

For I = 2 To MaxRow2
    If WS2.Cells(I, "A") > MaxDate Then
        WS2.Cells(I, "A").EntireRow.Copy WS1.Cells(MaxRow1, "A")
        MaxRow1 = MaxRow1 + 1
    End If
Next I

MsgBox "Transfer Done."
End Sub

Open in new window


and here is the workbook attached just run the macro that is there.
gowflow
Example-V01.xlsm
0
 
LVL 35

Expert Comment

by:Rob Henson
ID: 40577194
You can also do this without VBA. You can use Advanced Filter function.

If you set the AF to filter in place rather than copy to another location, you can then copy and paste the results to append to the other sheet.

AF requires a subset table of data with at least one header and one criteria beneath it. This would be your date header and a formula to pull the Max date from existing data:

Date Header
=">"&MAX(Sheet1!A:A)

Thanks
Rob H
0
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

 

Author Closing Comment

by:swjtx99
ID: 40578870
Hi,

Thanks to both Saqib and goflow. Both solutions worked so I thought a point distribution would be fair and I gave a slight edge to goflow since his solution doesn't copy the header row. I tried both on sheets with many thousands of lines and both seemed to run in about the same time (~5 sec)

Many thanks,

swjtx99
0
 
LVL 31

Expert Comment

by:gowflow
ID: 40579400
Your welcome.
gowflow
0
 
LVL 35

Expert Comment

by:Rob Henson
ID: 40579410
Did you try the Filter option or am I just being ignored??
0
 

Author Comment

by:swjtx99
ID: 40615061
Hi Rob,

Very sorry for the delayed reply. I've been out of pocket lately.

I needed a vba option, sorry I didn't specify but thought that was clear. Also apologize for not acknowledging your proposed solution. I'll be more careful in the future and I appreciate you taking the time to offer your expertise.

Thanks,

swjtx99
0
 
LVL 35

Expert Comment

by:Rob Henson
ID: 40615381
Apologies accepted. I was probably having a bad day as well.

The filter option could have been included in a VBA routine.
0

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

In a use case, a user needs to close an opened report by simply pressing the Escape (Esc) key. This can be done by adding macro code in Report_KeyPress or Report_KeyDown event.
If you need to implement application level security in an Access database application or other VBA code, I strongly encourage you to take advantage of Active Directory groups.
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.

568 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question