Notifications

Clear all

Atualizar Planilha

2024 - VBA & Macros

Post Recente por vitorhsh 7 anos atrás

7 Posts

2 Usuários

0 Reactions

1,560 Visualizações

RSS

vitorhsh

(@vitorhsh)

Posts: 0

Trusted Member

Topic starter

Boa Tarde Familia do Execel,

Primeiramente Gostaria de me Apresenta sou Vitor moro em Brasilia tenho 22 Anos, procurei nos tópicos e não encontrei uma divida igual a minha,
peço desculpas, caso já tenho algum tópico parecido ao que irei cria, caso seja o caso deixe o link do mesmo para que posso ampliar meu conhecimento

(Obs) Nunca fiz uma Macro =/ mas entendo de execel e logica de programação
Vamos a duvida!
Tenho uma planilha principal dinamica , que puxa dados de outras abas, na mesma planilha
porem para que a planilha principal seja atualizada e preciso copia dados de uma planilha baixada, e colar na aba especifica da planilha principal, gostaria de uma macro que transferisse os dados da Planinha baixada, para umas das abas da planilha principal, porem preciso que a macro pule 2 colunas porque nas células tem funções que a planilha principal precisa, para que consiga puxa os dados necessários da aba atualizada.
Exp. A |B| C |"D"|"E"| F| G| H|
as c colunas A B C F G H recebem o valor da planilha baixada sem altera a coluna D e E.

Att, Vitor Hugo

Postado : 11/07/2017 12:38 pm

vitorhsh

(@vitorhsh)

Posts: 0

Trusted Member

Topic starter

Help please. Up

Postado : 11/07/2017 6:06 pm

Osvaldomp

(@osvaldomp)

Posts: 858

Prominent Member

sugestão - disponibilize uma amostra do seu arquivo Excel, com o resultado desejado e com as explicações na própria planilha do que você deseja .

Osvaldo

Postado : 11/07/2017 6:21 pm

vitorhsh

(@vitorhsh)

Posts: 0

Trusted Member

Topic starter

Boa Tarde Familia Do Execel

Obrigado pela Atenção Osvaldomp,
como solicitado segue copias dos arquivos gostaria de cria uma macro que pegasse os dados da planilha Acompanhamento orçamentário - atual, e colasse na planinha Acompanhamento orçamentário, na aba 30000MINI, SA sem sobrescrever a primeira coluna e nem as "colunas" que estao de verde pos nelas contem codigos para pucha os dados copiados,

Postado : 12/07/2017 10:27 am

Osvaldomp

(@osvaldomp)

Posts: 858

Prominent Member

Sub ReplicaDados()
 Dim WSo As Worksheet, WSd As Worksheet, LR As Long
 Set WSo = Workbooks("Acompanhamento orçamentário atual").Sheets("Saldo Atual - R$ (Item Inf.)")
 Set WSd = ThisWorkbook.Sheets("30000MINISTERIO DA JUSTICA, Sa")
 LR = WSo.Cells(Rows.Count, 1).End(3).Row
 WSo.Range("A12:C" & LR).Copy WSd.[B9]
 WSo.Range("D12:R" & LR).Copy WSd.[G9]
 WSo.Range("S12:AD" & LR).Copy WSd.[Y9]
End Sub

obs.
1. instale o código acima em um módulo comum do arquivo "Acompanhamento orçamentário".
2. ao rodar o código o arquivo "Acompanhamento orçamentário atual" deverá estar aberto.
3.a sua tabela origem dos dados tem 2 colunas a mais do que a tabela destino dos dados; arrume antes de rodar o código.

Osvaldo

Postado : 12/07/2017 2:35 pm

vitorhsh

(@vitorhsh)

Posts: 0

Trusted Member

Topic starter

Bom dia Familia do execel

Obg pela resposta osvaldo,
Fiz o um teste bem rapido ontem deu certo,
Vc poderia comenta cada linha falando qual a funcao dos cod .
Irei tenta recria em outras planlha, caso queira adiciona ou retira uma coloca
Como faco a alteracao ?
La no cod os comandos LR, e Wsd sao para que? Rsrs
Desculpe tantas duvidas e perguntas desde de ja agradecido

Att Vitor

Postado : 13/07/2017 7:18 am