Problema: Como criar uma variável para escolher a planilha a ser copiada dentro de uma pasta de trabalho de excel? partindo de uma planilha base na qual ela acessa outros arquivos porem ela só copia a primeira planilha.
Obs: O script a seguir esta funcionando mas, só copia a primeira planilha do arquivo escolhido.
Script:
Sub importar01()
Application.ScreenUpdating = False Application.DisplayAlerts = False
'Dim define as variaveis Dim nomearq As String Dim nomearq2 As String nomearq = Application.GetOpenFilename Workbooks.Open Filename:=nomearq 'variavel recebe o nome do arquivo nomearq2 = ActiveWorkbook.Name
Sheets(1).Select (AQUI O PROBLEMA OCORRE)
Range("a2").Select 'a aprtir de a2 ctrl shift para baixo e direita, e copia Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy Workbooks("base.xlsm").Activate 'para achar a ultima celula preenchida Range("a1048576").End(xlUp).Offset(1, 0).Select ActiveCell.PasteSpecial xlFormats ActiveCell.PasteSpecial xlValues Workbooks(nomearq2).Activate Workbooks(nomearq2).Close
'Ajusta a largura das colunas Columns("A:G").EntireColumn.AutoFit
Range("a1").Select
Application.DisplayAlerts = True Application.ScreenUpdating = True
End Sub
Pensei em criar uma variável que recebe um dado através do InputBox:
Sub importar2()
Dim numero As Integer (talvez o como Byte) numero = InputBox("Digite o número da planilha:") Sheets(numero).Select
End Sub
Porém não obtive êxito !
