VBA gebruiken om PMS kleuren te benaderen in excel

[Patrieck]

Geachte ...
Ik wil graag in excel een cel een kleur geven dmv de RGB waarden, maar ik weet niet goed hoe ik dit moet aanpakken.
in bijgaand testbestandje het ik een opzetje gemaakt en de 1e paar kleuren handmatig ingekleurd dmv het kleuren pallet (RGB waarden)
Is er iemand die me hiermee kan helpen omdit dmv VBA te doen.
De uiteindelijke lijst is nl. veel langer en alles handmatig invoeren is veel werk
Alvast bedankt voor de moeite

Met vriendelijke groet,

Patrieck Eilander

 

[snb]

Kijk eens in de VBEditor bij RGB() voor een kleurenpalet (dat geen dienst doet in het magazijn i.t.t. pallets).

 

[jackall]

Het doel ontgaat mij om dit in excel te doen.
Deze lijst kan je ook gebruiken.
Deze laat precies zien wat jij wilt bereiken in excel

 

[Patrieck]

Hoi, dank jullie voor de reacties!
Het doel is om voor een drukkerij een (preview) van de kleur te genereren in excel.
Daarom ben ik " helaas " gebonden aan excel.
Maar misschien kan ik die laatste lijst importeren en dmv verticaal zoeken mijn doel behalen.

mvg

Patrieck

 

[alphamax]

Je kan http://it.labelpartners.com/pantone_coated_table.html opslaan als .html.
Daarna kan je de .html openen in excel.

 

[OctaFish]

Je kunt anders die pantone lijst gewoon kopiëren en plakken in Excel. Ben je in één keer klaar.

 

[Patrieck]

Plakken PMS lijst

Allemaal bedankt voor het meedenken, maar ik ben er nog niet helemaal.
Ik heb de lijst met PMS in excel staan.
Stel nou ik type in een cel PMS 130 (dus 130) hoe kan ik dan de achtergrond van die cel "pms130" laten kleuren.
Ik heb dit geprobeerd d.m.v. vertikaal zoeken, maar die functie neemt geen opmaak mee alleen maar de inhud van de cellen.

 

[snb]

Dat gaat niet lukken met Excelformules. Daarvoor heb je VBA nodig.

 

[Patrieck]

Ik denk dat ik er bijna ben, nog 1 vraag. hoe kan ik in onderstaande formule de kleur aanpassen volgens de waardes uit 3 cellen (rgb schaal)
Deze waardes kan ik nl. wel opzoeken dmv verticaal zoeken in excel

Range("J2").Select
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 56830
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

 

[OctaFish]

Hiermee kun je de kleur van één cel instellen.

Function Kleur()
Dim rng As Range
    Set rng = ActiveCell
    rng.Interior.Color = RGB(rng.Offset(0, 1), rng.Offset(0, 2), rng.Offset(0, 3))
End Function