Suponha que você tenha uma Pasta de Trabalho com duas Planilhas. A primeira Planilha, que se chama
Lista, possui uma tabela com seus dados. A segunda Planilha, que se chama
Modelo, possui um formulário padrão.
O código abaixo cria uma nova Pasta de Trabalho que contém um número de Planilhas igual ao número de registros da Planilha
Lista. Além disso, ao final da rotina, cada uma das Planilhas estará devidamente povoada com os dados da Planilha
Lista.
Sub GeraRelatórios()
'Local onde os valores da Lista são atribuídos na Planilha Modelo
Const strNome As String = "E5"
Const strIdade As String = "E7"
Const strCor As String = "E9"
Const strCidade As String = "E11"
Dim rLast As Long
Dim r As Long
Dim wb As Workbook
Dim wsThis As Worksheet
Dim ws As Worksheet
Set wsThis = ThisWorkbook.Sheets("Lista")
With wsThis
rLast = .Cells(.Rows.Count, "A").End(xlUp).Row
Set wb = Workbooks.Add
'A contagem se inicia 2 porque a linha 1 é o cabeçalho
For r = 2 To rLast
'Copia um dos Modelos para a nova Pasta de Trabalho
ThisWorkbook.Sheets("Modelo").Copy Before:=wb.Sheets(1)
Set ws = wb.Sheets(1)
'Renomeia a nova Planilha para, por exemplo, o nome de uma
'pessoa da Planilha Lista:
ws.Name = .Cells(r, "A")
'Entra com os registros da tabela em Lista na nova Planilha
ws.Range(strNome) = .Cells(r, "A")
ws.Range(strIdade) = .Cells(r, "B")
ws.Range(strCor) = .Cells(r, "C")
ws.Range(strCidade) = .Cells(r, "D")
Next r
End With
End Sub
Se ainda estiver com dúvidas, veja um exemplo pronto em:
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
