parscon
08-14-2012, 02:30 PM
This VBA Code Will Compare A to D and show the duplicates.
Now I want to write the result (duplicates) on column E. you can see the attachmentfor sample.
Thank you very much for your help.
Sub test_MatchCells()
Dim i As Long, cell As Range, rng1 As Range, rng2 As Range
Set rng1 = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
Set rng2 = Range(Range("D1"), Range("D" & Rows.Count).End(xlUp))
On Error Resume Next
For Each cell In rng1
i = WorksheetFunction.Match(cell.Value, rng2, 0)
If Err Then
Err.Clear
Else
MsgBox "Found " & cell.Value & " In parcel No and " & cell & " in instrument No @ " & "Row:" & i
End If
Next
End Sub
Now I want to write the result (duplicates) on column E. you can see the attachmentfor sample.
Thank you very much for your help.
Sub test_MatchCells()
Dim i As Long, cell As Range, rng1 As Range, rng2 As Range
Set rng1 = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
Set rng2 = Range(Range("D1"), Range("D" & Rows.Count).End(xlUp))
On Error Resume Next
For Each cell In rng1
i = WorksheetFunction.Match(cell.Value, rng2, 0)
If Err Then
Err.Clear
Else
MsgBox "Found " & cell.Value & " In parcel No and " & cell & " in instrument No @ " & "Row:" & i
End If
Next
End Sub