VBA If Then Else. Find matches then copy paste to overwrite data

Hello everyone!

I have two spreadsheets in a workbooks.
Sheets.LiveData contains the most update to date information based on a ProjectID (status, dates..)
Sheets.toUpdate contains the ProjectID and applicable columns.

I would like to look at LiveData.ProjectID and for each row, find the match in toUpdate.ProjectID range.
If a match is found, I want LiveData.A:E data for that matched row to be pasted over the matched row of toUpdate A:E, overwriting the existing data for that matched row.
If a match is not found, then I want to copy the unmatched row from LiveData.A:E and paste to the next available row in toUpdate.A:E.

According to the attachment as a VBA beginner starter :

PHP Code: 

Sub Demo1()
    Dim R&, V, L&
        Application.ScreenUpdating = False
    With Sheet4.[A1].CurrentRegion
        R = .Rows.Count
        V = .Columns(2).Value2
    End With
    With Sheet3.[A1].CurrentRegion.Rows
            V = Application.Match(.Columns(1).Value2, V, 0)
        For L = 2 To .Count
            If IsError(V(L, 1)) Then R = R + 1: .Item(L).Copy Sheet4.Cells(R, 2) _
                                Else .Item(L).Columns("B:E").Copy Sheet4.Cells(V(L, 1), 3)
        Next
    End With
        Application.ScreenUpdating = True
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

Another Option...

Please Login or Register  to view this content.

Glad I could contribute...Tx for rep +