Voorwaardelijke opmaak

[ronaldje]

Ik ben een leveranciersoverzicht aan het maken , en nu wil ik dat als er een naam van een bepaalde leverancier wordt gekozen uit een lijst dat de betreffende cel een kleur krijgt .
Nu kan ik ze wel via de voorwaardelijke opmaak een kleurtje geven maar niet meer dan 3.
Is er een mogelijkheid om dit te omzeilen ?

Ronald

 

[Justes]

Hallo Ronald,

Alleen met VBA, maar dan moet je het bestandje hier plaatsen.

Gr Joop

 

[ronaldje]

Hier het bijbehorende bestand

Joop hier het bijbehorende bestand.

Ronald

 

[Wigi]

ronald

plak dit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim rIntersect As Range
    Dim r As Range
    
    If Not Intersect(Target, Columns(2)) Is Nothing Then
    
        Set rIntersect = Intersect(Target, Columns(2))
        
        For Each r In rIntersect
            
            Select Case r.Value
            
                Case "Ardagh Dtsl,Wirges"
                    
                    r.Interior.ColorIndex = 6 'geel
                    
                Case "O-I France"
                
                    r.Interior.ColorIndex = 3 'rood
                    
                '...
                
            End Select
            
        Next
    
    End If
    
End Sub

onder

Private Sub CommandButton1_Click()
    OI_Nl.Show
End Sub

Hier staan kleurnummers: http://www.mvps.org/dmcritchie/excel/colors.htm

Wigi

 

[Wigi]

In deze topic was ook heel gelijkaardige code te vinden:

http://www.helpmij.nl/forum/showthread.php?t=325423

En dat is een recente topic...

 

[ronaldje]

Werkt wel maar niet top

Hoi Wigi bedankt voor je raad.
De code geplakt , hij werkt wel maar niet zo lekker.
Als ik via valderen uit de lijst en leverancier kies dad kleurt de cel niet op , maar moet ik er eerst nog een keer dubbel in klikken.En ook als de regel wordt gewist dan blijft de leverancierscel gekleurd.
Is dit nog te verhelpen?

Ronald

 

[Wigi]

Als jij liever

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

gebruikt, terwijl ik

Private Sub Worksheet_Change(ByVal Target As Range)

in de code gezet heb, tja, dat moet jij weten

 

[ronaldje]

Je hebt gelijk Wigi

Dat werkt inderdaad beter Wigi , alleen het tweede punt is nog niet verholpen.
Als ik de betreffende cel wis blijft de kleur nog.
Is dit te verhelpen?

Ronald

 

[Wigi]

Voeg dan een extra Case bij:

Case Else
                    
                    r.Interior.ColorIndex = xlNone

Wigi

PS: probeer ook te snappen wat er in de code gebeurt, dan leer je er nog wat van Bij vragen kan je ze gerust stellen.

 

[ronaldje]

Bedankt Wigi

Dit is precies de bedoeling Top hoor

Ronald

 

[Justes]

Hallo Ronald,

Dit is ook een oplossing, zie bijlage.
Cel selecteren en op de knop klikken die van toepassing is.

Gr Joop