Salve os dois arquivos na mesma pasta(qualquer), inclusive, no caso do arquivo CIDADES, habilitado para Macros (xlsm).
Insira um Módulo e cole o código abaixo.
Faça um teste com arquivos de backup e reporte erros ou inconsistências.
Sub Importar()
Dim pasta As String
Dim i As Integer
Dim f As Integer
pasta = ThisWorkbook.Path
i = 1
f = Sheets("LISTA").Range("A65536").End(xlUp).Row
Workbooks.Open Filename:=pasta & "BASE.xlsx"
Do While i <= f
Windows("CIDADES.xlsm").Activate
guia = Sheets("LISTA").Cells(i, 1).Value
Windows("BASE.xlsx").Activate
Sheets(guia).Copy After:=Workbooks("CIDADES.xlsm").Sheets(i)
Windows("BASE.xlsx").Activate
i = i + 1
Loop
Windows("BASE.xlsx").Activate
ActiveWindow.Close
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 07/06/2013 11:35 am