Cel opmaak op basis van een formule

[Bonjorno50]

Beste lezer,

Ik probeer al een tijdje om de cel opmaak aan te passen op basis van een formule, maar ik kom er niet uit. Het probleem is als volgt: ik heb in één werkblad de ''locaties'' staan, dit zijn getallen. In een ander werkblad staan deze getallen ook, maar dan met een kleur. Deze kleur moet overgenomen worden in het 1e werkblad met de locaties. Ik heb geprobeerd bij de voorwaardelijke opmaak om gebruik te maken van een ALS functie maar dit heeft niet tot succes geleid. Daarnaast zijn er locaties die verschillende kleuren hebben, deze zouden dan een gecombineerde kleur moeten krijgen, maar dat is misschien nog iets voor later. Ik heb het document bijgevoegd.

Bij voorbaat dank!

Mvg

 

[HSV]

Met een macrootje.

Sub hsv()
Dim cl As Range, c As Range
Application.ScreenUpdating = False
For Each cl In Sheets("indeling").UsedRange.SpecialCells(2)
 Set c = Sheets("locatie kleuren").UsedRange.Find(cl, , xlValues, xlWhole)
   If Not c Is Nothing Then cl.Font.Color = c.Font.Color
 Next cl
End Sub

 

[Bonjorno50]

Het werkt, bedankt! Heb je misschien nog een tip voor de locaties die meerdere kleuren hebben?

 

[HSV]

Dat zou een erg langdurige code worden waar je niet gelukkig van wordt.

 

[Ginger]

Mogen er bij jou dan op 1 lokatie meerdere artikelen liggen? Of kan je zo'n lokatie inzetten voor meerdere type artikelen maar zal er altijd maar 1 artikel liggen?
Overigens begrijp ik niet wat je sheet "kleuren onder elkaar" nou precies weergeeft. Hier staan van sommige lokaties enorm véél doublures en dan niet eens allemaal in verschillende kleuren. Wat is dus met dat brondocument aan de hand?