Groepjes van 4 gegevens uitprinten

[Oude leerling]

Geacht forum,
Voor onze biljartvereniging , vrijwillegerswerk , wil ik tellijsten maken automatiseren
Word nu handmatig gedaan
Kun u mij aan een stukje macro helpen welke dit kan realiseren.
Vriendelijke groet , Jaap

 

[AHulpje]

Zoiets?

Alt-F8, Enter

 

[Oude leerling]

AHulpje,

Fantastisch , helemaal goed!

Ik probeerde echter zelf de code te wijzigen als de eerste naam niet in Blad1 op A1 staat
maar bv. in P3
Dit om de code beter te begrijpen
Krijg het niet voor elkaar
Wil u de onderstaande macro voor mij wijzigen voor als de eerste naam in P3 staat?
Vriendelijke groet , Jaap

Sub PrintTellijsten1()
    Dim rij As Integer
    Sheets("Tellijsten").Select
    rij = 1
    With Sheets("Blad1")
        Do While .Cells(rij, 1) <> vbNullString
            Cells(6, 1) = .Cells(rij, 1)
            Cells(6, 3) = .Cells(rij, 2)
            Cells(6, 4) = .Cells(rij + 1, 1)
            Cells(6, 6) = .Cells(rij + 1, 2)
            Cells(6, 8) = .Cells(rij + 2, 1)
            Cells(6, 10) = .Cells(rij + 2, 2)
            Cells(6, 11) = .Cells(rij + 3, 1)
            Cells(6, 13) = .Cells(rij + 3, 2)
            rij = rij + 4
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Loop
    End With
End Sub

 

[AHulpje]

Twee voorbeeldjes met cel P3 als startpunt:

Sub PrintTellijsten2()
    Dim rij As Integer
    Dim kol As Integer
    Sheets("Tellijsten").Select
    rij = Range("P3").Row
    kol = Range("P3").Column
    With Sheets("Blad1")
        Do While .Cells(rij, kol) <> vbNullString
            Cells(6, 1) = .Cells(rij, kol)
            Cells(6, 3) = .Cells(rij, kol + 1)
            Cells(6, 4) = .Cells(rij + 1, kol)
            Cells(6, 6) = .Cells(rij + 1, kol + 1)
            Cells(6, 8) = .Cells(rij + 2, kol)
            Cells(6, 10) = .Cells(rij + 2, kol + 1)
            Cells(6, 11) = .Cells(rij + 3, kol)
            Cells(6, 13) = .Cells(rij + 3, kol + 1)
            rij = rij + 4
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Loop
    End With
End Sub


Sub PrintTellijsten3()
    Dim rij As Integer
    Dim kol As Integer
    Sheets("Tellijsten").Select
    rij = Range("P3").Row
    kol = Range("P3").Column
    With Sheets("Blad1")
        Do While .Cells(rij, kol) <> vbNullString
            Cells(6, 1) = .Cells(rij, kol)
            Cells(6, 3) = .Cells(rij, kol).Offset(0, 1)
            Cells(6, 4) = .Cells(rij, kol).Offset(1, 0)
            Cells(6, 6) = .Cells(rij, kol).Offset(1, 1)
            Cells(6, 8) = .Cells(rij, kol).Offset(2, 0)
            Cells(6, 10) = .Cells(rij, kol).Offset(2, 1)
            Cells(6, 11) = .Cells(rij, kol).Offset(3, 0)
            Cells(6, 13) = .Cells(rij, kol).Offset(3, 1)
            rij = rij + 4
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Loop
    End With
End Sub

 

[Oude leerling]

AHulpje,

Bedankt voor uw hulp
Ik snap nu helemaal
Weer wat opgestoken van deze sessie

Vriendelike groet Jaap