Doornummeren in nieuw tabblad

[monty1a]

Ff een klein en misschien simpel vraagje!

Ik wil een macro maken waarbij ik blad : (1) kopieër en dit word dan automatisch (2)
Op blad: (1) in P2 verwijst de cel naar het blad : Overzicht! cel D7 op blad (2) moet worden D8 blad (3) D9 enz.

Kan het eventueel ook de mogelijkheid om 10 bladen en 25 bladen ineens aan te maken of alles in 1 keer ( dit is namelijk afhankelijk van het aantal rijen wat is ingevuld in D7206). De ene keer bestaat een project uit 3 rijen en dit kan oplopen tot zo'n 200.

Alvast bedankt!

 

[gast0660]

Zoiets?

 

[monty1a]

Dat is het bijna!

Ik heb een duidelijker voorbeeld bestand bijgevoegd met de juiste lijsten. Het is namelijk de bedoeling dat hij die het blad (1) kopieert of deze als voorbeeld gebruikt.
Als het mogelijk is, kan dan ook het tabblad dezelfde naam krijgen als die in cel P2 (dit is geen must maar zou wel mooi zijn)

Ik hoop dat jullie het begrijpen!

Alvast bedankt

 

[VenA]

Probeer het zo eens.

Sub VenA()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each cl In Sheets("Kopieerblad").Columns(1).SpecialCells(2)
  If cl.Offset(, 2).Value <> 0 Then
    If IsError(Evaluate("'" & cl.Value & "'!A1")) Then
      Sheets("(1)").Copy , Sheets(Sheets.Count)
      With ActiveSheet
        .Name = cl.Value
        .[P2] = cl.Offset(, 3)
      End With
    End If
  End If
Next cl
Application.DisplayAlerts = True
End Sub

 

[monty1a]

Whow TOP!

Alleen een heel klein vraagje... het eerste werkblad die die aanmaakt krijg niet de ID mee de rest wel netjes!

De is TOP!

(PS. is er een mogelijkheid dat de tabbladen ook de ID codes uit de cel p2 kunnen krijgen?)

 

[snb]

Haal al die samengevoegde cellen eruit. Daar krijg je later veel last/spijt van.

 

[VenA]

Haal de 1 uit A6 weg.

Het aanpassen van de tabnaam kan je zelf wel verzinnen neem ik aan.

 

[monty1a]

Super!

Het werkt!

Mijn laatste vraag...is het mogelijk automatisch hyperlinks aan te maken?

Dank je wel

 

[VenA]

Ja. Dit kost wel enige zelfstudie aangezien je niet aangeeft waar welke hyperlink moet komen en wat er moet gebeuren. Wat het doel van het geheel is zal ik maar niet vragen. In ben blij dat ik er niet mee hoef te werken:d

https://msdn.microsoft.com/en-us/library/office/ff822490.aspx

 

[snb]

In plaats van met tig werkbladen als invoerformulier is het handiger met 1 userform te werken.

 

[monty1a]

Ik ben blij met het resultaat!

Bedankt iedereen!