Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Buscar dados de out...
 
Notifications
Clear all

Buscar dados de outro Arquivo(Planilha)

 
2024 - VBA & Macros
Post Recente por drbeil 7 anos atrás
5 Posts
2 Usuários
0 Reactions
1,182 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
 drbeil
(@drbeil)
Posts: 37
Eminent Member
Topic starter
 

Valeu Klarc, consegui usando o meu código. Abraço

Daniel Rodrigo

 
Postado : 03/01/2018 2:24 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico