Ik heb verschillende VBA codes gemaakt en op zich werken ze perfect alleen heb ik nu 5 verschillende knoppen.
Is er een mogelijkheid om ze samen te voegen?
Het is eigenlijk 5 keer dezelfde code, maar ik vind het niet...
Ben nog een beetje noob in VBA
Is er een mogelijkheid om ze samen te voegen?
Het is eigenlijk 5 keer dezelfde code, maar ik vind het niet...
Ben nog een beetje noob in VBA
Code:
[B]Code 1[/B]
Public Sub Fixnumber()
Dim sArtikel As String
Dim nAantal As Integer
Dim nTeller As Integer
Dim nRegelteller As Integer
With ActiveWorkbook.Sheets("Blad3").Range("A2")
Do While .Offset(nTeller, 0) <> ""
sArtikel = .Offset(nTeller, 0)
nAantal = .Offset(nTeller, 5)
With ActiveWorkbook.Sheets("Product Stickers").Range("A2")
For nRegelteller = nRegelteller To nRegelteller + nAantal - 1
.Offset(nRegelteller, 0) = sArtikel
Next
End With
nTeller = nTeller + 1
Loop
End With
End Sub
Code:
[B]Code 2[/B]
Public Sub LRArtikelcode()
Dim sArtikel As String
Dim nAantal As Integer
Dim nTeller As Integer
Dim nRegelteller As Integer
With ActiveWorkbook.Sheets("Blad3").Range("B2")
Do While .Offset(nTeller, 0) <> ""
sArtikel = .Offset(nTeller, 0)
nAantal = .Offset(nTeller, 4)
With ActiveWorkbook.Sheets("Product Stickers").Range("B2")
For nRegelteller = nRegelteller To nRegelteller + nAantal - 1
.Offset(nRegelteller, 0) = sArtikel
Next
End With
nTeller = nTeller + 1
Loop
End With
End Sub
Code:
[B]Code 3[/B]
Public Sub IVA()
Dim sArtikel As String
Dim nAantal As Integer
Dim nTeller As Integer
Dim nRegelteller As Integer
With ActiveWorkbook.Sheets("Blad3").Range("D2")
Do While .Offset(nTeller, 0) <> ""
sArtikel = .Offset(nTeller, 0)
nAantal = .Offset(nTeller, 2)
With ActiveWorkbook.Sheets("Product Stickers").Range("D2")
For nRegelteller = nRegelteller To nRegelteller + nAantal - 1
.Offset(nRegelteller, 0) = sArtikel
Next
End With
nTeller = nTeller + 1
Loop
End With
End Sub
Code:
[B]Code 4[/B]
Public Sub Barcode()
Dim sArtikel As String
Dim nAantal As Integer
Dim nTeller As Integer
Dim nRegelteller As Integer
With ActiveWorkbook.Sheets("Blad3").Range("E2")
Do While .Offset(nTeller, 0) <> ""
sArtikel = .Offset(nTeller, 0)
nAantal = .Offset(nTeller, 1)
With ActiveWorkbook.Sheets("Product Stickers").Range("E2")
For nRegelteller = nRegelteller To nRegelteller + nAantal - 1
.Offset(nRegelteller, 0) = sArtikel
Next
End With
nTeller = nTeller + 1
Loop
End With
End Sub
Code:
[B]Code 5[/B]
Public Sub Omschrijving()
Dim sArtikel As String
Dim nAantal As Integer
Dim nTeller As Integer
Dim nRegelteller As Integer
With ActiveWorkbook.Sheets("Blad3").Range("C2")
Do While .Offset(nTeller, 0) <> ""
sArtikel = .Offset(nTeller, 0)
nAantal = .Offset(nTeller, 3)
With ActiveWorkbook.Sheets("Product Stickers").Range("C2")
For nRegelteller = nRegelteller To nRegelteller + nAantal - 1
.Offset(nRegelteller, 0) = sArtikel
Next
End With
nTeller = nTeller + 1
Loop
End With
End Sub
Laatst bewerkt: