Excel VBA Problem

[Blobajob88]

Hi,

Can someone please help. For some reason, I cannot get the below code to work. I want it to delete the rows if there is a duplicate with the cells in column 3. It worked before but all of sudden it doesn't. When I change the number to column 4, 2, 8 or anything other than 3, it works fine. Can someone help urgently? The column titled 'description' is column 3

 

[Yongle]

It would be easier for anyone trying to help you if you posted the whole of your code rather than a picture of part of it
Click on <vba/> and paste your code between the code tags and do NOT try to format anything

 

[joeu2004]

I agree with Yongle about posting actual code (or a download URL that points to the Excel file or exported ".bas" file).

And while I cannot determine the intended code because some of it is commented out, things might work as intended if you add Exit For after the Delete statement. Something like:

If Cells(i, 3) = Cells(i-j, 3) Then
    Rows(i).Delete shift:=xlUp
    Exit For
End If

FYI, note that you do not need to do Rows(i).Select.

Note: Exit For exits only the innermost for-loop. And that seems to be all you need.

 

[DataBlake]

alternatively you could remove the duplicates using the removeduplicates function
change the range to your dynamic range and header to yes if you have headers within the range

ActiveSheet.Range("$B$2:$D$6").RemoveDuplicates Columns:=3, Header:=xlNo