vullen van een cel

[Pa Dalton]

Wie heeft voor mij een macro om een cel te vullen als....

Uitleg: ik heb een serie cellen waarin aan de hand van een letter deze gevuld wordt met een kleur.

letters die je invult zijn:
v= rood
b= lichtoranje
m=blauw
en de n=groen
als er een andere letter (of cijfer) ingevoerd wordt moet de cel een afwijkende kleur krijgen (b.v. zwart).

Misschien is het ook wel mogelijk om deze cel te laten knipperen?

Via voorwaardelijke opmaak is dit niet meer mogelijk (3 voorwaarden al gebruikt)
dus het zou via een macro moeten.

Wie kan me helpen?

alvast bedankt
Pa Dalton

 

[Wigi]

Om welke cellen gaat het?

Moet dat constant geupdate worden, of is het drukken op een knop voldoende?

 

[Pa Dalton]

Hallo Wigi,

als het mogelijk is moet het wel continue geupdate worden anders moet ik haast bij elke cel op een knop drukken.

Het gaat om de cellen C3:I4, C13:I17, C21:I28, M3:S6, M13:S17

Pa Dalton

 

[popipipo]

Zie onderstaande link voor knipperende cellen

http://exceltips.net/idx/5/089/Text_Editing_and_Format/article/Blinking_Text.html

Ik heb het zelf niet uitgeprobeerd.

Succes

 

[Wigi]

OK, midden in de nacht, maar heb nog wat kunnen doen voor jou.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngBigRange As Range, rngInters As Range, c As Range
    
    Set rngBigRange = Range("C3:I4,C13:I17,C21:I28,M3:S6,M13:S17")
    
    Set rngInters = Intersect(rngBigRange, Target)
    
    If Not rngInters Is Nothing Then
        For Each c In rngInters
            Select Case c
                Case "v"
                    c.Interior.ColorIndex = 3
                Case "b"
                    c.Interior.ColorIndex = 40
                Case "m"
                    c.Interior.ColorIndex = 32
                Case "n"
                    c.Interior.ColorIndex = 35
                Case Else
                    c.Interior.ColorIndex = 1
            End Select
        Next
    End If
End Sub

Plak deze code achter het blad waar je het nodig hebt. Indien het niet lukt, vraag maar op.

Wigi

 

[Pa Dalton]

Hardstikke bedankt Wigi, het werkt.

Pa Dalton

 

[Wigi]

Hardstikke bedankt Wigi, het werkt.

Pa Dalton

You're welcome.

Groeten aan Joe, Jack, William en Averell

Wigi

 

[Pa Dalton]

Ik heb de groetjes bezorgt,

Namens de rest van de fam. bedankt en de groeten terug.

Pa Dalton