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

Formule Aanpassen

Status
Niet open voor verdere reacties.
M

marcel31281

Gebruiker
Lid geworden
30 okt 2015
Berichten
391
Ik heb onderstaande formule gevonden op het forum en deze werkt in principe prima, maar ik zou graag willen dat hij van 1 tot 53 doet ipv 53 tot 1. Als ik de Macro uitvoer staat week 1 als laatste en begint het met week 53

Sub werkblad_kopie()
For a = 1 To 53
'kopieer blad Moeder en zet de copie achter blad PLoegindeling
Sheets("Moeder").Copy After:=Sheets("Ploegindeling")
'hernoem het (nieuwe) actieve blad = naam & nummer de herhaling
ActiveSheet.Name = "wk " & a
'zet weeknummer in cel A1 op elke pagina
ActiveSheet.Range("A1").Value = a
Debug.Print a
Next a
End Sub
 
Even logisch nadenken? For a = 1 to 53 misschien omdraaien? for a = 53 to 1 step -1
 
Laatst bewerkt:
Alternatief; Kan je gewoon van 1 to 53 gebruiken.

Code: 
Sub VenA()
  Application.ScreenUpdating = False
  For j = 1 To 53
    Sheets("Moeder").Copy , Sheets(Sheets.Count)
    With ActiveSheet
      .Name = j
      .Cells(1) = j
    End With
  Next j
End Sub
 
Het logisch nadenken zit natuurlijk in dit stukje.
Code: 
[COLOR=#333333]Sheets("Moeder").Copy After:=Sheets("Ploegindeling")[/COLOR]

Die kopieert het steeds achter blad "Ploegindeling".
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan