Werkbladen kopiëren en aanpassen op basis van waarde (met for i)

[BernieBear]

Beste spaarie, ik kan geen werkblad bijvoegen lijkt t, dus ik zal de tekst editen in de hoop het zo duidelijker te maken:

In een cel staat de waarde van het hoogste pakbonnummer (dmv formule MAX... gegenereerd). Op basis van dat hoogste pakbonnummer wil ik graag dat tabblad PL1 zoveel keer wordt gekopieerd en ingevoegd. Daarna wil ik nog wat acties per tabblad, maar laat ik beginnen met de actie om op basis van de waarde in de cel de kopieën van de werkbladen aan te maken.

Waar ik niet uitkom is hoe ik met VBA-code het zo aanstuur dat als er in die cel 39 staat dat er dan ook 39 tabbladen worden gekopieerd.

Volgens mij moet het heel simpel zijn, maarja ik kom dan ook net kijken en een beetje vogelen in heel VBA......

Hoop dat het zo een beetje duidelijker is.....

Dank alvast!

 

[spaarie]

Bernadette,
Ik denk dat je met een voorbeeldje een betere code krijgt dan nu...

 

[BernieBear]

Hallo spaarie, ik heb de omschrijving aangepast omdat ik geen werkblad kan bijvoegen. Wie weet kun je me zo verder helpen..... dankjewel alvast!

 

[ReneDirks]

    Dim PakBonCell As String
    'maakt niet uit hoe je aan de cell komt; ActiveSheet, SheetNaam, etc
    'als voorbeeld neem ik hier A1 (row=1, col=1)
    PakBonCell = Sheet1.Cells(1, 1).Value
    
    If Not IsNumeric(PakBonCell) Then
        MsgBox "Geen geldig pakbon nummer"
    Else
        If PakBonCell = 0 Then
            MsgBox "Er zijn geen pakbonnen"
        Else
            Dim i As Integer
            Dim wsSource As Worksheet
            Dim wsNew As Worksheet
            
            Set wsSource = Worksheets("PL1")
            For i = 1 To CInt(PakBonCell)
                wsSource.Copy , Worksheets(Worksheets.Count)
                Set wsNew = Worksheets(Worksheets.Count)
                wsNew.Name = "PB" & Format(i, "00")
            Next
            Set wsSource = Nothing
            Set wsNew = Nothing
        End If
    End If

 

[BernieBear]

Geweldig!!!! Het werkt..... Precies zo als ik hoopte!!!

Dank MegaSenior ReneDirks!

Dank, dank, dank!

 

[ReneDirks]

Mooi zo! Als je de code ook nog een beetje kan volgen dan kun je 'm ook nog aanpassen waar nodig.

 

[BernieBear]

Dat klopt, ik heb er al wat regels tussengevoegd en het werkt nog steeds. Probeer hier vandaan beetje bij beetje de code weer uit te bouwen. 't kan aan mij liggen, maar ik vind het heel verslavend ;-)...... om dat allemaal uit te vogelen, hihi.