VBA waarden controleren

[Dennisjuhh]

Hoi Allemaal,

Is het mogelijk om met een vba code te kijke of er dubbele waarden staan in 2 kolommen? Dus dat hij echt 2 kolommen met elkaar vergelijkt. Zodra er dubbele waarden zijn dat deze 2 waarden groen worden gekleurd?

 

[Demeter]

Kijk eens naar voorwaardelijke opmaak icm formule

=AANTAL.ALS($B$2:$B$9;A2)

In voorbeeld boven heeft cel A2 een voorwaardelijke opmaak met de gegeven formule.
Deze formule kijkt naar de inhoudt in bereik B2:B9 en als waarde in cel A2 voorkomt dan is de waarde waar en wordt de opmaak uitgevoerd.

 

[Demeter]

Kijk ook eens op volgende pagina:
http://www.mrexcel.com/forum/excel-questions/713210-macro-compare-two-columns-identify-duplicates.html

Daar staat bovenstaande optie ook maar in voglend antwoord krijg je netjes een uitleg voor je probleem met VBA oplossing.

 

[Dennisjuhh]

Ik probeer de vba code maar ik krijg steeds een fout, zie het voorbeeldbestand. Hij geeft aan dat het werkblad niet goed is, terwijl dit volgens mij wel zo is. De macro zit onder de knop.

Bekijk bijlage dubbele waarden fout.xlsm

 

[Dennisjuhh]

Demeter, je aantal.als formule werkt trouwens uitstekend! Bedankt hiervoor!

 

[Roncancio]

Nee, het werkblad is niet goed omdat je geen aanhalingstekens hebt gebruikt.
Zonder deze tekens zoekt VBA naar de variabele Afloopcontrole die er uiteraard niet is.
Vandaar de foutmelding

Dus in plaats van ...

    Set sh = Sheets(Afloopcontrole)

... moet het zijn ...

    Set sh = Sheets("Afloopcontrole")

Met vriendelijke groet,


Roncancio

 

[Dennisjuhh]

Ah super, ik leer het wel=) Danku!

 

[Dennisjuhh]

Zou er ook nog iets kunnen van, dat als er geen waarden staan, dat hij niks doet? Ik wil graag dat hij bereik heeft van 1000 regels. Maar dan maakt hij ook lege regels groen=) Dus alleen waar waarden in staan. Moet hij naar kijken.

Bedankt!

 

[Demeter]

Probeer eens je zoek bereik te bepalen.
Ga er nu vanuit dat je een for functie gebruikt:

For each cell in Range("A1:A1000") then

Je kan je bereik inkrimpen mbv het stellen van je laatst gebruikte regel:

For each cell in Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) then

Waar we ervanuit gaan dat er niet nog meer gegevens in kolom A staan onder regel 1000

Je zou ook nog een simpele check kunnen doen op de inhoudt van je cel.

If cell.value is empty then next cell

Succes.

 

[Dennisjuhh]

Ik ga er mee aan de slag, zit ook al diverse tutorials voor vba voor beginners te bekijken. Erg bedankt mannen=)