Actualiseren van een planning

Roeland035 · 21 jun 2017

Beste forumleden,

Ik ben bezig met het opstellen van een dynamische planning. Hierbij heb ik de vraag hoe het mogelijk is om door middel van een knop een gehele week toe te voegen aan de planning. Hierbij zou ik graag het volgende format willen gebruiken:
Maand
Weeknr
Dag (ma/woe/etc.)
Dag (1/2/3/4/etc.)

Om het makkelijker te maken is het bestand bijgevoegd.
Bekijk bijlage Planning.xlsx

Ik heb ervaring met macro's, maar ik heb nog niet iets vergelijkbaars gedaan.

Ik ben zeer dankbaar voor alle hulp!

Roeland035 · 21 jun 2017

Op de volgende manier weet ik in de verborgen rij (4) de data zevenmaal door te tellen, maar hoe maak ik vervolgens de opmaak erbij zoals in het bijgevoegde bestand..?

Code:

Sub Extra_Week()

Dim i As Integer
Dim lastcolumn As Integer
Dim StartDate As Date
Dim NextDate As Date
Dim NewDate As Date

i = 1

For i = 1 To 7
    With ActiveSheet
        lastcolumn = .Cells(4, .Columns.Count).End(xlToLeft).Column
        StartDate = .Cells(4, .Columns.Count).End(xlToLeft).Value
        
        NextDate = StartDate + 1
        
        .Cells(4, lastcolumn + 1) = NextDate
    End With
Next i

End Sub

Roeland035 · 21 jun 2017

Heb het uiteindelijk voor elkaar gekregen. Misschien niet de meest nette manier, maar het doet wat het moet doen.

Code:

Sub Extra_Week()

Dim i As Integer
Dim lastcolumn As Integer
Dim FirstCopy As Integer
Dim PasteCell As Integer
Dim StartDate As Date
Dim NextDate As Date
Dim NewDate As Date

With ActiveSheet

lastcolumn = .Cells(4, .Columns.Count).End(xlToLeft).Column
StartDate = .Cells(4, .Columns.Count).End(xlToLeft).Value

i = 1
    For i = 1 To 7
        NextDate = StartDate + i
        .Cells(4, lastcolumn + i) = NextDate
    Next i
    
    FirstCopy = lastcolumn - 6
    .Range(Cells(5, FirstCopy), Cells(200, lastcolumn)).Copy
    
    PasteCell = lastcolumn + 1
    
    Cells(5, PasteCell).PasteSpecial xlPasteColumnWidths
    Cells(5, PasteCell).PasteSpecial xlPasteFormats
    Cells(5, PasteCell).PasteSpecial xlPasteFormulas
End With

End Sub

Daarnaast heb ik in het bereik dat hij kopieert formules gezet die de datum uit rij 4 opdeeld in de verschillende onderdelen (maand/weeknr/dag).

Actualiseren van een planning

Roeland035

Gebruiker

Roeland035

Gebruiker

Roeland035

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy