Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Rekenen met datums in VBA  (gelezen 4391 keer)

0 leden en 1 gast bekijken dit topic.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Rekenen met datums in VBA
« Reactie #15 Gepost op: 17 maart 2021, 18:27:45 »
Hallo Arnold,

ik ga dadelijk de bijdrage van pitufo "controleren"  ;D
Maar ik zag alvast nog een foutje in de macro sub verrichtingen uitvoeren()
Citaat
With Sheets("Verhandelingen")
    .Cells(datum, 1) = ws.Cells(3, 4).Value
    .Cells(datum, 2) = ws.Cells(3, 6).Value
    .Cells(datum, 3) = ws.Cells(3, 18).Value
    .Cells(datum, 4) = ws.Cells(3, 15).Value
    .Cells(datum, 5) = ws.Cells(3, 11).Value
    End With
moet
Citaat
With Sheets("Verhandelingen")
    .Cells(datum, 1) = ws.Cells(3, 4).Value
    .Cells(datum, 2) = ws.Cells(3, 6).Value
    .Cells(datum, 3) = ws.Cells(3, 8 ).Value      'spatie extra gezet vanwege smiley-gedrag van deze site
    .Cells(datum, 4) = ws.Cells(3, 15).Value
    .Cells(datum, 5) = ws.Cells(3, 11).Value
    End With
zijn !!

Straks meer  0:-) 0:-) 0:-)

Groeten,

:) SoftAid :)             


Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Rekenen met datums in VBA
« Reactie #16 Gepost op: 17 maart 2021, 18:28:41 »
dag "Pitufo" , nogmaals bedankt , ik heb het ondertussen getest en het werkt wel degelijk  , ik had ondertussen wel de layout veranderd van het bestand dat ik dagelijks gebruik en waar mijn echte data instaat (het bestand dat ik telkens uploade was zonder persoonlijke gegevens).
daarom dat ik zelfs met Uw aangepaste code bleef fouten krijgen (mea culpa  :-[) , deze zijn er ondertussen uit.
ik ga hier nu nog het voor mij "finale" bestand bijvoegen , wat is er veranderd : de knop om een verhandeling te valideren en als je links bovenaan op de afbeelding klikt dan kan je daarmee het bestand afsluiten en opslaan.
er zit een beveiliging op het blad "Budget" maar die kan gewoon opgeheven worden , geen wachtwoord ingesteld , enkel bedoeld om geen belangrijke cellen te veranderen.

thanks aan IEDEREEN die hier aan heeft meegeholpen !

Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Rekenen met datums in VBA
« Reactie #17 Gepost op: 17 maart 2021, 18:30:18 »
Hallo Arnold,

ik ga dadelijk de bijdrage van pitufo "controleren"  ;D
Maar ik zag alvast nog een foutje in de macro sub verrichtingen uitvoeren()moet zijn !!
:) SoftAid :)             

deze fouten zijn aangepast , zie mijn reactie naar "Pitufo" toe.....
als je mijn laatst bijgevoegd bestand opent zou alles perfect moeten lopen....

Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Rekenen met datums in VBA
« Reactie #18 Gepost op: 17 maart 2021, 18:40:30 »
Hey, sorry,

had net gelijktijdig met jou gepost, dus had ik je veranderde post met versie 4 niet gezien.

Blij dat alles op zijn pootjes terecht is gekomen  :)

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Rekenen met datums in VBA
« Reactie #19 Gepost op: 27 maart 2021, 10:18:08 »
Dag,
mag ik nog eens om jullie hulp vragen : welke formule of code gebruik ik om te kijken of vandaag (dus de huidige dag) de laatste maandag van de maand is ?
ik ben er weeral  :-[ een paar dagen mee bezig maar het wil niet lukken  :(

Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Rekenen met datums in VBA
« Reactie #20 Gepost op: 27 maart 2021, 10:36:44 »
Volgens Schoutsen ;D:

=LAATSTE.DAG($A$1;0)+1+REST((-WEEKDAG(LAATSTE.DAG($A$1;0)+1)+7+2);7)-7
hierbij wordt in cel A1 een willekeurige datum van de te onderzoeken maand verwacht.

Omdat dit resulteert in een serieel getal kan je de datum (de dag) weergeven met :

=DAG(LAATSTE.DAG($A$1;0)+1+REST((-WEEKDAG(LAATSTE.DAG($A$1;0)+1)+7+2);7)-7
:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Rekenen met datums in VBA
« Reactie #21 Gepost op: 27 maart 2021, 10:44:40 »
hey,
eigenlijk zou ik het liever zo zien : is vandaag de laatste maandag van de maand dan.....
zoiets als "if date/today = laatste maandag van de maand" then.....rest van mijn code
kan dat zo ?

Grtjs,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Online RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Rekenen met datums in VBA
« Reactie #22 Gepost op: 27 maart 2021, 11:00:50 »
Laatste maandag van de maand...
=EOMONTH(TODAY();0)-(WEEKDAY(EOMONTH(TODAY();0);2)-1)Als formule in een workbook. Het was me ff niet duidelijk of je een VBA toepassing of sheet formule zocht.
______________________________

Groet, Leo

Online RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Rekenen met datums in VBA
« Reactie #23 Gepost op: 27 maart 2021, 11:06:40 »
=LAATSTE.DAG(VANDAAG();0)-(WEEKDAG(LAATSTE.DAG(VANDAAG();0);2)-1)(vertaald naar NL)owwww... maar dit had SoftAid ook al gemeld!   ;D
______________________________

Groet, Leo

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Rekenen met datums in VBA
« Reactie #24 Gepost op: 27 maart 2021, 11:10:55 »
dankuwel ! ik ga daar mee aan de slag in mijn "budget" programma , ik geef nog feedback of het gelukt is !
nog een fijn weekend  :)

Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Rekenen met datums in VBA
« Reactie #25 Gepost op: 27 maart 2021, 11:16:33 »
Hallo Arnold,

Mooi dat we een werkblad formule hebben en je er mee wil verder werken
Maar in werkelijkheid vroeg je een VBA formule, niet ?
if date/today = laatste maandag van de maand" then
:) SoftAid :)             


Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Rekenen met datums in VBA
« Reactie #26 Gepost op: 27 maart 2021, 11:17:43 »
Hallo Arnold,

Mooi dat we een werkblad formule hebben en je er mee wil verder werken
Maar in werkelijkheid vroeg je een VBA formule, niet ?
if date/today = laatste maandag van de maand" then
:) SoftAid :)             

ja idd , dat werkt niet met die formule zoals ik het zou willen gebruiken  :(
nu gaat mijn programma al kijken of er maandelijkse weerkerende betalingen moeten uitgevoerd worden , er zou ook 1 moeten uitgevoerd worden iedere laatste maandag van de maand....hopelijk is dit duidelijker ?

Mvg,


HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Rekenen met datums in VBA
« Reactie #27 Gepost op: 27 maart 2021, 11:40:19 »
héhé , zelf gevonden ! wél met andere "code" die ik op het internet gevonden heb :

vandaag = Date
dezetest = "vandaag zijn we zaterdag"
If vandaag = DateSerial(Year(Date), Month(Date) + 1, 1) - Weekday(DateSerial(Year(Date), Month(Date) + 1, 1), vbSunday) Then MsgBox dezetest
de msgbox retourneert de datum van vandaag omdat ik test op de laatste zaterdag

als ik nu die formule wil gebruiken voor de maandag dan moet ik Sunday veranderen in Tuesday .

nu nog implementeren in mijn code en dan zie ik normaal maandag of alles werkt.

Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Rekenen met datums in VBA
« Reactie #28 Gepost op: 27 maart 2021, 11:46:58 »
Wie zoekt die vindt  :thumbsup: :thumbsup:

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Online Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Rekenen met datums in VBA
« Reactie #29 Gepost op: 28 maart 2021, 10:03:52 »
Wie zoekt die vindt  :thumbsup: :thumbsup:
:) SoftAid :)             
ja maar was er al een paar dagen naar aan het zoeken , door jullie "tussenkomst" heb ik mijn zoekopdracht aangepast en ben zo op die code gebotst...
ondertussen deze in mijn code geïmplementeerd en werkt naar mijn volle tevredenheid.

Mvg,
Montagnard.
 
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

 


www.combell.com