• 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.

autoshape veranderen van kleur als datum verstreken is met

Status
Niet open voor verdere reacties.

bjornesto

Gebruiker
Lid geworden
16 apr 2012
Berichten
201
Beste

Ik heb een bestandje gemaakt en de bedoeling is dat als de datum verstreken is na meer dan twee dagen, dat die autoshape ook automatisch mee veranderd in het blauw.

Momenteel veranderen enkel de cellen mee.

Bekijk bijlage Book2.xls
 
In ThisWorkbook.

Code:
Private Sub Workbook_Open()
With Sheets(1)
  If .Range("C2") < Date - 2 Then .Shapes("Bol1").Fill.ForeColor.RGB = RGB(0, 112, 192)
End With
End Sub
 
hsv

Code werkt niet heb excel 2010

In het bestand is er ook een knop verwerkt naast iedere lijn die bol 1 terug op zijn plaats zet en de tekst verwijderd ervoor

Dus als ik op reset knop zou drukken zou die automatisch ook in het rood moeten komen
 
Stuur je bestandje eens op waarin jij de code van mij hebt gezet.
Trouwens, als je Excel 2010 hebt, waarom zet je dan een Excel 2003 versie op het forum.
 
Is er iemand anders die het wil testen in de Excel 2010 versie.
Werkt overigens goed in Excel 2007.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan