Macro Tabblad Kopieren + Cel +1

[michielvd123]

Ik zou een macro nodig hebben die het volgende doet:

Huidig tabblad kopieren
Naar het nieuw tabblad gaan
Naar cel B3 gaan
In cel B3 staat een verwijzing, namelijk =Area!A45
Deze verwijzing zou =Area!A46 moeten worden (of altijd +1)

Zo zou ik een 200 tabbladen willen kopiëren waar hij dus altijd cel B3 +1 gaat doen. (=Area!A46 ; =Area!A47 ; =Area!A48, ...)

Voorbeeldbestandje was spijtig genoeg te groot om up te loaden, dus hoop ik dat het zo duidelijk genoeg is.

 

[Superzeeuw]

200!!!!

Je bedoelt 2 of 20 hoop ik.

Wat moet je in vredesnaam met 200 werkbladen:
- het overzicht kwijtraken
- verdwalen in de mist van teveel werkbladen
- kijken hoeveel Excel er aan kan maken

?????????????

 

[michielvd123]

Per persoon wordt er een nieuw tabblad aangemaakt en aangezien er 200 personen zijn...

Het is juist om een beter overzicht te krijgen en niet te verdwalen in de 200 personen.

Ik ga het nut ook niet inzien om een macro te schrijven om 2 tabbladen te moeten kopiëren...

 

[Superzeeuw]

michiel,

Hoe moeten de tabbladen dan gaan heten.

Je kunt namelijk nummeren van 1 t/m 200 maar daar wordt je volgens mij ook niet wijzer van.
Misschien kun je met een lijst namen werken en elk tabblad de naam van de persoon meegeven.

Zie voorbeeld:
(macro starten met ALT+F8 en dan uitvoeren)

 

[popipipo]

Een klein voorbeeldbestandje misschien (5 tabbladen ipv 200 )

 

[snb]

Sub tst200()
    For j = 1 To 200
        Blad1.Copy , Sheets(Sheets.Count)
        Sheets(Sheets.Count).Range("B3") = 12
    Next
End Sub

Bedenk zelf hoe cel B3 gewijzigd moet worden.