Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

DADOS DE OUTRA PLANILHA

2 participantes

Ir para baixo

DADOS DE OUTRA PLANILHA Empty DADOS DE OUTRA PLANILHA

Mensagem por davds 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

Ir para o topo Ir para baixo

DADOS DE OUTRA PLANILHA Empty Re: DADOS DE OUTRA PLANILHA

Mensagem por alexandrevba Sáb 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
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos