0p datum wissen

Justes · 7 apr 2007

Hallo,

Wat is er mis, met de eerste datum gaat het perfect, meerdere niet ik heb het liever met datum in cel B1.

GroPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MijnDatum, MijnTijd
Sheets("verzamelstaat").Activate
MijnDatum = DateValue("30 april 2007")
MijnDatum = DateValue("31 mei 2007")
MijnDatum = DateValue("30 juni 2007")
MijnDatum = DateValue("31 juli 2007")
MijnDatum = DateValue("31 augutus 2007")
MijnDatum = DateValue("30 september 2007")
MijnDatum = DateValue("31 oktober 2007")
MijnDatum = DateValue("30 november 2007")
MijnDatum = DateValue("31 december 2007")
MijnTijd = TimeValue("0:00:01 pM")
If Now > MijnDatum + MijnTijd Then
Range("B5

1510").ClearContents
End If
End Sub

Groeten Justes

Wigi · 7 apr 2007

Als je deze code uitvoert:

Code:

MijnDatum = DateValue("30 april 2007")
MijnDatum = DateValue("31 mei 2007")
MijnDatum = DateValue("30 juni 2007")
MijnDatum = DateValue("31 juli 2007")
MijnDatum = DateValue("31 augutus 2007")
MijnDatum = DateValue("30 september 2007")
MijnDatum = DateValue("31 oktober 2007")
MijnDatum = DateValue("30 november 2007")
MijnDatum = DateValue("31 december 2007")

heeft de variabele MijnDatum na afloop 31 december 2007. Niet een van de eerdere datums, die worden overschreven. Lost dit het probleem al (deels) op?

Wigi

Wigi · 7 apr 2007

Plaats ook eens code tags rond je code aub. Dan wordt het leesbaar, zoals in mijn post hierboven.

Wigi

Justes · 7 apr 2007

Wigi zei:
Plaats ook eens code tags rond je code aub. Dan wordt het leesbaar, zoals in mijn post hierboven.

Wigi

Hierbij het bestandje, ik heb het liever op datum in B1.

Bij voorbaat dank.

Gr Justes

Justes · 7 apr 2007

Wigi zei:
Plaats ook eens code tags rond je code aub. Dan wordt het leesbaar, zoals in mijn post hierboven.

Wigi

Het bestandje

arafy · 7 apr 2007

Wigi zei:
Als je deze code uitvoert:

Code:

MijnDatum = DateValue("30 april 2007") MijnDatum = DateValue("31 mei 2007") MijnDatum = DateValue("30 juni 2007") MijnDatum = DateValue("31 juli 2007") MijnDatum = DateValue("31 augutus 2007") MijnDatum = DateValue("30 september 2007") MijnDatum = DateValue("31 oktober 2007") MijnDatum = DateValue("30 november 2007") MijnDatum = DateValue("31 december 2007")

heeft de variabele MijnDatum na afloop 31 december 2007. Niet een van de eerdere datums, die worden overschreven. Lost dit het probleem al (deels) op?

Wigi

inderdaad: zet de datum van de PC op 2008, verander augutus in augustus en zet de range juist (B5:E5510). en het werkt.

steven

Justes · 7 apr 2007

Hallo Steven,

Dank voor je reactie, ik heb hem aangepast,
Nu nog de vraag of het ook aan gepast kan worden zo dat het werkt op de datum van B1

Gr Justes

arafy · 7 apr 2007

Justes zei:
Nu nog de vraag of het ook aan gepast kan worden zo dat het werkt op de datum van B1

justes,

ik snap de vraag niet. in B1 staat nu de formule =vandaag(). je wilt =nu() vergelijken met =vandaag()? zoals je macro er nu uitziet, vergelijk je met de variabele mijndatum en dat is 31/12/2007. je kan met een variabele in B1 gaan vergelijken, maar die waarde moet toch ergens opgehaald worden.

steven

Justes · 7 apr 2007

arafy zei:
justes,

ik snap de vraag niet. in B1 staat nu de formule =vandaag(). je wilt =nu() vergelijken met =vandaag()? zoals je macro er nu uitziet, vergelijk je met de variabele mijndatum en dat is 31/12/2007. je kan met een variabele in B1 gaan vergelijken, maar die waarde moet toch ergens opgehaald worden.

steven

Hallo Steven,

Het is de bedoeling dat als in B1 de datum 01-05-07 is bereikt, B5:E1510 gewist wordt.
En iedere volgend maand hetzelfde

Gr Justes

Justes · 7 apr 2007

arafy zei:
justes,

ik snap de vraag niet. in B1 staat nu de formule =vandaag(). je wilt =nu() vergelijken met =vandaag()? zoals je macro er nu uitziet, vergelijk je met de variabele mijndatum en dat is 31/12/2007. je kan met een variabele in B1 gaan vergelijken, maar die waarde moet toch ergens opgehaald worden.

steven

Hallo Steven,

Het is de bedoeling dat als de datum in B1, 1 mei bereikt heeft (01-05-07) daT dan B5:E1510 gewist wordt. enz de daarop volgende maanden.

Gr Justes

arafy · 7 apr 2007

dag justes,

als je werkt met een extra (verborgen) kolom waarin je 1/5/07, 1/6/07, ... in plaatst (met doortrekken 20 seconden werk) dan werkt volgende code:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MijnDatum, MijnTijd
Sheets("blad1").Activate

MijnDatum = Range("A1").Value

If Now > MijnDatum Then
Range("B5:E1510").ClearContents
Range("A1").Delete Shift:=xlUp
End If
End Sub

steven

Justes · 7 apr 2007

arafy zei:
dag justes,

als je werkt met een extra (verborgen) kolom waarin je 1/5/07, 1/6/07, ... in plaatst (met doortrekken 20 seconden werk) dan werkt volgende code:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim MijnDatum, MijnTijd Sheets("blad1").Activate MijnDatum = Range("A1").Value If Now > MijnDatum Then Range("B5:E1510").ClearContents Range("A1").Delete Shift:=xlUp End If End Sub

steven

Hallo Steven,

Dank voor je vlotte reactie, de reden dat ik twee maal het bijna het zelfde bericht plaatste komt omdat ik mijn bericht niet niet terug kon vinden dat kwam omdat ik de datum van de computer een jaar vooruit had staan (2008) denk ik.
Je oplossing ziet er goed uit ik ga het nu uitproberen.

Gr, Justes

Justes · 7 apr 2007

Hallo Steven,

Prachtig, werkt uistekend.

Hartelijk dank.

Gr Justes

Justes · 7 apr 2007

arafy zei:
justes,

ik snap de vraag niet. in B1 staat nu de formule =vandaag(). je wilt =nu() vergelijken met =vandaag()? zoals je macro er nu uitziet, vergelijk je met de variabele mijndatum en dat is 31/12/2007. je kan met een variabele in B1 gaan vergelijken, maar die waarde moet toch ergens opgehaald worden.

steven

Hallo Steven,

Dank voor je vlotte reactie, de reden dat ik twee maal het bijna het zelfde bericht plaatste komt omdat ik mijn bericht niet niet terug kon vinden dat kwam omdat ik de datum van de computer een jaar vooruit had staan (2008) denk ik.
Je oplossing ziet er goed uit ik ga het nu uitproberen.

Gr, Justes

__________________

Justes · 7 apr 2007

Hallo Steven,

Prachtig, werkt uistekend.

Hartelijk dank.

Gr Justes

0p datum wissen

Justes

Gebruiker

Wigi

Inventaris

Wigi

Inventaris

Justes

Gebruiker

Justes

Gebruiker

Bijlagen

arafy

Gebruiker

Justes

Gebruiker

Bijlagen

arafy

Gebruiker

Justes

Gebruiker

Justes

Gebruiker

arafy

Gebruiker

Justes

Gebruiker

Justes

Gebruiker

Justes

Gebruiker

Justes

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy