Opmaak kolom

[wientje87]

Hallo,

Ik ben nieuw hier.
Zat te zoeken of er een oplossing is voor mijn probleem maar niet gevonden
Daarom dat ik deze topic open.

In de Kolom van Status is er een keuzelijst.
Die keuzelijst staat daar onder maar ik wil ook dat hij de kleur gaat meenemen.

Heeft iemand hier een oplossing voor??

Alleen office 2003, omdat het voor kantoor is.

Alvast bedankt.

 

[danny147]

Beste wientje87

Zie bestandje.

Groetjes Danny. :thumb:

 

[wientje87]

Alvast bedankt.
Als ik maandagochtend op kantoor ben dan laat ik nog een bericht achter

:thumb:

 

[Roncancio]

Beste wientje87

Zie bestandje.

Groetjes Danny. :thumb:

In plaats de Select Case had je het voor jezelf nog wat makkelijker kunnen maken dmv een zoekfunctie.
Bijvoorbeeld:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Column = 5 And Target.Row >= 3 Then
        Set c = Range("A21:A100").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
        If Not c = Nothing Then Target.Interior.ColorIndex = c.Interior.ColorIndex
    End If
    Application.ScreenUpdating = True
End Sub

Stel dat er nieuwe of meerdere lettercombinaties worden geplaatst of men gebruikt andere kleuren, dan hoef je de code niet aan te passen.
Gemak dient de mens.

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

Krijg toch een foutmelding in uw code.
Zie ook bestandje waar de code instaat.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Column = 5 And Target.Row >= 3 Then
        Set c = Range("A21:A100").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
        If Not c = [COLOR="Red"][B]Nothing[/B][/COLOR] Then Target.Interior.ColorIndex = c.Interior.ColorIndex
    End If
    Application.ScreenUpdating = True
End Sub

Groetjes Danny. :thumb:

 

[Roncancio]

Oeps

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Column = 5 And Target.Row >= 3 Then
        Set c = Range("A21:A100").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
        If Not c [COLOR="Red"][B]Is[/B][/COLOR] Nothing Then Target.Interior.ColorIndex = c.Interior.ColorIndex
    End If
    Application.ScreenUpdating = True
End Sub

De = moet Is zijn.

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

Deze werkt perfect :thumb:

Zo heb ik ook nog iets bijgeleerd vandaag :thumb:

Groetjes Danny. :thumb:

 

[wientje87]

Hey ik open dat laatste bestandje dat is geload, maar ik snap niet waar ik die code moet plaatsen.

Kunnen jullie mij daarmee helpen?

 

[danny147]

Beste wientje87

Open de VBA editor via ALT+F11 te typen.

Plak dan de code van Roncancio in BLAD1

Succes

Groetjes Danny. :thumb: