deleting same rows on two columns

[osmanoca]

hello i couldnt remove these same cells on two columns

i have A and B columns of dictionary database. some meaning in column B are same with word of column A. so this is a problem. column B ise meaning and it must be different. so i want to delete these black dublicated words below with macro. Please help me, i tried to delete dublicated function in office but it doesnt delete this kind.

Column A	Column B
çar	çar
yek	one
se	three
penc	penc

<colgroup><col><col></colgroup><tbody>
</tbody>

as result it must be so:

Column A	Column B
yek one se three <colgroup><col><col></colgroup><tbody> </tbody> <tbody> </tbody>
---- i have office plus 2010

<colgroup><col><col></colgroup><tbody>
</tbody>

 

[JLGWhiz]

try this

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, 1).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

 

[osmanoca]

that macro gives syntax error

 

[osmanoca]

this macro deleted all cells sorry.

try this

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, 1).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

 

[Fluff]

Hia
try

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, [COLOR=#ff0000]2[/COLOR]).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

the item in red was wrong

 

[osmanoca]

Thank you very much dear Fluff. it worked.
thanks.....

Hia
try

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, [COLOR=#ff0000]2[/COLOR]).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

the item in red was wrong

 

[JLGWhiz]

Hia
try

Sub deleDupes()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i, [COLOR=#ff0000]2[/COLOR]).Value Then .Cells(i, 1).Resize(1, 2).Delete xlShiftUp
    Next
End With
End Sub

the item in red was wrong

Good catch on the typo, Fluff. Thanks.

 

[Fluff]

No problem