Help!

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

Hulp bij posten

Recente topics

Auteur Topic: datum oplopend  (gelezen 1101 keer)

0 leden en 1 gast bekijken dit topic.

Offline kite

  • Nieuw lid
  • Berichten: 8
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
datum oplopend
« Gepost op: 25 januari 2021, 21:55:24 »
beste Forumleden,

ik ben nieuw hier dus is het even wennen hoe alles werkt :)

mijn vraag is bestaat er een formule macro ofwat dan ook die 4 x onder elkaar dezelfde datum zet en deze dan met 1 verhoogd en deze weer 4 x noteert?

Cel A1 01/01/2021
Cel A2 01/01/2021
Cel A3 01/01/2021
Cel A4 01/01/2021
Cel A5 02/01/2021
Cel A6 02/01/2021
Cel A7 02/01/2021
Cel A8 02/01/2021
Cel A9 03/01/2021
Enz

Ik hoor het graag.
Alvast bedankt

Kite

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: datum oplopend
« Reactie #1 Gepost op: 25 januari 2021, 22:49:05 »
Hallo Kite,

Welkom op Oplossing.be  :)

Je zou volgende code in een Macro kunnen zetten.

Sub datums_doorvoeren()
                                                                          'De begindatum zet je in "C1"
    Range("A1").Select                                            'plaats waar de serie moet beginnen
    For a = 0 To 125                                                'hoeveel datums? a wordt +/- 125 x 4 = 600
        For b = 1 To 4                                                'hoeveel keer datum herhalen?
            Selection.Value = Range("C1").Value + a      'Waarde in de cellen, afhankelijk van "C1"
            ActiveCell.Offset(1, 0).Select                        '1 rij naar beneden
        Next
    Next
End Sub

Lukt dit?

:) 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 !

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: datum oplopend
« Reactie #2 Gepost op: 25 januari 2021, 23:05:44 »
Als je de eerste vier met de hand invult kun je in de cel daaronder de volgende formule plaatsen en doortrekken zover nodig
=A4+1
|-|aije

ik gebruik Office 2016 Professional Plus

Offline kite

  • Nieuw lid
  • Berichten: 8
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: datum oplopend
« Reactie #3 Gepost op: 25 januari 2021, 23:12:41 »
beste SoftAid,

Bedankt voor je reactie.
Moet ik dit erbij plaatsen?

Sheets("Test").Select
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Gebruiker\Desktop\excel\Resultatenlog One-Touch Verio V2.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Range("A1").Select

Dit komt er namelijk bij als ik een macro opneem.

Alvast bednakt


Kite

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: datum oplopend
« Reactie #4 Gepost op: 25 januari 2021, 23:14:15 »
Hallo Kite,

Het is de bedoeling dat je de code in mijn bericht kopieert en in een module plakt.

Je kan eventueel je werkblad Sheets("Test") erbij vermelden, maar dan moet je de naam van het blad ook behouden, of de macro aanpassen:

Sub datums_doorvoeren()
                                                                          'De begindatum zet je in "C1"
   Sheets("Test").Range("A1").Select                      'plaats waar de serie moet beginnen
    For a = 0 To 125                                                'hoeveel datums? a wordt +/- 125 x 4 = 600
        For b = 1 To 4                                                'hoeveel keer datum herhalen?
            Selection.Value = Range("C1").Value + a      'Waarde in de cellen, afhankelijk van "C1"
            ActiveCell.Offset(1, 0).Select                        '1 rij naar beneden
        Next
    Next
End Sub

:) SoftAid :)             

@ Haije,

Heb je dat getest. ik krijg 1 1 1 1 2 3 4 5
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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: datum oplopend
« Reactie #5 Gepost op: 25 januari 2021, 23:14:54 »
Of plaats deze in A2 en trek door

=DATUM(2020;12;31)+ALS(REST(RIJ()-2;4)=0;DAG(A1)+1;DAG(A1))

Offline kite

  • Nieuw lid
  • Berichten: 8
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: datum oplopend
« Reactie #6 Gepost op: 25 januari 2021, 23:16:33 »
beste Haije,

kan het dat de oplossing die je hier voorstelt niet klopt?
Ik krijg dan gewoon opeenvolgende datums die oplopen per 1 en niet 4 keer dezelfde datum weergeven.

toch fijn om mee te denken.

Bedankt

Kite

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: datum oplopend
« Reactie #7 Gepost op: 25 januari 2021, 23:27:38 »
Veerj,

je formule werkt ook niet. Die van Haije ook niet.
Trouwens, als je zo een jaar wilt doortrekken dan moet je al bijna 1500 cellen gaan doortrekken....

:) 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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: datum oplopend
« Reactie #8 Gepost op: 25 januari 2021, 23:30:34 »
Bij mij werkt de formule prima :)

Wel in A2 geplakt?

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: datum oplopend
« Reactie #9 Gepost op: 25 januari 2021, 23:36:25 »
Hallo Haije,

In A1 de datum 1/1/2021
In A2 resulteert jou formule  in 2/1/2021
Van daaraf gaat het goed

:) 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 JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: datum oplopend
« Reactie #10 Gepost op: 25 januari 2021, 23:40:15 »
In A1 hoef je niets te zetten

Edit: zie nu dat het vanaf de 2e maand idd verkeer gaat.

Online JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: datum oplopend
« Reactie #11 Gepost op: 25 januari 2021, 23:47:48 »
1-1-2021 in A1

Deze in A2 en doortrekken zou goed moeten gaan.
=ALS(REST(RIJ()-1;4)=0;A1+1;A1)

Offline kite

  • Nieuw lid
  • Berichten: 8
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: datum oplopend
« Reactie #12 Gepost op: 25 januari 2021, 23:48:50 »
Beste Softaid,

Jou oplossing werkt perfect.
 \o/ \o/ \o/
super grote bedankt hiervoor ( dit scheelt een hoop werk zie) _/-\o_

Kite

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: datum oplopend
« Reactie #13 Gepost op: 25 januari 2021, 23:53:44 »
Hallo kite,

Graag gedaan  :)

:) SoftAid :)             



@ Veerj, Nu doet hij het goed  :thumbsup:
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 !

Offline kite

  • Nieuw lid
  • Berichten: 8
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: datum oplopend
« Reactie #14 Gepost op: 25 januari 2021, 23:53:50 »
beste VeerJ

En hopla nog een oplossing die perfect werkt!!!!!

Hartelijk dank hiervoor

ik plaats de vraag als opgelost

nogmaals bedankt iedereen voor het meedenken en aangeven van de oplossingen



groeten

Kite

 


www.combell.com