Macro vraag

[DBOD]

Hallo,

Ik ben nu op het forum en heb een probleem met een macro maken.
Ik was een leek met macro maar met een beetje zelf uitzoeken kan ik het nu een heel klein beetje.

Ik wil een cel laten kleuren zodra cel C2 groter is als een naastliggende cel.

De formule die ik tot nu toe heb is:

For Each cel In Range("N4:N87")
If cel.Value <= Range("C2") Then
cel.Interior.ColorIndex = 3

Nu moet de cel.value anders ingevuld worden maar ik wat er moet komen te staan.
Alvast bedankt

 

[robdgr]

Waarom niet gewoon met voorwaardelijke opmaak met als formule celwaarde >$C$2

 

[DBOD]

Ik heb meer als 3 voorwaardes op die cel liggen. Zo moet de cel groen zijn als er een datum in de cel staat, geen kleur als er nvt in staat, oranje worden als cel C2 groter is als de cel-730 dagen naast de (waar het om gaat cel). en rood worden als cel c2 groter is als de cel naast de (waar het om gaat cel).

Snapt u het nog?

 

[HSV]

Dat zijn er maar drie voorwaarden.
Geen kleur heeft het altijd.
1:Groen
2:Oranje
3:Rood

 

[DBOD]

Dat klopt helemaal,
Ik heb ook meerdere macro's in het blad zitten op andere cellen. Ik zou het graag bij de macro's laten. Dat is dan overzichtelijker. Anders heeft de ene kolom een macro en de ander voorwaardelijke opmaak

 

[HSV]

Met een voorbeeldbestandje ben je eerder geholpen.

 

[DBOD]

Een bestandje oploaden lukt niet. Hij geeft dan een fout

 

[robdgr]

Een code die ik eerder heb gezien:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    If Not Intersect(Target, Range("B:B")) Is Nothing Then
    
        With Target.Resize(1, 1).Interior
        
            Select Case Target.Value
            
                Case "M": .ColorIndex = 35
                Case "Ma": .ColorIndex = 35
                Case "Ti": .ColorIndex = 38
                Case "Fi": .ColorIndex = 37
                Case "Oi": .ColorIndex = 3
                Case "Va": .ColorIndex = 35
                Case "B": .ColorIndex = 35
                Case "Me": .ColorIndex = 38
                Case "Ms": .ColorIndex = 37
                Case "Vl": .ColorIndex = 3
                Case "S": .ColorIndex = 3
                Case Else: .ColorIndex = xlNone
                
            End Select
        
        End With
    End If
End Sub

 

[DBOD]

Bedankt voor je reactie.

Helaas heb ik hier niet zoveel aan.
Ik ben op zoek naar een verwijzing naar de cel die links van de cel waar de macro op moet draaien.

 

[DBOD]

Het lukt me wel om wat te kopieren en plakken wat ik nu heb

Sub Macro2()
'
'TSVT AB
For Each cel In Range("N4:N87")
If cel.Value = "nvt" Then
cel.Interior.ColorIndex = xlNone
Else
If Not cel.Value = "" Then
cel.Interior.ColorIndex = 4
Else
If cel.Value(Cells, -1) - 730 <= Range("C2") Then
cel.Interior.ColorIndex = 3
Else
If cel.Value(Cells, -1) - 912 < Range("C2") Then
cel.Interior.ColorIndex = 45
Else
If cel.Value(Cells, -1) - 912 >= Range("C2") Then
cel.Interior.ColorIndex = 4
End If
End If
End If
End If
End If
Next

 

[DBOD]

Hierna komt er nog zo'n soort blokje. HEt loopt nu vast op

If cel. Value (Cells , -1) ik wil daar dat hij de cel links van de Cel in Kolom N staat gebruikt