cel in tabel laten verkleuren op basis van datum

[renedecombi]

hallo beste mensen

ik heb een vraag over het automatisch laten kleuren van een cel op basis van een datum groen geel rood.
nu heb ik al overal gezocht en geprobeert maar nog niets gevonden op 1 cel na die het ook doet alleen die andere cellen werken nog niet ; ik heb dat gedaan met voorwaardelijke opmaak en een formule en het gaat om kolom F en kolom H .
de datum wordt er automatisch ingeplaats + 1 jaar naar invoeren van letter b en veranderen deze met na de datum verloopt van kleur.Alleen cel F8 werkt naar behoren. Wie kan en wil me helpen dank jullie wel Bekijk bijlage test1.xlsm

 

[VenA]

Je zat in de goed richting alleen klopten de formules niet in de VO.

 

[renedecombi]

dank je wel dat is een super snel antwoord en werkt super :thumb:
maar dan heb ik nog een nieuwe vraag over automatisch een opmerking plaatsen met de datum die verandert maar de opmerking moet komen in de vak waar de b wordt ingevuld

 

[renedecombi]

Nu heb ik een VBA code gevonden en een macro maar als ik die VBA code erin plaats dan krijg ik steeds een foutmelding afzonderlijk gaat dat wel misschien is daar een oplossing voor . Als in een cel in bv kolom G iets verandert dan een opmerking in de cel ernaast in kolom F dank jullie wel alvast. Bekijk bijlage test2.xlsm

 

[VenA]

Probeer deze eens

Private Oldvalue As Variant
Private Oldrange As Range
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Oldvalue = Target
Set Oldrange = Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Einde
If Target.Column = 6 Then
If Target.Value <> "" Then
Target.Offset(0, 1).Value = Date
Else: Target.Offset(0, 5).Value = ""

End If
End If
If Target.Column = 6 Then
If Target.Value = "b" Then
Target.Offset(0, 1).Value = Date + 365

Else: Target.Offset(0, 1).Value = ""


End If
End If

If Target.Column = 8 Then
If Target.Value <> "" Then
Target.Offset(0, 1).Value = Date
Else: Target.Offset(0, 5).Value = ""

End If
End If
If Target.Column = 8 Then
If Target.Value = "b" Then
Target.Offset(0, 1).Value = Date + 365

Else: Target.Offset(0, 1).Value = ""


End If
End If
Call Single_LastValueCommentAdd(Target, Oldvalue, Oldrange)
Einde:
End Sub

 

[renedecombi]

dank je wel het werkt toppie ik zal er gelijk een slotje op hangen :thumb: