bertrammed
Gebruiker
- Lid geworden
- 13 apr 2013
- Berichten
- 40
Is het mogelijk mijn opmaak met de datums etc. 50 keer onder elkaar te kopiëren met behulp van een code of formule?
Bekijk bijlage planning.xlsx
Bekijk bijlage planning.xlsx
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub Maand_Kopie()
Dim k As Date
k = Sheets("Blad1").Range("C2").Value
j = 7
For i = 1 To 49
R = Cells(Rows.Count, 16).End(xlUp).Row + 2
With Sheets("Blad1").Range("A2").CurrentRegion
.Copy Destination:=.Range("A" & R)
.Cells(R, 1).Offset(1, 2) = DateSerial(Year(k), Month(k), Day(k) + j)
End With
j = j + 7
Next i
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.