Loop and check dublicates

[Xsi]

Hello people,

I have got a excel sheet that contain 5 columns (A,B,C,D,E)

I need a code to loop first column "E" and for each used cell in column "E" check in all used cells column "a" if the content is the same if then clear" then loops b,c and D.

Could someone help me?

Thank you in advance.

 

[SkipVought]

Ho,

Your requirement is not clear.

Please post an example of your table along with the expected result.

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[Xsi]

sorry I have already solved it

Sub CompareLists()
Dim Rng As Range, RngList As Object

Set RngList = CreateObject("Scripting.Dictionary")


For Each Rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
  If Not RngList.Exists(Rng.Value) Then
    RngList.Add Rng.Value, Nothing
  End If
Next

For Each Rng In Range("E1", Range("E" & Rows.Count).End(xlUp))
  If RngList.Exists(Rng.Value) Then
    Rng.Clear
  End If
Next

End Sub

 

[Darrylles]

Or, even better:

Private sub CompareList(rCol as String)
	Dim Rng As Range 
	Dim RngList As Object

	Set RngList = CreateObject("Scripting.Dictionary")

	For Each Rng In Range(rCol, Range(Left(RCol,1) & Rows.Count).End(xlUp))
  		If Not RngList.Exists(Rng.Value) Then
    			RngList.Add Rng.Value, Nothing
  		End If
	Next
End sub

Now call it twice (or a thousand times):

ComapareList("A1")
ComapareList("E1")
...
CompareList(......

ATB,

Darrylle

Never argue with an idiot, he'll bring you down to his level - then beat you with experience.