Opgelost cel rechts ook markeren

[Senso]

Weet niet of dat kan. Een cel op een willekeurige plaats bevat 2024 dan moet die cel en de direct rechts gelegen cel groen kleuren.

 

[sylvester-ponte]

met vba

 

[AlexCEL]

Of voorwaardelijke opmaak.

 

[Senso]

Is er nog iemand die schrijft dat het handmatig kan?

 

[AlexCEL]

Het kan ook handmatig.

 

[Senso]

Dank je.

 

[Senso]

Het is duidelijk dat het met VO niet kan. Wel honderd artikelen gelezen op internet en ze sturen je allemaal de verkeerde kant op, meestal begrijpen ze de vraag/probleem niet, terwijl de vraag wel duidelijk wordt uitgelegd.

How to highlight a cell based on an adjacent cell?​

Daar kom je honderd keer op terecht maar dat is de vraag niet!

 

[AlexCEL]

Meestal begrijpen ze de vraag/probleem niet

Daar heb ik ook last van.

Je wijst mensen er regelmatig op dat ze een voorbeeldje moeten plaatsen, dus misschien moet je je eigen advies ook eens opvolgen. Misschien hebben we dan een beter idee.

 

[Senso]

Voor zo een simpele vraag die eenvoudig te begrijpen is een voorbeeldbestand plaatsen, lijkt mij sterk overdreven.

 

[sylvester-ponte]

ik ben benieuwd wat je doet met de meest rechtse cel in het blad en hoe je dat doet zonder vba

 

[jverkerk]

Volgens mij ga je dit niet redden met een formule.

 

[Senso]

Wat bedoel je met de meest rechtse cel in het blad? De cel aangrenzend aan de cel waar 2024 staat moet in ieder geval groen worden als daar een getal komt te staan. Daar komen namelijk belastingtarieven in te staan.
Al die jaartallen staan in een lijst en het is de bedoeling dat als het jaartal actief is, jaartal en tarief groen worden.

heffingskorting aangifte 2024
2023 3.200 beide cellen niet groen
2024 3.300 beide cellen groen

de lijst staat er alleen is niet altijd het tarief al bekend. Dan is de aangrenzende cel nog leeg.

Volgens mij ga je dit niet redden met een formule.

Met VO bedoel je? Dat zou jammer zijn. Maar als jij de vraag zo snel begrijpt waarom begrijpt Google, MS en alle anderen deze simpele vraag dan niet en sturen je constant de verkeerde richting op. Overigens wordt wel in een artikel deze vraag aangekaart maar men zet de vragenstellers constant op een verkeerd spoor. Zeg dan gewoon met VO kan dit niet.

 

[AlexCEL]

Met VO. Voorbeeldje hielp wel.

 

[jverkerk]

Ik ben geen VBA deskundige, het zal mooier en beter kunnen.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cel As Range
    If Not Intersect(Target, Me.UsedRange) Is Nothing Then
        For Each cel In Target
            If InStr(cel.Value, "2024") > 0 Then
                cel.Resize(, 2).Interior.Color = RGB(0, 255, 0) ' Groene kleur voor de huidige cel en de cel rechts ervan
            ElseIf InStr(cel.Offset(, 1).Value, "2024") > 0 Then
                cel.Offset(, 1).Resize(, 2).Interior.Color = RGB(0, 255, 0) ' Groene kleur voor de huidige cel en de cel rechts ervan
            End If
        Next cel
    End If
End Sub

 

[Senso]

Ga ik morgen mee verder om in het originele bestand te testen. Veel uren mee bezig geweest en moet de was nog doen (geen grap). Bedankt.

 

[Senso]

Is gelukt. Bedankt voor de hulp.

 

[Haije]

Is gelukt. Bedankt voor de hulp.

mbv oplossing AlexCel of jvervkerk?

 

[Senso]

Oplossing van AlexCel met VO. Die van Johan bewaar ik en ga ik nog wel een keer testen.

 

[snb]

VO als je kolom A niet gebruikt:

=(OFFSET(B1;0;-1;1;2)=2024)+(B1=2024)