Solved

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

Posted on 2015-01-28
8
465 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
  • 2
  • +1
8 Comments
 
LVL 43

Assisted Solution

by:Saqib Husain, Syed
Saqib Husain, Syed earned 200 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 300 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 33

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
MS Dynamics Made Instantly Simpler

Make Your Microsoft Dynamics Investment Count  & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.

 

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 33

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 33

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

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…

624 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