Zoeken op items vanuit ander werkblad

[Robert Smidt]

Beste Forumleden,

Ik heb een vba-code om vanuit de bron (werkblad 'Zoekwaarden' (kolom A)) te zoeken op de aldaar aanwezige items in het doelblad (werkblad 1000 Kas origineel). Op zich werkt de formule, echter wanneer één van de items vaker dan één maal in werkblad 1000 Kas origineel staat, dan wordt deze niet gevonden. Het is de bedoeling dat iedere regel in het doelblad rood wordt wanneer in de kolommen O t/m AG één van de items vanuit het bronblad waargenomen wordt.

Volgens mij zit de oplossing in:

Set fnumber = Sheets(Doelblad).Columns("O:AG").Find(cl, , xlValues, xlWhole) 'doelmap

Voornoemde code zal aangepast moeten worden zodat alle items vanuit het bronblad gevonden wordt in het doelblad.

Alvast heel hartelijk dank.

Robert

 

[HSV]

Haal de asterisk (*) in kolokm A weg bij alle woorden in blad Zoekwaarden.

Sub bemiddelingzoeken()
Doelblad = Blad2.Range("c2")
With Sheets("Zoekwaarden") 'bronmap
    For Each cl In[COLOR=#ff0000] .Range("A2", .Cells(Rows.Count, 1).End(xlUp))[/COLOR]
        Set c = Sheets(Doelblad).Columns("O:AG").Find(cl, , xlValues,[COLOR=#ff0000] xlPart[/COLOR]) 'doelmap
[COLOR=#ff0000]            If Not c Is Nothing Then[/COLOR]
[COLOR=#ff0000]               firstaddress = c.Address[/COLOR]
[COLOR=#ff0000]         Do[/COLOR]
[COLOR=#ff0000]            c.EntireRow.Font.ColorIndex = 3 'hele rij rood[/COLOR]
[COLOR=#ff0000]            Set c = Sheets(Doelblad).Columns("O:AG").FindNext(c)[/COLOR]
[COLOR=#ff0000]         Loop While Not c Is Nothing And c.Address <> firstaddress[/COLOR]
[COLOR=#ff0000]      End If[/COLOR]
[COLOR=#ff0000]     firstaddress = ""[/COLOR]
    Next
End With
End Sub

 

[Robert Smidt]

Harry, de code werkt perfect, hier ben ik ontzettend blij mee en wil je hiervoor hartelijk bedanken. :thumb:

 

[HSV]

Graag gedaan Robert.