excel macro automatisch tabbladen maken en invullen

[babarart]

Hey, mijn eerste post op dit forum... Ik zou graag een macro maken waar automatisch een tabblad gemaakt word van bepaalde gegevens.

Ik heb al heel wat zoekwerk gedaan maar raak er niet aan uit...dus hopelijk kan me hier iemand helpen.

In bijlage heb ik het tabblad sjabloon. Dit blad zou moeten gebruikt worden als kopie voor de verschillende tabbladen.

Tabblad index is het tabblad waar alle gegevens in staan die in het sjabloon zouden moeten ingevuld worden.

Van al deze nummers zou er dus automatisch een tabblad gemaakt dienen te worden.

Ik heb er nog een tabblad bijgestoken wat het resultaat zou moeten zijn, dit tabblad zou ook de naam van een ingevulde cel dienen te hebben.

Alvast bedankt

 

[Haije]

babarart,

welkom op Helpmij.nl!

Kijk eens of de bijlage voldoet aan je verwachtingen....

 

[VenA]

Waarom voor elke klant een aparte tab? Gaat leuk worden als je 50 of meer klanten hebt. Niet qua code maar wel om ergens iets te vinden.

 

[glda19]

Hier een mogelijk oplossing
Met range en verwijzing naar het werkblad.
En waarom per klant een eigen werkblad

 

[VenA]

Om foutmeldingen te voorkomen

Sub VenA()
  ar = Sheets("Index").UsedRange
  For j = 3 To UBound(ar)
    If ar(j, 2) <> "" Then
      If IsError(Evaluate("'" & ar(j, 2) & "'!A1")) Then
        Sheets("Sjabloon").Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = ar(j, 2)
      End If
      Sheets(ar(j, 2)).Cells(2, 3).Resize(, 2) = Array(ar(1, 1), ar(1, 2))
      Sheets(ar(j, 2)).Cells(5, 2).Resize(3) = Application.Transpose(Array(ar(j, 1), ar(j, 2), ar(j, 3)))
    End If
  Next j
End Sub

 

[babarart]

Hey,
ik heb alle opties geprobeerd en deze lijken allemaal goed te werken.
Ik wou het in tabbladen omdat elk tabblad dient als een voorblad voor alles wat in de indexlijst staat.
Andere ideetjes zijn altijd welkom...

Ik ga het nu zelf wat proberen verder uitwerken aan de hand van jullie voorstellen.

Alvast bedankt allemaal voor jullie snelle reacties en hulp