Macro werkt niet goed

[erik havinga]

Wellicht kan iemand een naar deze macro kijken die de waardes van 2 kolommen vergelijkt en de dubbele waardes in kolom B zet. Binnen no-time verschijnen de waardes in kolom B maar de macro blijft tot in den treure doorlopen. Een kleine aanpassing, misschien?

Bedankt voor de support

Erik

PS:hierbij de macro:

Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Stel CompareRange in op het bereik waarmee u de selectie
    ' wilt vergelijken.
    Set CompareRange = Range("C1:C100")
    ' Doorloop elke cel in de selectie en vergelijk deze met
    ' elke cel in CompareRange.
    For Each x In Selection
        For Each y In CompareRange
            If x = y Then x.Offset(0, 1) = x
        Next y
    Next x
End Sub

 

[Cobbe]

Daar hoef je toch geen macro voor, zet volgende formiule in B2 en trek deze door naar beneden:

=ALS(AANTAL.ALS(A:A;C2)>0;"x";"")

 

[erik havinga]

Bedankt voor je reactie. Ik heb de formule gekopieerd maar hij werkt niet. Ik zie "C2" ook niet oplopen als ik de formule naar beneden trek, dat moet toch?

 

[Cobbe]

Dan doe je toch iets mis want die C2 moet wijzigen volgens het rijnummer.

Maar ik heb de formule voor jou ingepast.

 

[spaarie]

Hierbij een vb'tje zoals Cobbe bedoeld, maar heb alleen de formule andersom gezet...

=ALS(AANTAL.ALS(C:C;A2)>0;"x";"")

Anders zijn de blanco cellen in kolom B, de niet-dubbele van kolom C. Ik persoonlijk vind het niet handig, maar dat is natuurlijk vrije keus...

 

[erik havinga]

dank aan allen!