VBA codes samenvoegen

SamEerd · 17 mei 2018

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

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

VenA · 17 mei 2018

De variabelen opnemen in een sub bv

Code:

Sub VenA(a As String, b As String)
  MsgBox Sheets(a).Name & " " & Sheets(a).Range(b)
End Sub

De aanroep wordt dan bv

Code:

Sub knop1()
  VenA "Sheet1", "A1"
End Sub

SamEerd · 22 mei 2018

Okay, het is gelukt

Bedankt VenA

VBA codes samenvoegen

SamEerd

Nieuwe gebruiker

VenA

Inventaris

SamEerd

Nieuwe gebruiker

Nieuwste berichten

Wij waarderen jouw privacy