regels afdrukken in sjabloon op ander tab-blad

[DutchMac]

Hallo,

ik wil graag de regels (op tabblad regels)1 voor 1 afrukken in het sjabloon (op tabblad Sjabloon)

Is daar een scripje voor te maken, het gaat natuurlijk om iets meer regels


Thx voor meedenken!

 

[AD1957]

voor kolom B t/m E van blad regels zoiets?

Sub Naar_Sjabloon()
j = Sheets("Sjabloon").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Sjabloon").Range("A12:D" & j) = ""
    Sheets("Sjabloon").Range("A12:D" & j).Borders.LineStyle = xlNone
    
     
i = Sheets("regels").Range("B100").End(xlUp).Row
Sheets("regels").Range("B2:E" & i).Copy Sheets("Sjabloon").Range("A12:D" & i + 9)
End Sub

 

[VenA]

Ik denk zo.

Sub VenA()
  ar = Sheets("regels").Cells(1).CurrentRegion
  With Sheets("Sjabloon")
    For j = 2 To UBound(ar)
      .Cells(3, 2) = ar(j, 6)
      .Cells(6, 1).Resize(5) = Application.Transpose(Array(ar(j, 3) & ar(j, 5), ar(j, 4), ar(j, 7), ar(j, 8), "Art: " & ar(j, 2)))
      .PrintPreview 'printout
    Next j
  End With
End Sub

 

[AD1957]

@VenA,
Als ik nog eens goed kijk hebben we het beiden fout.

update
Excuus: Jij hebt het goed.

 

[VenA]

Verklaar u naarder. Mogelijk dat ik wat verkeerds in elkaar gedraaid heb.

 

[AD1957]

Zie update in #4

Ik durf het bijna niet, maar toch een kleine aanpassing.

.Cells(6, 1).Resize(5) = Application.Transpose(Array(ar(j, 3) [COLOR="#FF0000"]& " " &[/COLOR] ar(j, 5), ar(j, 4), ar(j, 7), ar(j, 8), "Art: " & ar(j, 2)))

 

[HSV]

Achterhoeks? → naarder?

 

[VenA]

Zééékurs