IMPORTAR DADOS ABRINDO APENAS UMA VEZ O ARQUIVO.
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
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
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
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.
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