Automatisch nieuw werkblad aanmaken bij nieuw record

[luc0s]

Goededag,

Ik heb een soort gelijke vraag als
http://www.helpmij.nl/forum/showthr...isch-nieuw-werkblad-aanmaken-bij-nieuw-record

En daar was de code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Worksheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Target

End Sub

Mijn probleem is dat ik een compleet A kolom wil kopiëren zodat in het excel bestand in 1 keer allemaal werkbladen erbij komen, in plaats van ze 1 voor 1 in te typen. Het zijn er 508 stuks.

Ik weet er zelf helemaal niets van dus heb al geprobeerd met

If ( Target.Range (A1:A508)) = 1 Then

Maar dat werkt ook niet.

Ik heb het gevoel dat het fout zit bij

Worksheets(Worksheets.Count).Name = Target

Kan iemand mij helpen?


Hier het bestand Bekijk bijlage Automatisch werkbladen.xlsm

 

[VenA]

Wat wil je met een bestand met 508 werkbladen?

Sub VenA()
For Each cl In Sheets("export_category-2016_04_18-21_1").Columns(1).SpecialCells(2)
    If IsError(Evaluate(cl.Value & "!A1")) Then
        Sheets.Add , Sheets(Sheets.Count)
        With ActiveSheet
            .Name = Left(cl.Value, 31)
            .[A1] = cl.Value
        End With
    End If
Next cl
End Sub

 

[luc0s]

Haha, ik heb een carnavalswinkel en ben bezig met een zoekwoorden onderzoek. Dus moet al deze "categorieën" gaan onderzoeken of daar door mensen wordt onderzocht.

Zo niet dan kan ik ze gaan schrappen en de website wat gaan opschonen... want 500 categorieën worden ook klanten niet blij van

Hoop werk aan de winkel dus.


[On Topic]

Ik heb 'm net geprobeerd maar lukt me niet om 'm werkend te krijgen.

De code ge copy paste. De categorieën in de A kolom opnieuw erin geplakt, 1 record ingetypt en op enter getikt maar krijg geen nieuw werkblad te zien

Doe ik iets fout ?

 

[VenA]

Druk op <Alt>+<F8> en voer de macro uit.

 

[Warme bakkertje]

Zet je cursor ergens in de macro en druk F5

 

[luc0s]

Hij werkt als een TREIN !!!!

Super bedankt Toppers !! Ik ben heeeeeeel erg blij.. en bespaard me mega veel werk..

Nogmaals bedankt