Tweede stap vergelijken

[kohltje]

Hallo,

Ik heb de eerste stap dankzij jullie opgelost en ervan geleerd
Nu de tweede stap:
in de bijlage treffen jullie het bestand aan waar het om gaat test2.xls.
Ik ben aan de slag gegaan maar loop tegen mijn geringe kennis aan
- In de kollommen C en H staan nagenoeg dezelfde codes. Deze moeten met elkaar vergeleken worden. De kollom C is leading wat wilt zeggen dat de gegevens die hier in staan de bron gegevens zijn en in de G kollom de gegevens die niet geheel met C overeenkomen. De gegevens die IN kollom G staan die NIET in C voorkomen mogen verwijderd worden.
- Als de gegevens vervolgens met elkaar vergeleken zijn en de overbodige gegevens zijn verwijderd wil ik graag dat hij de kollomen I t/m R achter de vergeleken gegevens komen te staan.

De uitkomst zoals het moet zijn staat in de bijlage onder Test21.xls

Hopenlijk kunnen jullie mij helpen?

 

[exhelp]

Zoiets?

In kolom "G" kan je nu filteren op de waarden die afwijken, en daarna schrappen

Bekijk bijlage Test21.xls

 

[kohltje]

Bedankt maar niet de oplossing

Hoi,

De gegevens die je hebt bewerkt zijn al de uitkomst
Wat namelijk is met jou bestand:
- de gegevens in test21.xls zijn namelijk al bewerkt en zijn al juist. Als je naar het document test2.xls kijkt zie je dat dit hier niet werkt. De gegevens zijn namelijk niet gelijk (wat in de kollom en rijen van C en G staat is ongelijk in test2.xls)
De gegevens die bewerkt dienen te worden bevinden zich in test2.xls.
Hoop dat het duidelijk is (en mijn vorige verhaal)

Bedankt alvast

 

[kohltje]

foutjes

Zover ben ik zelf met de macro gekomen maar er zit een foutje in

Sub Vergelijk()
For f = 2 To 3000
For g = 3 To 4

If Cells(f, g) <> Cells(g + 6) Then Cells(f, 21) = "klopt niet"
Next g
Next f


End Sub

 

[Roncancio]

Sub Vergelijk()
For f = 2 To 3000
For g = 3 To 4

If Cells(f, g) <> Cells([B][COLOR="Red"]g + 6[/COLOR][/B]) Then Cells(f, 21) = "klopt niet"
Next g
Next f


End Sub

Hier zit de fout.
Bij Cells moet je zowel de kolom als rij aangeven.

Met vriendelijke groet,


Roncancio