waarschuwing

[DCTALK]

Beste mensen

Voor het bedrijf waar ik werk, hebben we een lijst gemaakt waarin alle medewerkers staan, en per mederwerker staan zn/haar diploma's id/enz
hieraan hangen data. Nu wil ik graag dat als iets verlopen is dat dat wordt aangegeven als je hebt bestand opend dat de betreffende bijvoorbeeld rood wordt met een popup schermpje of een piep ofzo.

misschien dan iemand mij kan helpen hiermee.

gr CvO

 

[Cobbe]

Dat kan allemaal en wellicht heel gemakkelijk.
Maar zonder voorbeeldbestand is daar geen zinnige oplossing voor te geven.

 

[popipipo]

Hier een voorbeeldje met fictieve gegevens die je vrij kunt aanpassen.

 

[DCTALK]

Dat kan allemaal en wellicht heel gemakkelijk.
Maar zonder voorbeeldbestand is daar geen zinnige oplossing voor te geven.

hierbij een voor beeldbestand
hoop dat je hier wat mee kan

 

[Cobbe]

Hier een voorbeeld hoe zo iets kan werken.
Je kan dit aanpassen en uitbreiden naar believen.

 

[DCTALK]

Dit is het dankjewel, helemaal top

gr CvO

iedereen bedankt!

 

[DCTALK]

Cobbe /waarschuwing

@ Cobbe (en natuurlijk ook andere die willen helpen)

nogmaals dank voor het voorbeeld.
alleen heb ik een probleem, waar ik nog niet uit ben.

Ik heb van jouw een voorbeeld gekregen.
en dat werk leuk met een range van een paar cellen
in het bestand wat ik ga gebruiken moeten er 200 cellen gecontroleerd worden op over datum,

dus wat gebeurt er nou. het bestand opend vervolgens krijg je een popup en je moet 200x klikken om deze te sluiten omdat er een te grote range aan zit.
Is er een manier om dit te veranderen.

hoor van jullie
vr gr Corné

 

[jackall]

Mag aannemen dat dit aansluit op deze vraag

 

[ExcelAmateur]

DCTALK,

Zou het wat zijn als je die cellen een kleurtje geef?

Private Sub Workbook_Open()
  For Each cl In Sheets("Blad1").Range("G10:G" & Range("G65536").End(xlUp).Row)
    If cl >= Date Then
     cl.Interior.ColorIndex = 8
      'Waarschuwing.Show
    End If
  Next
End Sub

 

[frankwannet]

Beide Topics samengevoegd.

 

[DCTALK]

DCTALK,

Zou het wat zijn als je die cellen een kleurtje geef?

Private Sub Workbook_Open()
  For Each cl In Sheets("Blad1").Range("G10:G" & Range("G65536").End(xlUp).Row)
    If cl >= Date Then
     cl.Interior.ColorIndex = 8
      'Waarschuwing.Show
    End If
  Next
End Sub

Opzich is het kleurtje zeker handig want dan weet je waar je bent.
maar toch moet er nog bij elke cel geklikt worden.
ik ga het wel gebruiken. dus Thanks

maar als er nog iemand is die hier nog wat meekan heeeeel graag

vr gr Corné

 

[Haije]

Corné,

als je de code van ExcelAmateur copieert naar je eigen bestand, dan verschijnt er een kleurtje (licht blauw) in elek cel die een datum waarvoor je anders op enter zou moeten klikken.

LET OP ' in

      'Waarschuwing.Show

 

[DCTALK]

Haije / en de resst die wil helpen

Nou opzich is dat kleurtje wel handig, maar je moet dan als nog bij elke cel een klik geven (en als je er een 200 hebt te gaan)
Is heb misschien ook mogelijk om het automatisch te laten gaan, en dat daarna een overzichtje verschijnt dmv een popup die de verlopen cellen aangeeft?

gr Corné

 

[Haije]

Corné,

in de oplossing van ExcelAmateur wordt de waarschuwing uitgeschakeld door er een ' voor te plaatsen.
In de plaats daarvan worden de cellen die niet aan de voorwaarde voldoen voorzien van een kleurtje.
Wat is dan nog het probleem?

Maar het kan ook zo:

Private Sub Workbook_Open()
  For Each cl In Sheets("Blad1").Range("G10:G" & Range("G65536").End(xlUp).Row)
    If cl >= Date Then
     cl.Interior.ColorIndex = 8
    End If
  Next
Waarschuwing.show
End Sub

Nu krijg je en een kleurtje en als laatste de msgbox

 

[Cobbe]

Wat denk je van deze, die stopt enkel bij de verlopen data.

 

[DCTALK]

Corné,

in de oplossing van ExcelAmateur wordt de waarschuwing uitgeschakeld door er een ' voor te plaatsen.
In de plaats daarvan worden de cellen die niet aan de voorwaarde voldoen voorzien van een kleurtje.
Wat is dan nog het probleem?

Maar het kan ook zo:

Private Sub Workbook_Open()
  For Each cl In Sheets("Blad1").Range("G10:G" & Range("G65536").End(xlUp).Row)
    If cl >= Date Then
     cl.Interior.ColorIndex = 8
    End If
  Next
Waarschuwing.show
End Sub

Nu krijg je en een kleurtje en als laatste de msgbox

Haije,

sorry ik zag em niet maar ik had het ' weg gehaald en moet je vervolgens weer klikken. maar dat hoeft niet,. Dit is top
en jij hebt em een paar regels lager gezet

ExcelAmateur en Haije THANKS voor de oplossing!!! toppie

vr gr Corné

en iedereen bedankt die geholpen heeftt

 

[Warme bakkertje]

Je kan ook alle verlopen data verzamelen in een collectie endeze dan weergeven in een listbox.

 

[DCTALK]

Warme bakkerje

zou je daar een voorbeeld van kunnen geven?
hoor graag van je

 

[huijb]

@DCTalk Zou je willen stoppen met het onnodig quoten van berichten. Heb nu al diversen reacties van je aangepast.

 

[DCTALK]

@Huijb

wat is het probleem daarvan?
misschien begrijp ik het niet helemaal.
hoor wel van je