data uit sheet 2 in sheet 1 printen

[tcgjohn]

Ik wil graag een range van data uit sheet 2 (B1-H20) printen in een formulier welke in sheet 1 staat.
Echter eerst moet data uit B1 en B2 in resp. C3 en C24 (sheet 1) geplaatst worden. Dan moet automatisch een print volgen. Vervolgens data uit B3 en B4 in resp. C3 en C24. en weer een print. Dit gaat door tot laatste rij B20. Nu heb ik de volgende stukje macro.
Private Sub DrukAf_Click()

Range("C3").Select
ActiveCell.FormulaR1C1 = "AR 1"
Range("C24").Select
ActiveCell.FormulaR1C1 = "AR 2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

AR 1 en AR 2 (data) enz. staan in kolom B van sheet 2.

Waar kan ik voorbeelden vinden of heeft iemand een oplossing?
John

 

[Wigi]

Zo?

Dim i As Integer
    For i = 1 To 20 Step 2
        Sheets("sheet1").Range("C3").Value = Sheets("sheet2").Range("B1").Offset(i - 1).Value
        Sheets("sheet1").Range("C24").Value = Sheets("sheet2").Range("B1").Offset(i).Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next

Ongeteste code

Wigi

 

[tcgjohn]

data uit sheet 1 naar sheet 2 en printen

Wigi,

De macro werkt goed en is een stuk korter dan de opgenomen macro.
Maar als halverwege de lijst een dataregel niet geprint moet worden omdat de data niet aanwezig is, wat moet er dan aangepast worden in de macro?

groet,
John

 

[Wigi]

Dan moet je een If Then Else constructie gebruiken om te testen of er al dan niet geprint moet worden.

 

[tcgjohn]

data uit sheet 1 naar sheet 2 en printen

Ik ga de if then else toepassen. Bedankt.

john