per celverwijzing/regel

[Danielle22]

Hallo allemaal,

Ik heb een testbestand en daar komen uitkomsten uit. Nu moeten deze eigenlijk afgedrukt worden per regel. Dit gaat me nog wel kukken, maar het moet voldoen aan een bepaalde opmaak.

Dus ik heb een blad "data" en een blad "print". Nu heb ik een celverwijzing van het blad print naar het blad data gezet. Nu moet ik dat nog handmatig afdrukken. Dus ik verander steeds de celverwijzing.

Is het ook mogelijk met een macro? Zodat ik 6 printjes krijg (zie voorbeeldje) vanuit het blad print. Dus die 6 regels uit het blad data dat die geprint worden vanuit het blad print?

Groetjes,

Danielle
Bekijk bijlage voorbeeld.xls

 

[HSV]

Hallo Daniëlle,

Als onderstaande werkt, maak je van printpreview → printout.

Sub Knop1_BijKlikken()
   For Each c In Sheets("data").Range("A2:A7")
     With Sheets("print")
        .Cells(1, 6) = c
        .Cells(1, 2) = c.Offset(, 1).Value
        .Cells(6, 2) = c.Offset(, 2).Value
        .Cells(11, 2) = c.Offset(, 3).Value
        .PrintPreview
     End With
   Next c
End Sub

 

[Danielle22]

Hoi,

Heel erg bedankt voor je macro :thumb:.

Is het ook mogelijk dat ik het bereik verleng (bijvoorbeeld naar A10) en dat die toch maar 6 print? Dus dat die alleen gevulde bladen print?

Ik heb nu een formule staan die de gevulde cellen telt en dat je daar dan rekening mee houdt met het uitpinten. Maar misschien dat bovenstaande ook mogelijk is.

Maar met deze code ben ik echt heel blij

Groetjes,

Danielle

 

[HSV]

Graag gedaan,

Al wil je de range naar rij 100 hebben.

Sub Knop1_BijKlikken()
   For Each c In Sheets("data").Range("A2:A100")
   If c > 0 Then
     With Sheets("print")
        .Cells(1, 6) = c
        .Cells(1, 2) = c.Offset(, 1).Value
        .Cells(6, 2) = c.Offset(, 2).Value
        .Cells(11, 2) = c.Offset(, 3).Value
        .PrintPreview
     End With
     End If
   Next c
 End Sub

 

[Danielle22]

Top:thumb:

Heel erg bedankt, dit werkt perfect!

Groetjes,

Danielle