Este fórum está sendo desativado

[AlexB17]

Pessoal, preciso de uma ajuda.

Não estou conseguindo colocar duas fichas de entrega de cestas básicas em uma única página com dois indivíduos diferentes.

Alguém me ajuda?

[osvaldomp]

Considerei que a segunda ficha estará a partir da linha 23.

Código: Selecionar todos

Sub ImprimirV2()
Dim r As Long, k As Long, ws2 As Worksheet
  Set ws2 = Sheets("Ponto")
  r = Cells(Rows.Count, "B").End(xlUp).Row
   For k = 4 To r Step 2
    ws2.Range("B3").Value = Cells(k, 2)
    ws2.Range("I3").Value = Cells(k, 3)
    ws2.Range("B25").Value = Cells(k + 1, 2)
    ws2.Range("I25").Value = Cells(k + 1, 3)
    ws2.PrintPreview
    'ws2.PrintOut
   Next k
End Sub