Como usar while em VBA

[Leonardo_Augusto]

Olá ! Preciso muito da ajuda de vocês,

meu código abaixo lê os dados de uma planilha ,seleciona este e manda imprimir. Mas no momento eu precisaria repetir o código para funcionar pra cada cadastro(pessoa cadastrada).

exemplo : Range("A5").Select ....

Range("A6").Select ...... até o Range("A50").Select

Lembrando que os dados podem aumentar ..

Como posso otimizar para não precisar repetir o código abaixo para cada range?

Sub Macro1()

' Macro1 Macro

' Atalho do teclado: Ctrl+i

Sheets("Dados Pessoais").Select

Range("A5").Select

Selection.Copy

Sheets("Folha de Pagamento").Select

Range("I3").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Sheets("Dados Pessoais").Select

Range("A6").Select

Selection.Copy

Sheets("Folha de Pagamento").Select

Range("I3").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

End Sub

[Wagner Morel]

Leonardo_Augusto,

Boa Tarde!

Você pode tentar assim:

Sub Macro1()
Dim i As Long
Dim UltimaLinha As Long

UltimaLinha = Sheets("Dados Pessoais").Cells(Cells.Rows.Count, 1).End(xlUp).Row

' Macro1 Macro
' Atalho do teclado: Ctrl+i

For i = 5 To UltimaLinha
 Sheets("Dados Pessoais").Range("A" & i).Copy Destination:=Sheets("Folha de Pagamento").Range("I3")
 Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next

Application.CutCopyMode = False
End Sub

[Leonardo_Augusto]

Como eu posso fazer para imprimir somente os registros filtrados?, por que nem sempre vou querer imprimir tudo!

Edited March 17, 2015 at 12:42 PM by Leonardo_Augusto