Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: VBA codes samenvoegen

  1. #1
    Vraag is opgelost

    VBA codes samenvoegen

    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:
    Code 1
    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:
    Code 2
    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:
    Code 3
    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:
    Code 4
    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:
    Code 5
    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 aangepast door SamEerd : 17 mei 2018 om 15:24

  2. #2
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Okay, het is gelukt

    Bedankt VenA

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren