Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Atualizar Planilha
 
Notifications
Clear all

Atualizar Planilha

 
2024 - VBA & Macros
Post Recente por vitorhsh 7 anos atrás
7 Posts
2 Usuários
0 Reactions
1,543 Visualizações
RSS
 vitorhsh
(@vitorhsh)
Posts: 0
New 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
New Member
Topic starter
 

Help please. Up

 
Postado : 11/07/2017 6:06 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
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 .

 
Postado : 11/07/2017 6:21 pm
 vitorhsh
(@vitorhsh)
Posts: 0
New 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: 857
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.

 
Postado : 12/07/2017 2:35 pm
 vitorhsh
(@vitorhsh)
Posts: 0
New 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
 vitorhsh
(@vitorhsh)
Posts: 0
New Member
Topic starter
 

Boa Noite Familia

Conseguir fazer tudo que queria nessa planilha
Obrigador por sua ajuda Osvaldo Gostaria de fala com voce
me envia um email [email protected]

Att, Vitor

 
Postado : 13/07/2017 12:31 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico