Automatisch volgende regel inlezen in Excel en huidige VBA code erop toepassen

[robbertslakhorst]

Ik heb een Excel werkblad aangemaakt met 2 tabbladen.
In het 1e tabblad komt de palletkaart waar de gegevens per regel uit tabblad 2 verzameld moeten worden en geprint moeten worden.
Dit moet per regel uit tabblad 2 herhaald worden tot einde data in tabblad 2. Dus per regel een palletkaart die na printen weer leeggemaakt moet worden.

In de bijlagen treft u het voorbeeld bestand aan met opgenomen macro.
Deze macro herhaald niet de regels uit tabblad 2 en stopt dus na de eerste print.

Hoe kunnen we dit herhalen totdat het einde van de data in tabblad 2 is bereikt?
Bekijk bijlage Printlijst palletkaart.xlsm

 

[edmoor]

Probeer deze maar eens:

Sub Palletkaar_printen()
    Dim rgl As Long

    With Sheets("Gegevens")
        For rgl = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
            Cells(3, 3) = .Cells(rgl, 1)
            Cells(5, 3) = .Cells(rgl, 2)
            Cells(7, 3) = .Cells(rgl, 3)
            Cells(9, 3) = .Cells(rgl, 4)
            Cells(11, 3) = .Cells(rgl, 5)
            ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
        Next rgl
        Range("C3:C11").ClearContents
    End With
End Sub

In plaats van ExecuteExcel4Macro om te printen, kan je ook dit gebruiken:
https://msdn.microsoft.com/en-us/library/office/ff838253.aspx

 

[robbertslakhorst]

Bedankt voor dit antwoord. Ben hier erg blij mee.
Het werkt en met een beetje puzzelen en codes tussen Excel en VB ontcijferen is het me gelukt om dit uit te breiden voor mee cellen.

Mocht ik nog een vraag hebben dan zal ik hem in een nieuw topic op dit forum stellen

 

[edmoor]

Ok dan :thumb:

 

[snb]

Of met:

Sub M_snb()
  For Each cl In Sheets("Gegevens").Columns(1).SpecialCells(2)
    Cells(3, 3).Resize(9) = Application.Transpose(Split(Join(Application.Transpose(Application.Transpose(cl.Resize(, 5))), "||"), "|"))
    ActiveSheet.PrintOut
  Next
End Sub