Copiar dados

2024 - VBA & Macros

Post Recente por tiago21 7 anos atrás

6 Posts

4 Usuários

0 Reactions

1,527 Visualizações

RSS

tiago21

(@tiago21)

Posts: 43

Eminent Member

Topic starter

Olá pessoal;

Alguém pode me ajudar com uma macro. Aparentemente é simples e acredito que faça a planilha pesar menos do que com fórmulas.
Preciso copiar dados de várias planilhas que estão na rede. Os campos são iguais em todas as planilhas.
Seria um botão escrito atualizar: Abre planilha nome tal no endereço na rede tal, copia (tem 4 referências, data, setor, subsetor e indicador), cola no campos corretos (utilizando as referências). Fecha. Abre a próxima planilha e executa a mesma função.. e depois quando acabar todas as planilhas salva.... e se possível um campo q mostre a data da última atualização.
Eu quero fazer isso porque tenho que compilar todas as informações em uma planilha só. Grato quem puder ajudar.

Postado : 02/04/2018 1:21 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Anexar todos os arquivos ou, pelo menos, todos os arquivos de exemplo, já com dados e todos os controles (tipo botões, combobox, textbox) ou especificar se quer que tudo seja executado automaticamente ao abrir tal arquivo (neste caso, sem controles).

Além disso, se você quiser estudar como se faz e depois retornar com alguma dúvida mais específica, assista a estes vídeos:

https://www.youtube.com/results?search_query=vba+copiar+dados+de+uma+planilha+para+outra

Postado : 02/04/2018 1:29 pm

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa noite,

Você utiliza o Office 2013 ou 2016?
Se sim, acredito que você possa utilizar o PowerQuery para realizar esse procedimento facilmente.

att,

Postado : 03/04/2018 3:49 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

https://www.youtube.com/results?search_query=power+query

Postado : 04/04/2018 5:46 am

vitorhsh

(@vitorhsh)

Posts: 0

Trusted Member

Veja se e oque procura
cole esse cod dentro da "plan" que vai recebe os dados
essa rotina faz apanas para uma planilha adapte para outras
Nao esqueça do Joinha

Att Vitor

Sub Arq()
' Altere para o local do Arquivo dependendo da versao do seu excel tera que tira o .xlsx
        Workbooks.Open ("X:SPOCGOFMacro - Despesas de FuncionamentoMacro - Despesas de FuncionamentoSua Planilha onde ta os dados.xlsx")

Dim WSo As Worksheet, WSd As Worksheet
Set WSo = Workbooks("Sua Planilha onde ta os dados.xlsx").Sheets(" aba onde ta os dados") ' seleciona planilha e a aba
Set WSd = ThisWorkbook.Sheets("aba onde vai recebe os dados ") 'seleciona onde vai cola


'WSd.Range("A7:K500").Clear ' Limpa o campo onde vai recebe os dados

WSo.Range("A7" ).Copy WSd.[B7]   ' copia da A7 e  Cola os dados na B7 faça um pra cada celula que deseja copia

ThisWorkbook.RefreshAll 'Atualiza
ThisWorkbook.Save ' sava
ThisWorkbook.RefreshAll ' atualiza



End Sub

Postado : 05/04/2018 7:40 am