Msgbox bij waarde en datum in verleden

[vrouw]

Ik zou graag een msgbox willen krijgen als de waarde in kolom B groter is dan 0 als de datum ervoor in het verleden van vandaag ligt.

Is dat een mogelijkheid?

 

[SjonR]

zo?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 2 And Target > 0 And Target.Offset(, -1) < Date Then MsgBox "Jouw tekst hier"
End Sub

 

[vrouw]

Oke dat ziet er goed uit, maar de melding komt alleen als je op het moment een getal aanpast?

Het kan niet dat de melding komt als de getallen er al staan?

Het is namelijk de bedoeling dat de messagebox een herinnering is dat de waarden in kolom B leeggemaakt moeten worden als we weer een dag verder zijn.
Die melding kan dan komen bij het openen van het bestand.

 

[HSV]

Private Sub Workbook_Open()
 If Application.CountIf(Sheet2.Columns(1), "<=" & CLng(Date)) Then MsgBox "hsv"
End Sub

 

[vrouw]

Thanks, ga het gelijk uitproberen morgen.

 

[emields]

of zo

 

[snb]

Met een doordachte macro bij het openen van een bestand kun je de gegevens van de vorige dag verwijderen zonder daarmee de gebruiker lastig te vallen.

 

[vrouw]

@emields

Nu wordt de cel leeggehaald endat was de bedoeling niet maar dat heb ik aan kunnen passen dat daar een nul wordt ingevuld.

Maar kan er 1 melding met de vraag alle cellen op nul zetten komen?.

Kan dat?

 

[HSV]

Negatieve getallen dus niet?

[COLOR=#3E3E3E]Private Sub Workbook_Open()
[/COLOR] If Application.CountIf(Sheet2.Columns(1), "<=" & CLng(Date)) Then
  If MsgBox("gegevens wijzigen?", 256 + 4) = 6 Then
    Sheets("sheet2").Cells(1).CurrentRegion.Columns(1).Name = "br"
   [br].Offset(, 1) = [if((br<=now())*(offset(br,0,1)>0),0,offset(br,0,1))]
 End If
End If
End Sub

 

[emields]

De code van HSV zal precies doen wat je verwacht maar ik denk wel dat je van

[if((br<=now())*(o

,

[if((br<=now()[COLOR="#FF0000"]-1[/COLOR])*(o

zal moeten maken.

 

[HSV]

Of:

[if((br[COLOR=#ff0000]<[/COLOR]now())*(o