• 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.

datum aanpassen en nummers verwijderen

  • Onderwerp starter Onderwerp starter Naus
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Naus

Gebruiker
Lid geworden
13 jan 2006
Berichten
83
Hallo,

heb een code voor nieuw tabblad met aanpassing weeknummer.
Nu wil ik ook graag de datum op rij2 onder dezelfde macro 7 dagen vooruit zetten (datums van de juiste week)
Tevens wil ik rij g3 t/m AA55 deleten om de cijfers te verwijderen.
 

Bijlagen

met deze macro moet dat lukken
Code:
Sub Nieuweweek()
c00 = Val(Right(Sheets(Sheets.Count).Name, 2))
Sheets(Sheets.Count).Copy , Sheets(Sheets.Count)
On Error Resume Next
With ActiveSheet
    .Name = "Wk " & c00 + 1
    .Range("G2") = .Range("G2") + 7
    .Range("J2") = .Range("J2") + 7
    .Range("M2") = .Range("M2") + 7
    .Range("P2") = .Range("P2") + 7
    .Range("S2") = .Range("S2") + 7
    .Range("V2") = .Range("V2") + 7
    .Range("Y2") = .Range("Y2") + 7
    .[G3:AA55].SpecialCells(2).ClearContents
End With
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan