Kopie laatste sheet + hernoemen mbv VBA

Status
Niet open voor verdere reacties.
R

royb73

Gebruiker
Lid geworden
19 sep 2012
Berichten
228
Beste mensen,

Ik ben nog een beginner op gebied van VBA. Ik heb een bestand met weeknummers erin. Ik ben op zoek naar een code, die het laatste sheets kopieert (en achter (ver)plaats) en deze weer hernoemt met +1. Bijvoorbeeld sheet "week 03" wordt gekopieerd en hernoemt naar week 04. Tevens moet alles verwijderd worden in de gekopieerde sheet, behalve regels 1 en 2.

Als voorbeeld doe ik een bestand bij.

Wie o wie kan mij helpen.

Mvg
 

Bijlagen

  • Tijdregistratie2014.xlsx
    16,3 KB · Weergaven: 34
Roy,

Hierbij de VBA code die je nodig heb om steeds een nieuw tabblad toe te voegen.

Code: 
Public Sub NieuweWeek()

Dim sLastSheet As String

sLastSheet = Sheets(ActiveWorkbook.Sheets.Count).Name
Sheets(sLastSheet).Copy after:=Sheets(sLastSheet)
Sheets(ActiveWorkbook.Sheets.Count).Name = "Week " & Format(ActiveWorkbook.Sheets.Count, "00")

Range("A3:D20000").ClearContents

End Sub

Veel Succes
 
Beste Elsendoorn2134,

Dit is precies wat ik zocht.

Bedankt!

Mvg

Roy.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan