Ga naar inhoud

Macro met datums.


Gordon

Aanbevolen berichten

Sub Kopieren_Dagen()
'
' Kopieren_Dagen
'

'
    Dim wkDay(1 To 5) As String
    Dim m As Integer, i As Integer, dt As Date
    dt = Now()
    m = Weekday(dt, vbMonday) - 1
    For i = 1 To 5
        wkDay(i) = Format(dt - m, "yyyy_dd_mm"): m = m - 1
    Next i
    myarr = Array("", 1, 2, 3, 4)
    Blad1.Columns("F:G").EntireColumn.Hidden = True
    For i = 1 To 5
        Blad1.Range("C2") = myarr(i - 1)
        ActiveWorkbook.SaveCopyAs "D:\" & wkDay(i) & ".xlsm"
    Next
    Blad1.Columns("F:G").EntireColumn.Hidden = False
End Sub

 

Gooi bovenstaande er eens tegen. Deze maakt de datums van de huidige week aan, van maandag tot vrijdag.

Link naar reactie
Delen op andere sites

Doe mee aan dit gesprek

Je kunt dit nu plaatsen en later registreren. Indien je reeds een account hebt, log dan nu in om het bericht te plaatsen met je account.

Gast
Reageer op dit topic

×   Geplakt als verrijkte tekst.   Plak in plaats daarvan als platte tekst

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.