Related:
- Compare and update excel sheet
- How to auto update excel sheet from another sheet ✓ - Forum - Excel
- Compare data two excel sheets ✓ - Forum - Excel
- Auto notify of email when excel sheet updated ✓ - Forum - Excel
- Comparing columns in two different excel sheets and if they match copying third column ✓ - Forum - Excel
- Compare two excel sheets and highlight differences macro ✓ - Forum - Excel
2 replies
venkat1926
- Posts
- 1862
- Registration date
- Sunday June 14, 2009
- Status
- Contributor
- Last seen
- July 30, 2015
sheet 1 is master sheet and sheet 2 is the other sheet .
modify the macro to suit your
modify the macro to suit your
Sub test()
Dim rng1 As Range, c1 As Range, cfind As Range, x As String
On Error Resume Next
With Worksheets("sheet1")
Set rng1 = Range(.Range("a2"), .Range("a2").End(xlDown))
For Each c1 In rng1
x = c1.Value
'MsgBox x
With Worksheets("sheet2").Columns("A:A")
Set cfind = .Cells.Find(what:=x, lookat:=xlWhole)
If cfind Is Nothing Then
GoTo line1
Else
GoTo line2
End If
End With
line1:
'MsgBox c1.Value c1.EntireRow.Copy
With Worksheets("sheet2")
.Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial
End With
line2:
Next c1
End With
Application.CutCopyMode = False
End Sub
Subscribe To Our Newsletter!
