rijen kleuren

[stefano]

Ik probeer met voorwaardelijke opmaak een rij te kleuren wanneer het cijfer binnen die rij verandert. Niettemin lukt me dit niet.

Een voorbeeldje in bijlage.

Stefano

 

[Cobbe]

De vraag niet goed gelezen.

Cobbe

 

[Marcel79]

Ha Stefano,

Ik denk dat ik de vraag ook niet begrijp. In je voorbeeld schrijf je

... een cel anders te laten kleuren wanneer die verschilt van de voorgaande cel in dezeflde rij

Zoals ik dat begrijp wil je dan cel V25 anders laten kleuren als de waarde anders is dan U25, en cel W25 anders laten kleuren als die afwijkt van V25, etc. etc.
Waarbij dus telkens gekeken wordt naar de cel op dezelfde rij, een kolom terug.

Het 'ik raak niet verder dan'-stuk in je voorbeeld doet precies dat, dus volgens mij zie ik niet waar het dan niet goed gaat.

Anders gezegd, wat is de reden dat in je voorbeeld alle cellen met een 8 gekleurd moeten worden en die met een 7 of een 9 niet?

 

[stefano]

Elk nummer correspondeert met een persoon. Bedoeling is persoon a van persoon b te onderscheiden in eenzelfde rij. Zo krijg je telkens afwisselend een gekleurde en niet-gekleurde blok van identieke cijfers.

4 4 4 4 5 5 5 5 4 6 6 6 6 of

7 4 7 7 4 4 7 of

4 7 4 7 4 7 4 7

 

[Marcel79]

Dank voor je uitleg, het is mij helder, denk ik.

Ik denk niet dat dit met voorwaardelijke opmaak te doen is eigenlijk, en anders zou ik het heel graag willen weten.

Ik vermoed dat je met VBA aan de slag moet, is dat een optie?

 

[popipipo]

Bedoeling is persoon a van persoon b te onderscheiden in eenzelfde rij

Om hoeveel personen gaat het?
Als het niet teveel personen zijn kun je er voor kiezen om elk persoon een kleurtje te geven.

 

[danny147]

Beste stefano

Werk je met Excel 2003 dan kan je 3 voorwaarden in de voorwaardelijke opmaak plaatsen.
Of met VBA code kan dit ook.

In Excel 2007 heb je meer mogelijkheden in de voorwaardelijke opmaak.

Groetjes Danny. :thumb:

 

[stefano]

Het gaat om 12 personen. Als het in VBA kan , mij goed, maar mijn kennis is niet goed genoeg voor VBA en dan hoor ik niet thuis op dit forum, vandaar mijn vraag om het met voorwaardelijke opmaak te proberen...

toch bedankt voor jullie reacties

( ik heb excel 2002 )

 

[Cobbe]

Ja nu snap ik hem ook. :thumb:

Met deze code lukt dat wel:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
For Each rng In Target
    With rng
        If Not Intersect(rng, Range("U25:AD29")) Is Nothing Then
            Select Case .Value
            Case 1
                .Interior.ColorIndex = 36
            Case 2
                .Interior.ColorIndex = 35
            Case 3
                .Interior.ColorIndex = 40
            Case 4
                .Interior.ColorIndex = 37
            Case 5
                .Interior.ColorIndex = 19
            Case 6
                .Interior.ColorIndex = 45
            Case 7
                .Interior.ColorIndex = 47
            Case 8
                .Interior.ColorIndex = 48
            Case 9
                .Interior.ColorIndex = 49
            Case 10
                .Interior.ColorIndex = 50
            Case 11
                .Interior.ColorIndex = 51
            Case 12
                .Interior.ColorIndex = 52
            Case Else
                .Interior.ColorIndex = xlNone
            End Select
        End If
    End With
Next
End Sub

Je moet wel nog de kleuren aanpassen.

Cobbe

 

[stefano]

Cobbe,

Dank voor de oplossing. Dit is wat ik nodig had.

:thumb:

Stefano