Abra o arquivo lista

Abra o editor VBA Alt+F11

Inserir - Modulo

Cole esse codigo

Sub Copiar()

Dim WLis As Workbook
Dim WsLis As Worksheet

Application.ScreenUpdating = False

Set WLis = Workbooks("Lista.xlsm")
Set WsLis = Sheets("Lista")

Workbooks.Open Filename:="C:projetos.xlsx"
Sheets("Plan2").Select
Range("A2:AM2").Select
Selection.Copy
Windows("Lista").Activate
WsLis.Select
Range("A1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Windows("projetos.xlsx").Activate
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select

WLis.Save

Application.ScreenUpdating = True

End Sub

Feche o editor

Crie um botao na sua planilha associe a macro copiar

Salve o arquivo como habilitado para macros excel.

Bom proveito

Marcelo,

Troquei o nome dos arquivos, mas não estou conseguindo aplicar o código. Segue arquivos de exemplos.

No arquivo "Projetos 1" o usuário preenche a aba "exemplo" e a importação é feita através da aba "Base".

Segue o arquivo com o codigo editado.

O codigo dessa vez esta comentado então ficou mais facil de entender

A pasta projetos 1 deve ficar em C: caso esteja armazenada em outro local troque o caminho no codigo.

Agora clareou par mim Marcelo

É exatamente isso que preciso.

Só tenho mais uma dúvida..

No código está pra selecionar o arquivo "Projetos 1", mas possuo vários arquivos "Projetos 1". Tem como abrir a janela para selecionar qual arquivo desejo importar?

Desde já muito obrigado pela força.

Abraço

Abra o editor de vba entre no modulo e troque esta linha

Workbooks.Open Filename:="C:projetos 1.xlsx"

por este

Application.Dialogs(xlDialogOpen).Show

Vai abrir a caixa de dialogo abrir arquivo para vc escolher (mas o nome do arquivo devera ser sempre projetos 1 pq se nao vai dar erro se os nomes forem diferentes vai precisar de outras edições no codigo.

Show.

Obrigado Marcelo