EXCEL VBA: Regel kopiëren naar andere sheet

[tijmen_4real]

Hoi,

Onderstaande code werkt prima. Nu wil ik de betreffende regel (c.row) kopiëren naar een sheet genaamd "Picklist" (bij comment 'regel toevoegen aan picklist).
Ik krijg het niet voor elkaar, kom overal voorbeelden tegen, maar loop vast...
Zou iemand hier zo vriendelijk willen zijn om mij hier alsjeblieft mee te helpen?

Sub loopdoorRegels()
    Sheets("Label").Visible = True 'tabblad tonen
    If ActiveSheet.Range("H2").Value = "Nee" Then
                Sheets("Label").Range("A7").Value = "VO: " & ActiveSheet.Range("C2").Value 'VO-nummer
                Sheets("Label").Range("C9").Value = Date 'datum van vandaag
                Sheets("Label").Range("A7").Font.Name = "Calibri"
                Sheets("Label").Range("A7").Font.Size = 20 'font size
            Else:   Sheets("Label").Range("A8").Value = "VO: " & ActiveSheet.Range("C2").Value   'VO-nummer
                    Sheets("Label").Range("A7").Value = ActiveSheet.Range("D" & c.Row).Value
                    Sheets("Label").Range("A7").Font.Name = "IDAutomationHC39M Free Version" 'font barcode
                    Sheets("Label").Range("A7").Font.Size = 16
    End If
    Dim aantalLabels As String 'variabele aanmaken voor aantal te printen labels
    Dim count As Long
    For Each c In Range("N6:N106") 'controle welke rij een aantal heeft dat groter is dan 0 **BEREIK**
    If c.Value > 0 Then
        'Variabele onderdelen op label
        Sheets("Label").Range("C1").Value = "Materiaal: " & ActiveSheet.Range("M" & c.Row).Value 'Type materiaal
        Sheets("Label").Range("C3").Value = "Filler: " & ActiveSheet.Range("L" & c.Row).Value 'Fillerkleur
        Sheets("Label").Range("A4").Value = "Interboat - " & ActiveSheet.Range("A" & c.Row).Value 'Naam klant + type boot
        Sheets("Label").Range("A5").Value = ActiveSheet.Range("B" & c.Row).Value 'Omschrijving onderdeel
        Sheets("Label").Range("A6").Value = "Part #: " & ActiveSheet.Range("C" & c.Row).Value 'Nummer onderdeel
        'Vaste onderdelen op label
        Sheets("Label").Range("C2").Value = "Kleur: " & ActiveSheet.Range("C3").Value 'Kleur materiaal ** VAST **
        Sheets("Label").Range("C9").Value = Date 'datum van vandaag
        'Labels printen
        aantalLabels = ActiveSheet.Range("O" & c.Row).Value 'Aantal te printen etiketten definiëren
        'Sheets("Label").Range("A1:C9").PrintOut Copies:=aantalLabels, ActivePrinter:="ZDesigner GK420t (EPL)", Collate:=True
        Call emptyLabel 'Label legen voor volgende
        'Regel toevoegen aan picklist
        MsgBox (c.Row)
    End If
    Next c
    'Melding VO/kleur/#parts in popup
    MsgBox ("Er zijn voor VO" & ActiveSheet.Range("C2").Value & " in de kleur " & ActiveSheet.Range("C3").Value & vbNewLine & "een totaal van " & ActiveSheet.Range("O107").Value & " parts (incl. subparts) bevestigd." & vbNewLine & vbNewLine & "Fijne dag verder!")
    ActiveSheet.Range("N6:N106").Value = 0 'kolom met aantallen legen **BEREIK**
    Sheets("Label").Visible = False 'tabblad verbergen
    ActiveSheet.Range("L6:L106").Value = "" 'kolom met fillerkleur legen **BEREIK**
    ActiveSheet.Range("C2").Value = "" 'cel met VO-nummer legen
    ActiveSheet.Range("C3").Value = "" 'cel met kleur materiaal legen
End Sub

Bij voorbaat dank en met vriendelijke groet,

Tijmen

 

[AD1957]

Misschien even een voorbeeldbestand plaatsen.

 

[tijmen_4real]

Misschien even een voorbeeldbestand plaatsen.

 

[AD1957]

Met beveiligde VBA kunnen ze hier niet helpen.