kleuren cellen

[steelinadje]

je kunt bij voorwaardelijke opmaak een cel een andere kleur geven.
Maar als deze niet aan de voorwaarde voldoen krijgen ze een andere kleur.
Ik wilde nu weten of dit niet in een macro kan of vba.

Bijv : als ik in c5 een score zet moet de kleur van c5;c6;c7;c8;c9 van kleur veranderen.

hoe doe ik dit met een macro.

Graag wat hulp hierover.

Groeten ad

 

[gast0225]

Misschien een hele domme opmerking van mij, maar:

op dezelfde manier als dat je het handmatig doet, alleen dit keer "loopt" de macro-recorder, of bedoel je het anders?

 

[jzeedijk]

Hoi Adje,

Volgens mij heb je geen macro of VBA nodig hiervoor.

Stel dat je de kleur wilt wijzigen als in C5 een positieve of negatieve waarde staat:
Blok C5:C9
Opmaak -> Voorwaardelijke opmaak
Formule is kiezen
Voorwaarde1: =$C5<0
Kies opmaak voor negatieve waarden
Voorwaarde 2: =$C5>0
Kies opmaak voor positieve waarden

Jeroen

 

[Marrosi]

Sub VeranderKleur()
If Range("C5").Value > 0 Then
Range("C5:C9").Interior.ColorIndex = 7
End If
End Sub

 

[jpvs]

Misschien een oplossing?

Tussen 0 en 10 = GROEN
Tussen 11 en 20 = Donker GROEN enz
telt wel voor alle cellen

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

With Target

Select Case .Value
Case 0 To 10
.Interior.ColorIndex = 43
Case 11 To 20
.Interior.ColorIndex = 10
Case 21 To 30
.Interior.ColorIndex = 5
Case 31 To 40
.Interior.ColorIndex = 18
Case 41 To 50
.Interior.ColorIndex = 30
Case Is > 50
.Interior.ColorIndex = 3
Case Else
.Interior.ColorIndex = xlNone
End Select

End With

End Sub

Pierre

 

[steelinadje]

kleur cellen

Ik heb een voorbeeld toegevoegd wat mijn probleem misschien duidelijker maakt.

In Kolom c en g staan de deelnemers.
In Kolom d en f komen de uitslagen.
In Kolom h komt het bordnummer.
Als ik nu een bordnummer invoer bijv 1 t/m 12 moeten de cellen van c5:h5 groen worden gekleurd.
Als ik een uitslag invoer in kolom d en f moeten de cellen c5:h5 rood worden gekleurd.
Als er niets ingevoerd wordt moet de kleur hetzelfde blijven.

Dit om te laten zien dat als de cel oranje is de wedstrijd nog gespeeld moet worden.
Groen wil zeggen dat de wedstrijd wordt gespeeld.
Rood als de wedstrijd gespeeld is.

De cellen c en g zijn beveiligd zodat de namen niet gewist of veranderd worden, want deze worden ingevuld via een ander werkblad.

 

[Imod]

Misschien zo

zie bijlage

mvg Imod

 

[steelinadje]

niet voldoende

de oplossingen die tot nu toe zijn aangerijkt waren niet voldoende of niet compleet genoeg.

De bedoeling is dat als ik een bordnummer invoer alle cellen groen worden(Bijv c5:c10 waarin c10 het bordnummer moet worden ingevoerd)

Als ik de uitslag invoer moeten de cellen c5:c10 rood worden gekleurd.

Zie ook de voorbeelden.

Mijn dank aan die hier op gereageerd hebben.

 

[jpvs]

Uit de vorige oplossingen kon dit ervan maken :

 

[steelinadje]

oplossing

hallo jpvs,

Bedankt voor deze oplossing.

Maar nu is mijn vraag hoe je dit gedaan hebt,zodat ik dit kan toepassen.
Is het misschien ook mogelijk dat als je de uitslag invult hij automatisch het bordnummer verwijderd.

Dit werkt perfect,graag nog een uitleg van hoe ik dit moet toepassen in mijn programma.

 

[jpvs]

Eerst Blad beveiliging opheffen.
Zet de cursor op cel C5 via Opmaak / Voorwaardelijke opmaak hier zie de 2 formules die naar de cellen verwijzen + de opmaak (voor een kleur te kiezen).
Voor meer uitleg zie de site van Ingrid : Opmaak --> Voorwaardelijke opmaak
http://users.pandora.be/ingrid/excel/

Zet dit acher het Blad1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(0, 4) = ""
End If
End Sub
Dit wil zeggen typt in kolom D iets en er word automatisch in kolom H alles verwijderd.

Pierre