Solved: compare two columns and delete matches

[rafi_07max]

I would like to compare column D and column F.
If the content in a cell in column F matches with a cell content in column D,
Then delete the cell in column F
Also delete the corresponding cell in column G
Take a look at the image below
http://www.iimmgg.com/image/734851830267808dcd2d38e37c7dd8c2

I have attached a sample workbook
Sheet 1 contains the initial set of data
Sheet 2 contains a button to insert the codes
Sheet 3 shows how the final output looks like
5252

[shrivallabha]

Your result sheet left out some matching results so not sure of your requirement. See if this works:
Private Sub CommandButton1_Click()
Dim LastRowD, LastRowF As Long
With Sheet1
LastRowD = .Range("D" & Rows.Count).End(xlUp).Row
For i = 1 To LastRowD
LastRowF = .Range("F" & Rows.Count).End(xlUp).Row
MyVal = .Range("D" & i).Value
For j = LastRowF To 1 Step -1
If .Range("F" & j).Value = MyVal Then
.Range("F" & j).Resize(, 2).Delete Shift:=xlUp
End If
Next j
Next i
End With
End Sub

[rafi_07max]

Thanks Shrivallabha for your help. It works. I think i missed out the other matches.

[macropod]

Hi rafi,

Try the attached.