Kleur veranderen van een cel

[janusvl]

Ik wil graag de kleur van een cel veranderen als de waarde van een andere cel gelijk is aan Ja

Ik heb een lijst met 599 waardes ja of leeg deze rij is CC
als de waarde ja is moet cel a geel worden

Dus als CC1 Ja is moet cel A1 geel worden. Maar dit moet 599 keer.

Is er iemand die een idee heeft hoe dit makkelijker kan dus niet 599 keer met de had de formules er in zetten


janus

 

[janusvl]

Laat maar

Laat Maar ik heb het zelf op weten te lossen met een macro

Sub test()
'
' test Macro
' Macro recorded 30-10-2009 by jvlimpt
'

'
Dim i As Integer
 Dim c As String
 i = 2
  Do
        
      c = "A" & i
      r = "CC" & i
    Range(c).Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=IF(" & r & " = ""Ja"";TRUE;FALSE)"
    Selection.FormatConditions(1).Interior.ColorIndex = 44
    
            i = i + 1
            If i = 599 Then Exit Do

        Loop
        
    
End Sub

 

[WimenBeer]

Janus,

Daar is een veel eenvoudigere oplossing voor:
Voorwaardelijke opmaak in het tabje [Opmaak]
Daar kan je met een formule opgeven welke kleur een cel moet krijgen

Kijk daar even naar.
formule zou moeten worden in de cellen in kolom A

=CC1="Ja"

Wim

 

[janusvl]

Janus,

Daar is een veel eenvoudigere oplossing voor:
Voorwaardelijke opmaak in het tabje [Opmaak]
Daar kan je met een formule opgeven welke kleur een cel moet krijgen

Kijk daar even naar.
formule zou moeten worden in de cellen in kolom A

=CC1="Ja"

Wim

ja maar als je da 599 keer moet doen is mijn script makkelijker

janus

 

[Warme bakkertje]

Als het toch maar louter controle is, waarom dan 600 VW-opmaken plaatsen?

Sub tst()
For i = 1 To 599
Cells(i, 1).Interior.ColorIndex = IIf(Cells(i, 81).Value = "Ja", 44, xlNone)
Next i
End Sub

 

[WimenBeer]

ja maar als je da 599 keer moet doen is mijn script makkelijker

janus

Nee, dat is niet zo.
Je vult deze opmaak in in cel A1.
Daarna kopieren Ctrl-C.
Alle 599 cellen in A selecteren
Plakken Speciaal/Opmaak en overal staat deze opmaak in.

Appeltje eitje

Wim

 

[janusvl]

Nee, dat is niet zo.
Je vult deze opmaak in in cel A1.
Daarna kopieren Ctrl-C.
Alle 599 cellen in A selecteren
Plakken Speciaal/Opmaak en overal staat deze opmaak in.

Appeltje eitje

Wim

zover had ik er inderdaad niet over nagedacht maar mijn macro werkte ook

toch bedankt

janus

 

[WimenBeer]

zover had ik er inderdaad niet over nagedacht maar mijn macro werkte ook

toch bedankt

janus

Janus,

Dat is waar maar als je er ook maar een regel bij maakt moet je er wel aan blijven denken dat je de macro aanpast.

Dus,...????