Meerdere rijen van een werkblad op een nieuw blad weergeven

[kirsten75]

Hallo,

Ben bezig met een voorraadbeheer programma.
Heb daarin een tabblad met artikelen, boekingen en bon.
Op het blad boekingen worden alle transacties ingevuld. Om aan te geven welke artikelen op dezelfde bon moeten komen heb ik de kolom bonnr aangemaakt.
Ik wil op het tabblad bon deze bon genereren, en wel zo dat als je op dit blad in cel C1 een nummer invult (bijv. 2) onder de zwarte lijn alle rijen van het blad boekingen waar het bonnr. 2 is worden weergegeven.
Wie kan mij hier mee helpen?

gr. Kirsten

 

[Demeter]

Probeer deze code eens in een module:

Sub overzetten()
Dim c As Range
Dim nieuweregel As Long

For Each c In Sheets("boekingen").Range("A2:A" & Range("A65536").End(xlUp).Row)
    If c = Sheets("bon").Range("C1") Then

        nieuweregel = Sheets("bon").Range("A65536").End(xlUp).Row + 1

        Range("A" & nieuweregel) = c.Offset(, 2)
        Range("B" & nieuweregel) = c.Offset(, 3)
        Range("C" & nieuweregel) = c.Offset(, 5)
        Range("D" & nieuweregel) = c.Offset(, 6)
    End If
Next

Sheets("bon").Range("C1").Select

End Sub

Groet,
Ferenc

Misschien niet de meest efficiente maar wel de snelste welke ik kan bedenken (op dit moment).

 

[kirsten75]

Het werkt! Bedankt.