afdruk samenvoegen binnen Excel

[Eddie67]

Beste,

Ik heb 2 tabbladen binnen een excel bestand.
Tabblad 1, "Certificaat" hierop staan gegevens vermeld die uit een lijst komen die op tabblad 2 staan.
Het is de bedoeling dat ik op basis van de weeknummers een aantal certificaten kan afdrukken.

Als er bijvoorbeeld 3 regels staan met weeknummer 30 dan zou ik die 3 certificaten graag in één keer willen afdrukken, door alleen het weeknummer in te geven.

 

[Cobbe]

Ik denk dat dit mag!

 

[plongske]

Via geavanceerd en de paperclip kan je een voorbeeldbestandje toevoegen.

 

[Eddie67]

Vorbeeld bestandje

Het bijgevoegde bestand geeft ongeveer de situatie weer, de originele is een beetje uitgebreider.

Bekijk bijlage voorbeeld afdrukken samenvoegen.xlsx

 

[Cobbe]

Zo ongeveer?

 

[Eddie67]

Er worden nu idd 3 documenten geprint voor week nr 30, maar dit zijn 3 gelijke documenten.
Hoe krijg ik deze nog aangepast zodat ik ook daadwerkelijk 3 certificaten kan printen met de betreffende data.

 

[VenA]

Als je de lege regel in blad2 weglaat dan kan het zo.

Private Sub CommandButton1_Click()
  ar = Blad2.Cells(1).CurrentRegion
  For j = 2 To UBound(ar)
    If ar(j, 1) = Range("K2") Then
      Range("D5:D10").Value = Application.Transpose(Array(ar(j, 2), ar(j, 3), ar(j, 4), ar(j, 5), "", ar(j, 6)))
      Range("afdruk").PrintPreview 'printout
    End If
  Next j
End Sub

 

[Eddie67]

Iedereen bedankt voor de hulp die jullie hebben geboden.
Opdracht is succesvol afgerond :thumb:

 

[snb]

Als je rij 9 qua rijhoogte verhoogt kan het ook met:

Private Sub CommandButton1_Click()
  ar = Blad2.Cells(1).CurrentRegion
  y = Cells(2, 11)
  
  For j = 2 To UBound(ar)
    If ar(j, 1) = y Then
      ar(j, 1) = ""
      Range("D4:D9") = Application.Transpose(Application.Index(ar, j))
      Range("afdruk").PrintPreview
    End If
  Next
End Sub