Complex! Automatisch printen werkblad na zoeken in werkblad, en herhalen

[gast0502]

hallo,

ik heb een vrij complex probleem waarvoor ik een oplossing zoek.

ik heb een excelbestand met heel veel tabbladen. om de resultaten van de acties op alle tabbladen samen te vatten heb ik een nieuw tabblad gemaakt ('voorblad') waarop een soort samenvatting van alle werkbladen staat. het enige gegeven dat dit werkblad nodig heeft is een personeelsnummer waarna alle data van de werkbladen via verticaal zoeken automatisch opgehaald wordt.

nu wil ik dat voorblad dus per medewerker printen, maar met 2500 medewerkers is elke keer het personeelsnummer intypen en het blad uitprinten een enorme klus.

is het mogelijk dat het personeelsnummer in een tabblad wordt opgehaald, en vervolgens het 'voorblad' geprint wordt? en dat dit vervolgens herhaald wordt voor elk volgend personeelsnummer? [een soort afdrukken samenvoegen zoals in WORD]
wellicht via een macro?

bijgevoegd een sterk versimpeld voorbeeld dat hopelijk mijn probleem duidelijk maakt.

hopelijk heeft iemand een oplossing voor mijn probleem!

Bekijk bijlage VoorbeeldSimpel.xls

 

[Cobbe]

Heb een simpel voorbeeld gemaakt.

Cobbe

 

[gast0502]

Bedankt! hier kan ik meer verder, heb het inmiddels in het grote overzicht toegepast en het werkt!

 

[Warme bakkertje]

Het kan ook zonder extra formule in B1

Private Sub CommandButton1_Click()
For i = 2 To WorksheetFunction.CountA(Sheets("Personeelsnr").Columns(1))
    With Sheets("Voorblad")
        .Cells(3, 2) = Sheets("Personeelsnr").Cells(i, 1)
        .Range("A1:H20").PrintPreview
    End With
Next
End Sub