Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 pegar dados em outro arquivo do excel

Ir para baixo 
2 participantes
AutorMensagem
fabiolmm




Mensagens : 1
Data de inscrição : 03/12/2011

pegar dados em outro arquivo do excel Empty
MensagemAssunto: pegar dados em outro arquivo do excel   pegar dados em outro arquivo do excel EmptyDom Dez 04, 2011 12:04 am

Boa noite sou novo aqui no fórum e tenho uma dúvida e gostaria do auxílio de vocês.
Todos os dias eu gero um relatório do excel e por exemplo o dia de hj eu substituo (colo)no relatório de ontem, eu gostaria de criar uma macro que pegue os dados em outra planilha e cole na anterior.
Espero ter sido claro.
Desde já agradeço
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

pegar dados em outro arquivo do excel Empty
MensagemAssunto: Re: pegar dados em outro arquivo do excel   pegar dados em outro arquivo do excel EmptyDom Dez 04, 2011 3:07 am

Boa noite!!

Ha muitas maneiras de faze isso...precisamos de mais detalhes..poste um arquivo modelo...

Veja um exemplo...


Código:
 Sub ImportarDados()
'Copiar dados de um Livro para outro
        Dim wsOrigem As Worksheet
        Dim wsDestino As Worksheet
       
        'Arquivo Destino, abrimos primeiro
        'Ajuste o caminho do mesmo
        Workbooks.Open Filename:="C:\Documents and Settings\oraculo\Meus documentos\Downloads\Master.xls"
       
        'Arquivos e Abas de Origem e Destino
        Set wsOrigem = Workbooks("Dvisão.xls").Worksheets("Plan1")
        Set wsDestino = Workbooks("Master.xls").Worksheets("Plan5")
         
            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
     
      'Fecha o Arquivo Destino e Salva
        Workbooks("Master.xls").Close SaveChanges:=True
       
        MsgBox "Introdução de Dados Concluída"
    End Sub
Ir para o topo Ir para baixo
 
pegar dados em outro arquivo do excel
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Importar arquivo CSV para excel com critério.
» Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)
» Macro para achar valores de coluna em um arquivo em outro colar range
» Buscar dados em outro WorkBook
» MACRO DADOS DE UMA PLANILHA PARA ARQUIVO DE TEXTO

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: