DADOS DE OUTRA PLANILHA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

DADOS DE OUTRA PLANILHA

Mensagem por davds em Dom Ago 18, 2013 8:41 pm

Boa noite

Tenho uma planilha em excel que puxa dados de outra planilha, tipo, uso a planilha 1 aonde consigo alguns dados da planilha 2, sendo que as duas planilhas estão no mesmo arquivo.

Eu queria saber se seria possivel trazer os dados de uma planilha sendo de arquivos distintos, exemplo

Planilha 1 do arquivo 01 traz os dados da planilha 1 do arquivo 2

Isso é possivel ?

davds
Iniciante
Iniciante

Mensagens : 3
Data de inscrição : 12/08/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: DADOS DE OUTRA PLANILHA

Mensagem por alexandrevba em Sab Ago 24, 2013 6:58 pm

Boa noite!!

Sim!!

Exemplo
Código:
Sub CopiaDados()
Dim DestBook As Workbook, SrcBook As Workbook
Application.ScreenUpdating = False
Set SrcBook = ThisWorkbook
On Error Resume Next
Set DestBook = Workbooks.Open("C:\My Documents\Anitha.xls")
If Err.Number = 1004 Then
Set DestBook = Workbooks.Add
SrcBook.Worksheets(1).Range("A1:F13").Copy
DestBook.Worksheets(1).Range("A1").PasteSpecial
Application.CutCopyMode = False
DestBook.SaveAs ("C:\My Documents\Anitha.xls")
DestBook.Close
Else
SrcBook.Worksheets(1).Range("A1:F13").Copy
DestBook.Worksheets(1).Range("A1").PasteSpecial
Application.CutCopyMode = False
DestBook.Save
DestBook.Close
End If
On Error GoTo 0
Set DestBook = Nothing
Set SrcBook = Nothing
End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum