Question : Copy and paste data if matched.

Hi Experts,

I would like to request Experts help to write a script to which is able to crosscheck Time (Column_A) in Reconcile sheet with Time (Column_B) in System Sheet. If matched, copy the matched row data of Column_B and C (System sheet) and paste it at Reconcile sheet (need to follow the time sequence).

I have manually copied few data for Experts to get better view. Hope Experts can help me to create this feature.

Attachments:

CopyPasteRow.xls (151 KB) (File Type Details)

xls

Answer : Copy and paste data if matched.

Sure

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

           
           
             Sub Crosscheck()
Application.ScreenUpdating = False
Dim r As Range
Dim ws As Worksheet
Set ws = Worksheets("Reconcile")
Set r = ws.Range("B5", ws.Cells.SpecialCells(xlCellTypeLastCell)).EntireRow.Resize(, 1).Offset(, 1)
r.FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-1],System!C:C,1,FALSE)),"""",VLOOKUP(RC[-1],System!C:C,1,FALSE))"
r.Offset(, 1).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-2],System!C[-1]:C,2,FALSE)),"""",VLOOKUP(RC[-2],System!C[-1]:C,2,FALSE))"
r.Resize(, 2).Copy
Application.DisplayAlerts = False
r.Resize(, 2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Set r = ws.Range("B5", ws.Cells.SpecialCells(xlCellTypeLastCell)).EntireRow.Resize(, 1).Offset(, 1)
r.EntireRow.RowHeight = 15
r.Resize(, 1).Offset(, -1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
           
         