colorindex

Status
Niet open voor verdere reacties.
P

peggytje

Nieuwe gebruiker
Lid geworden
16 mei 2016
Berichten
2
hallo ieder1,

ik heb een tabel met punten van bvb a1 tot f10 waar er punten in staan van 0 tot 10 en de bedoeling daarvan is dat je met de colorindex de cijfers die <5 in rood staan. het is met een zelfgemaakte knop. ik heb gebruikt :

activecell.sellect
if activecell<5 then
activecell.interior.color = vbred


als ik op de knop druk wordt dit wel rood maar de bedoeling is dat als je bvb op cel k555 staat en je klikt op de knop dat dit niet mee rood wordt en dat gebeurt spijtig genoeg wel :confused:

weet iemand soms of soms goed bezig ben?
zo niet? kan iemand me soms helpen of een tip geven?



dank bij voorbaat.
 
Als de tabel vast is, kun je beter door de hele tabel lopen ineens als je op de knop drukt. Je macro werkt op "activecell", de actieve cel dus. Het werkt in principe zelfs op andere tabbladen.
 
Hoi,
Plak deze onder uw knop
Code: 
Dim myRange As Range
Dim cell As Range
Set myRange = Range("A1:F10")
    For Each cell In myRange
    If cell.Value < 5 And Not IsEmpty(cell.Value) Then
    cell.Interior.Color = vbRed
    Else
    cell.Interior.Color = xlNone
    End If
    Next
 
Daarvoor heeft MS voorwaardelijke opmaak bedacht.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan