IMPORTAR DADOS ABRINDO APENAS UMA VEZ O ARQUIVO.

CLAUDINEICAJE 11/06/2013 10:44:46
#424586
Bom dia

Tenho a seguinte duvida, preciso importar algumas informações de outro arquivo excel porém como são 3 células diferentes acabo tendo que abrir o arquivo 3 vezes para realizar a importação. Gostaria de saber se consigo importar as 3 celulas abrindo apenas uma unica vez o arquivo.

Segue abaixo exemplo do codigo

Sub Importa()
ActiveSheet.Unprotect
Application.ScreenUpdating = False


Workbooks.Open Filename:= _
ThisWorkbook.Path & [Ô]\projeto_recuperacao.XLSB[Ô]
Windows([Ô]projeto_recuperacao.XLSB[Ô]).Activate

[ô]Copiar Meta do Dia
Sheets([Ô]plan1[Ô]).Select
Range([Ô]K2[Ô]).Select
Selection.Copy
Windows([Ô]Placar_Rec.xlsb[Ô]).Activate
Sheets([Ô]plan1[Ô]).Activate
Range([Ô]B5[Ô]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks.Open Filename:= _
ThisWorkbook.Path & [Ô]\projeto_recuperacao.XLSB[Ô]
Windows([Ô]projeto_recuperacao.XLSB[Ô]).Activate
[ô]Copiar Realizados
Sheets([Ô]plan1[Ô]).Select
Range([Ô]M2[Ô]).Select
Selection.Copy
Windows([Ô]Placar_Rec.xlsb[Ô]).Activate
Sheets([Ô]plan1[Ô]).Activate
Range([Ô]C5[Ô]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Workbooks.Open Filename:= _
ThisWorkbook.Path & [Ô]\projeto_recuperacao.XLSB[Ô]
Windows([Ô]projeto_recuperacao.XLSB[Ô]).Activate
[ô]Copiar Restantantes
Sheets([Ô]plan1[Ô]).Select
Range([Ô]O2[Ô]).Select
Selection.Copy
Windows([Ô]Placar_Rec.xlsb[Ô]).Activate
Sheets([Ô]plan1[Ô]).Activate
Range([Ô]C9[Ô]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Application.CutCopyMode = False

Windows([Ô]projeto_recuperacao.XLSB[Ô]).Close False




MARCELO.TREZE 11/06/2013 14:12:29
#424596
Resposta escolhida
não sei posso estar falando besteira mas é meio lógico, já tentou assim

Sub Importa()
ActiveSheet.Unprotect
Application.ScreenUpdating = False


Workbooks.Open Filename:= _
ThisWorkbook.Path & [Ô]\projeto_recuperacao.XLSB[Ô]
Windows([Ô]projeto_recuperacao.XLSB[Ô]).Activate

[ô]Copiar Meta do Dia
Sheets([Ô]plan1[Ô]).Select
Range([Ô]K2[Ô]).Select
Selection.Copy
Windows([Ô]Placar_Rec.xlsb[Ô]).Activate
Sheets([Ô]plan1[Ô]).Activate
Range([Ô]B5[Ô]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[ô]Copiar Realizados
Sheets([Ô]plan1[Ô]).Select
Range([Ô]M2[Ô]).Select
Selection.Copy
Windows([Ô]Placar_Rec.xlsb[Ô]).Activate
Sheets([Ô]plan1[Ô]).Activate
Range([Ô]C5[Ô]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[ô]Copiar Restantantes
Sheets([Ô]plan1[Ô]).Select
Range([Ô]O2[Ô]).Select
Selection.Copy
Windows([Ô]Placar_Rec.xlsb[Ô]).Activate
Sheets([Ô]plan1[Ô]).Activate
Range([Ô]C9[Ô]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Application.CutCopyMode = False

Windows([Ô]projeto_recuperacao.XLSB[Ô]).Close False
CLAUDINEICAJE 12/06/2013 08:19:20
#424624
Bom dia Marcelo Aplicando o código que você sugeriu ele só copia o K2 e as outras celulas não

porém não era necessário eu abrir o arquivo 3 vezes e sim ativalo apenas 3 vezes então o trecho que deveria repetir era apenas esse aqui Windows([Ô]projeto_recuperacao.XLSB[Ô]).Activate.

Mas Obrigado mesmo assim o codigo já está rodando.

Tópico encerrado , respostas não são mais permitidas