Dubbele regels verwijderen verspreid over 2 werkbladen

[Robert Smidt]

Hallo,

Ik werk met één bestand in Excel dat bestaat uit twee werkbladen t.w. (blad 1 en blad 2). Beide werkbladen zijn gevuld met regels, echter staan er gegevens (regels) in werkblad 2 die ook soms in werkblad 1 staan. Het is mijn bedoeling om die regels te voorzien van rode tekst, dit in tegenstelling tot de titel die ik niet meer kon aanpassen.

Voor de duidelijkheid
Het systeem gaat opzoek naar identieke nummers die zowel in werkblad 2 (blad 2) als werkblad 1 (blad 1) in "kolom b" staan. Wanneer een nummer vanuit werkblad 2 (blad 2) overeen komt met dat nummer in werkblad 1 (blad 1), dan moet het systeen de hele regel in werkblad 1 (blad 1) voorzien van rode tekst.

Alvast bedankt.

Robert

 

[Warme bakkertje]

Hier kunnen we mee starten.

Sub tst()
    With Sheets("Blad2")
    For Each cl In .Range("B1:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
        Set fNumber = Sheets("Blad1").Columns(2).Find(cl, , xlValues, xlWhole)
        If Not fNumber Is Nothing Then fNumber.Font.ColorIndex = 3
    Next
    End With
End Sub

 

[Robert Smidt]

Bijna

Bedankt Rudi,

De code werkt bijna goed, alleen maakt hij de data in kolom b rood en niet de hele regel, zie jij een mogelijkheid dat ik dat geregeld krijg.

Alvast super bedankt.

Robert

 

[Warme bakkertje]

Sub tst()
    With Sheets("Blad2")
    For Each cl In .Range("B1:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
        Set fNumber = Sheets("Blad1").Columns(2).Find(cl, , xlValues, xlWhole)
        If Not fNumber Is Nothing Then Range(fNumber.Address).Resize(, 3).Font.ColorIndex = 3
    Next
    End With
End Sub

De 'Resize' breidt je uit naar het aantal kolommen dat gekleurd moet worden.

 

[Robert Smidt]

Bedankt voor de oplossing, ik ga het morgen gelijk uitproberen.

 

[Robert Smidt]

Het werkt

De code werkt perfect, hartelijk bedankt en alvast hele fijne dagen.

mvrgr.
Robert

 

[Warme bakkertje]

Voor mij veeeeeeel werk in't verschiet maar ik zou zeggen, geniet ervan.:thumb: