Bladen kopieren

[CRUZ2]

Beste Forum leden,

Ik probeer met de volgende formule een blad te kopieren en toe te voegen

Private Sub CommandButton5_Click()
Dim I  As Integer
Dim J As String

If Range("Meetas").Value >= [d68] Then
MsgBox "Loadcell sheet reeds aanwezig"
Exit Sub
Else
I = [d68] - [Meetas]
Range("Meetas").Value = [d68]
J = [B68]
If I > 0 Then
    For numtimes = 1 To I
    Worksheets(J).Visible = True
    Worksheets(J).Copy After:=Worksheets(J)
    Worksheets(J).Visible = False
    Next
    MsgBox "Loadcell sheet toegevoegd -Gaarne invullen- "
    End If
    LOADCELL.Hide
    End If
End Sub

Nou had ik vijf knoppen aangemaakt en die werkte ook allemaal.

Nu probeer ik deze formule te combineren zodat ales onder een knop valt:
alleen voert hij de eerste stap wel uit en de rest niet?
Formule

rivate Sub CommandButton1_Click()
Dim A  As Integer
Dim B As String
Dim c  As Integer
Dim D As String
Dim E  As Integer
Dim F As String
Dim G  As Integer
Dim H As String
Dim I  As Integer
Dim J As String

If Range("sleevecel").Value >= Range("d64").Value Then
MsgBox "Loadcell sheet reeds aanwezig"
Exit Sub
Else
A = [d64] - [Sleevecel]
Range("Sleevecel").Value = [d64]
B = [B64]
    For numtimes = 1 To A
    Worksheets(B).Visible = True
    Worksheets(B).Copy after:=Worksheets(B)
    Worksheets(B).Visible = False
    Next
    MsgBox "Loadcell sheet toegevoegd -Gaarne invullen- "
    End If
If Range("drukdoos").Value >= [d65] Then
MsgBox "Loadcell sheet reeds aanwezig"
Exit Sub
Else
c = [d65] - [Drukdoos]
Range("drukdoos").Value = [d65]
D = [B65]
If c > 0 Then
    For numtimes = 1 To c
    Worksheets(D).Visible = True
    Worksheets(D).Copy after:=Worksheets(D)
    Worksheets(D).Visible = False
    Next
    MsgBox "Loadcell sheet toegevoegd -Gaarne invullen- "
    End If
If Range("Trekcel").Value >= [d66] Then
MsgBox "Loadcell sheet reeds aanwezig"
Exit Sub
Else
E = [d66] - [Trekcel]
Range("Trekcel").Value = [d66]
F = [B66]
If E > 0 Then
    For numtimes = 1 To E
    Worksheets(F).Visible = True
    Worksheets(F).Copy after:=Worksheets(F)
    Worksheets(F).Visible = False
    Next
    MsgBox "Loadcell sheet toegevoegd -Gaarne invullen- "
    End If
If Range("Draadklem").Value >= [d67] Then
MsgBox "Loadcell sheet reeds aanwezig"
Exit Sub
Else
G = [d67] - [Draadklem]
Range("Draadklem").Value = [d67]
H = [B67]
If G > 0 Then
    For numtimes = 1 To G
    Worksheets(H).Visible = True
    Worksheets(H).Copy after:=Worksheets(H)
    Worksheets(H).Visible = False
    Next
    MsgBox "Loadcell sheet toegevoegd -Gaarne invullen- "
    End If
If Range("Meetas").Value >= [d68] Then
MsgBox "Loadcell sheet reeds aanwezig"
Exit Sub
Else
I = [d68] - [Meetas]
Range("Meetas").Value = [d68]
J = [B68]
If I > 0 Then
    For numtimes = 1 To I
    Worksheets(J).Visible = True
    Worksheets(J).Copy after:=Worksheets(J)
    Worksheets(J).Visible = False
    Next
    MsgBox "Loadcell sheet toegevoegd -Gaarne invullen- "
    End If

End If
End If
End If
End If
End Sub

Wie kan mij helpen deze formule samen te vatten zodat alles onder een knop bijv, commandbutton1_click werkt

Alvast bedankt,

Nico Cruz