Resultaten laten afhangen van datum

[Emelie]

ik heb het geprobeerd en idd Warm bakkertje ... ik snap er geen *** van

dus ik vertrouw op een goede ziel en ik ga tot in detail uitleggen wat ik wil en waarschijnlijk is dat voor jullie een hapklaar brokje (deden jullie dit al toen jullie nog in de pampers zaten snif ik voel mij zo dom)

Hier komt ie dan! :

als F26 > = 1,52 (ik heb de parameters verfijnd,dus niet raar opkijken dat de cijfers plots wat veranderen) op 1 december tem 28 of 29 februari dan moet F26 rood kleuren. Indien F26 < 1,52 tijdens diezelfde periode dan moet F26 groen kleuren. Dus bvb. als ik in F26 2,1 invul zal het rood zijn, vul ik -1 in, zal het groen kleuren.

als F26 > = -12,57 op 1 maart tem 30 november dan moet F26 rood kleuren, indien F26 < -12,57 tijdens diezelfde periode dan moet F26 groen kleuren. Dus bvb. als ik in F26 -12 invul zal het rood kleuren, vul ik -13 in zal het groen kleuren.

En dan nog een extra vraagje: dus we zijn vandaag bvb 1 december en ik voer allerlei resultaten in en ik sla dat op .. als ik dat dan op 1 maart open ... blijft dan de datum die van 1 december? Want als die datum door het bestand te openen spontaan zou veranderen in 1 maart waardoor andere gegevens gelden... zou dit betekenen dat ik nooit meer een bestand uit het verleden zou kunnen openmaken zonder dat er gegevens wijzigen.

Lieve schatten ... HELP me uit de nood

Kusjes!!!

 

[Warme bakkertje]

Emelien, gaat het enkel om cel F26 wordt het deze

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$F$26") Then
    Select Case Month(Date)
        Case Is = 12, 1, 2
            Target.Interior.Color = IIf(Target.Value >= 1.52, vbRed, vbGreen)
        Case Is = 3, 4, 5, 6, 7, 8, 9, 10, 11
            Target.Interior.Color = IIf(Target.Value >= -12.57, vbRed, vbGreen)
    End Select
End If
End Sub

Moet het echter gelden voor de hele kolom F wordt het onderstaande

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
    Select Case Month(Date)
        Case Is = 12, 1, 2
            Target.Interior.Color = IIf(Target.Value >= 1.52, vbRed, vbGreen)
        Case Is = 3, 4, 5, 6, 7, 8, 9, 10, 11
            Target.Interior.Color = IIf(Target.Value >= -12.57, vbRed, vbGreen)
    End Select
End If
End Sub

Om te antwoorden op je bijkomende vraag, de kleuren wijzigen enkel als je een waarde wijzigt. Het is dus misschien verstandig om telkens een kopie v/h blad op te slaan onder een unieke naam vooraleer je nieuwe waarden wil inbrengen zodat je steeds naar oude waarden kan teruggrijpen indien nodig.

 

[Emelie]

:Heyhey,

ik denk dat het gelukt is

Maar nog 1 vraagje en daarna kan ik met een gerust hart de vraag als opgelost aanduiden

Weet Excel van zichzelf welke dag het is? :shocked: ongelofelijk ik sta versteld van al die mogelijkheden in die programma's

Kusjes!

 

[Warme bakkertje]

Inderdaad. Excel baseert zich hiervoor op de systeemdatum van je computer maw als de datum van je computer verkeerd staat zal Excel ook een verkeerde datum weergeven.
Suc6 verder met je bestandje en heb je nog vragen weet je waar er hulp te vinden is

 

[Emelie]

Lieve schatten,

weer iets bijgeleerd dankzij jullie dus heel erg bedankt!

Als volgende stap ga ik nu een variant op jullie VBA code maken en hoop ik dat jullie zo vriendelijk gaan zijn om eens te kijken of ik nergens een foutje heb gemaakt! Maar daarvoor ga ik een nieuwe vraag creëren.

Dikke kusjes allemaal :love: