wijzigingen tonen

[computerfreak08]

ik heb een werkbald met heel veel invulvakjes.
Om het overzicht te behouden zou ik graag alle gewijzigde gegevens in een ander kleur willen laten weergeven

dat doe ik zo :

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 5
End Sub


Bij het verlaten van het werkblad dient de kleur van het lettertype van alle gewijzigde cellen terug normaal (=zwart) te zijn :

wie kan me op weg helpen ? (via Worksheet_Deactivate())

 

[Roncancio]

Cells.Font.ColorIndex = 0

Met vriendelijke groet,


Roncancio

 

[computerfreak08]

bedankt,

maar hoe kan ik dit doen alleen voor de cellen die ik gewijgd heb.

Sommige cellen hebben een andere kleur.

 

[Roncancio]

Voor een bepaald bereik én uitsluitend van rood naar zwart.

Sub Kleur_Aanpassen()
Dim rC As Range
    For Each rC In ActiveSheet.Range("A1:Z100")
        If rC.Font.Color = vbRed Then
            rC.Font.Color = vbBlack
        End If
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[computerfreak08]

Bedankt Roncancio,

Dat was wat ik zocht.

 

[computerfreak08]

Maar het blijkt toch niet te lukken.
Er gebeurt gewoon niets



Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 5
End Sub

Private Sub Worksheet_Deactivate()

Dim rC As range

For Each rC In ActiveSheet.Range("A1:Z100")
If rC.Font.ColorIndex = 5 Then
rC.Font.ColorIndex = 1
End If
Next

End Sub

 

[Roncancio]

Is de macro voor 1 werkblad van toepassing of voor meerderen?

Met vriendelijke groet,


Roncancio

 

[computerfreak08]

enkel voor 1 werkblad

 

[Roncancio]

Private Sub Worksheet_Deactivate()

Dim rC As Range

    For Each rC In Worksheets("[B]Blad1[/B]").Range("A1:Z100")
        If rC.Font.Color = vbRed Then
            rC.Font.Color = vbBlack
        End If
    Next

End Sub

Vergeet niet om de naam van het werkblad in het vetgedrukte gedeelte te zetten.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Dit kan weg:

Worksheets("Blad1").

aangezien je toch in het actieve blad al bent waar je de code hebt geplakt.

 

[Warme bakkertje]

Bij Ozgrid gaan snuffelen en dit gevonden en aangepast

Mvg

Rudi

 

[computerfreak08]

bedankt allemaal !

het werkt perfect zoals ik wou !