• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cel kleuren wanneer weeknummer kruist

Status
Niet open voor verdere reacties.

RonaldB03

Gebruiker
Lid geworden
14 feb 2017
Berichten
7
Goedemiddag,

Voor een project waar ik mee bezig ben wil ik graag dat wanneer de weeknummers overeenkomen dat de cel een kleur krijgt..

Maakt even niet uit welke kleur, als hij maar kleurt haha!

Dus:
We leven nu in week 46.. Dat zou betekenen dat cel G13 een kleur moet krijgen...

Wie kan mij helpen?Bekijk bijlage test.xlsx
 
Héééééééééél eenvoudig (voor als je het weet)
Gebruik bij voorwaardelijke opmaak de formule:
Code:
=F$10=$D12
 
zo?
Code:
Sub weeknummer()

For Each Cl In Range("F12:I15")
    If Cells(Cl.Row, 4).Value = DatePart("ww", Date, vbMonday, vbFirstFourDays) And Cells(10, Cl.Column).Value = DatePart("ww", Date, vbMonday, vbFirstFourDays) Then
        Cl.Interior.Color = vbGreen
    Else
        Cl.Interior.Color = xlNone
    End If
Next Cl

End Sub
 
Laatst bewerkt:
nav bericht van SjonR bedoel je misschien ook wel dit:

Code:
=AND(WEEKNUM(TODAY())=F$10;F$10=$D12)
 
ik denk tenminste dat hij het bedoelde Willem, In de titel heeft TS het over kruizen en daarna over huidige weeknummer en G13, dus ik ben benieuwd :)
 
Mijn 1e antwoord in VBA zou dan zijn (denk ik als VBA leek)

Code:
Sub weeknummer()

For Each Cl In Range("F12:I15")

If Cells(Cl.Row, 4).Value =  Cells(10, Cl.Column).Value  Then
Cl.Interior.Color = vbGreen
Else
Cl.Interior.Color = xlNone
End If
Next Cl
End Sub

4 antwoorden dan heeft hij tenminste wat te kiezen :D
 
Ja, gelukkig is TS niet mijn vrouw, want die kan niet met een ruime keuze overweg. :d
 
Nog ééntje erbij
Met een hulp cel en een VO
 

Bijlagen

  • test(21) VO.xlsx
    9,5 KB · Weergaven: 29
Nog 1 tje zonder hulpcel

Code:
=(WEEKNUM(TODAY();21)=$D12)*(WEEKNUM(TODAY();21)=F$10)

Een kleine tip voor de helpers met een VBA oplossing; gebruik inspringpunten voor en de leesbaarheid en je ziet sneller dat je ergens iets mist.
 

Bijlagen

  • test.xlsb
    8,2 KB · Weergaven: 23
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan