*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Re: Laatste dag van het jaar  (gelezen 12572 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Laatste dag van het jaar
« Gepost op: 18 september 2023, 17:42:05 »
dag , mag ik terwijl hier even op inpikken ? heeft ook te maken met jaar en maand......
Ik ben bezig om mijn nutsvoorzieningen bestand klaar te maken naar een nieuw jaar en heb een probleem :
via een inputbox vraag ik naar het jaar waarvoor een nieuw bestand moet gemaakt worden.
nu wil daarop controleren of dit jaartal niet jonger is dan het huidig jaar of niet ouder dan het volgend jaar , dus kan nu maar 2023 of 2024 zijn.
naar gelang dat jaar zou ik dan in een cel (A3) de laatste dag van het vorig jaar willen krijgen en in cellen C1:C12 de 12 maanden van het ingegeven jaar , WEL ALS DATUM , zie mijn kleine bijgevoegde bestand.
ik geraak er absoluut niet uit en vind niet direkt iets terug op het grote web  :-[...
Alvast bedankt .
Mvg,
Arnold.
Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Laatste dag van het jaar
« Reactie #1 Gepost op: 18 september 2023, 19:00:13 »
Hallo Arnold,

Probeer het hier eens mee. De 'controle' heb ik aangepakt door de invoer in een lus te steken, dus tot een aanvaardbaar jaartal is ingegeven; mogelijk wil je dat liever anders, maar dat krijg je wel goed.
Code: [Selecteer]
Private Sub CommandButton1_Click()

While jaartal <> Year(Date) And jaartal <> Year(Date) + 1
  Rem hier moet nu gecontroleerd worden op het juiste jaartal
  jaartal = Val(InputBox("Geef het nieuwe op te volgen jaar in :"))
Wend
Cells(1, 1).Value = jaartal
Cells(3, 1) = DateSerial(jaartal - 1, 12, 31)
For i = 1 To 12
  Cells(i, 3) = DateSerial(jaartal, i, 1)
Next i

End Sub
Groetjes,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Laatste dag van het jaar
« Reactie #2 Gepost op: 19 september 2023, 07:43:24 »
Dankuwel Molly  :) !
dat is nu denk ik een beetje mijn probleem : ik heb dus geen weet van al die (vele) "functie's" die ik nooit gezien heb.
nu ik de code krijg begrijp ik ze wel en kan er naar de toekomst toe mee werken.
Mvg,
Arnold.
Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Laatste dag van het jaar
« Reactie #3 Gepost op: 19 september 2023, 08:47:44 »
Graag gedaan, Arnold !
Dan kan het volgende als een soort 'goed nieuws' worden beschouwd: ik kom ook nog veelvuldig functies tegen waarvan ik zelfs het bestaan, laat staan de werking, niet kende.
Dat gaat zo met autodidacten, voordeel is dan weer dat we constant blijven bijleren ;)

Groetjes,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline snb

  • Lid
  • *
  • Berichten: 30
Re: Laatste dag van het jaar
« Reactie #4 Gepost op: 20 september 2023, 17:57:49 »
Dat kan simpeler.
Klik op het jaar in A1 of A2 dat van toepassing is.
Volgend jaar past het bestand zich automatisch aan.
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com