Buscar dados de outro Arquivo(Planilha)

VBA & Macros

Post Recente por drbeil 6 anos atrás

5 Posts

2 Usuários

0 Likes

949 Visualizações

RSS

drbeil

(@drbeil)

Posts: 37

Eminent Member

Topic starter

Boa tarde,

Conforme o código abaixo seria possível buscar os dados em outro arquivo, dentro do mesmo arquivo consigo fazer rodar o código (entre as plan).

Segue:

Dim i As Integer, j As Long
Dim qualquer As String

j = 8

With Plan8 '(Planilha que está os dados) - "SEI QUE PRECISO COLOCAR A INFORMAÇÃO AQUI, O NOME DO ARQUIVO ONDE ESTÁ OS DADOS"

 For i = 2 To .Range("d" & Rows.Count).End(xlUp).Row
                    
qualquer = frm_relatorio.c_relatorio_empresa

        If .Range("e" & i) = qualquer Then
        
    '(RelacaoClientes/plan3)   = (Dados1/Plan8)
            Plan3.Range("b" & j) = .Range("b" & i)
            Plan3.Range("c" & j) = .Range("c" & i)
            Plan3.Range("d" & j) = .Range("a" & i)

       End If
Next i

End With

Caso precise monto um arquivo com a macro.

Daniel Rodrigo

Postado : 03/01/2018 2:01 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sub ImportarDados()
'Copiar dados de um Livro para outro
        Dim wsOrigem As Worksheet
        Dim wsDestino As Worksheet
        
        
        'Arquivos e Abas de Origem e Destino
        Set wsOrigem = Workbooks("Pasta1.xlsm").Worksheets("Planilha1")
        Set wsDestino = Workbooks("Pasta2.xlsm").Worksheets("Planilha1")
          
            With wsOrigem
                .Range("B2:B500").Copy Destination:=wsDestino.Range("B2")
                .Range("F2:F500").Copy Destination:=wsDestino.Range("K2")
                .Range("J2:J500").Copy Destination:=wsDestino.Range("T2")
            End With
      
    End Sub

Postado : 03/01/2018 2:19 pm

drbeil

(@drbeil)

Posts: 37

Eminent Member

Topic starter

Xeretando outros posts sem querer descobri uma macro que não tinha nada haver, mas ajustei e deu certo.

Os dois arquivos abertos tem que está aberto.

Inclui e alterei conforme abaixo:

Antes: With Plan8 '(Planilha que está os dados)

Incluir o nome do arquivo, deixando ativo: Workbooks("dados.xlsm").Activate

Alterei para: With Worksheets("Dados1")

Daniel Rodrigo

Postado : 03/01/2018 2:21 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

 Sub ImportarDados2()
'Copiar dados de um Livro para outro
        Dim wsOrigem As Worksheet
        Dim wsDestino As Worksheet
        
        Workbooks.Open ("c:Pasta1.xlsm")
        'Arquivos e Abas de Origem e Destino
        Set wsOrigem = Workbooks("Pasta1.xlsm").Worksheets("Planilha1")
        Set wsDestino = ThisWorkbook.Worksheets("Planilha1")
          
            With wsOrigem
                .Range("B2:B500").Copy Destination:=wsDestino.Range("B2")
                .Range("F2:F500").Copy Destination:=wsDestino.Range("K2")
                .Range("J2:J500").Copy Destination:=wsDestino.Range("T2")
            End With
      
    End Sub

Postado : 03/01/2018 2:22 pm