Macro tabblad toevoegen + diverse verwijzingen aanpassen

[bjolin]

Ik wil graag tabblad L1 kopieren en als nieuw blad toevoegen. De naam van het tabblad L1 moet met '1' oplopen naar L2.

Op het nieuwe tabblad L2 moet in cel E1 de verwijzing naar E4 aangepast worden naar E5 (oplopend met '1'), idem voor de verwijzing in cel A1 en in cel B3.
Dit wil ik herhalen tot en met tabblad L30.

Daarna wil ik hetzelfde doen met blad B1. Tot en met blad B30.

 

[Logicgold]

Misschien helpt dit je op weg?
Ik heb de Macro ook al geplaatst in je bestand.

Sub Test()
Sheets("L").Select
Sheets("L").Copy After:=Sheets(Sheets.Count)
nummer = Range("E1").Value
nummer = nummer + 1
Range("E1").Value = nummer
End Sub

Gr. Louis

Bekijk bijlage PV Administratie 2013 antw1.xlsm

 

[bjolin]

Louis,
Bedankt! Opnummeren van de tabbladen gaat goed, alleen de verwijzingen moeten ook mee oplopen zoals omschreven.
Gr. Björn

 

[Logicgold]

Björn,
Onderstaande macro doet volgens mij wat je wilt.
De laatst ingevulde waarde in Blad"Jaaroverzicht" kollom "F" wordt in Blad "L" "A1" gezet.
Daarna wordt het Blad gekopieerd naar een nieuw Blad met de naam L(2).
Zie bijlage

Sub Test()
x = Sheets("Jaaroverzicht").Cells(Rows.Count, "F").End(xlUp).Row
Sheets("L").Range("A1").Value = Sheets("Jaaroverzicht").Range("F" & x).Value
Sheets("L").Select
Sheets("L").Copy After:=Sheets(Sheets.Count)
nummer = Range("E1").Value
nummer = nummer + 1
Range("E1").Value = nummer
End Sub

Bekijk bijlage PV Administratie 2013 antw2.xlsm

Gr. Louis