Troca de dados entre pastas de trabalho com nome variável  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Re: Troca de dados entre pastas de trabalho com nome variáve

Mensagempor teleguiado » Seg Ago 13, 2018 10:43 am

Bom dia!!
savioloz, pelo que entendi acho que seria mais viável você ter uma aba modelo dentro do arquivo banco e toda vez que você for finalizar um orçamento você salve a aba modelo em outro arquivo.
Fiz isso em um arquivo que tenho aqui.

Tem um modelo dela nesse link http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=23411
Obrigado.

Teleguiado.
E-mail: telegui4do@gmail.com
teleguiado
Membro
Membro
 
Mensagens: 98
Registrado em: Qui Mar 24, 2016 6:38 pm
Localização: Cuiabá/MT
Has thanked: 9 times
Have thanks: 24 times

{ SO_SELECT }

Re: Troca de dados entre pastas de trabalho com nome variáve

Mensagempor savioloz » Seg Ago 13, 2018 10:55 am

EdsonBR, muito obrigado pela atenção.

O procedimento de uso é exatamente como você imaginou.
Eu sempre abro o Banco antes e depois a outra planilha. (Ainda não sei automatizar essa parte e faço tudo manualmente mesmo)
Tentei usar sua ideia más não consegui direcionar para outra pasta de trabalho pela utilização de índices 1 e 2.
Por orientação anterior, anexei os arquivos resumidos da situação. Caso tenha disponibilidade de tempo, dê uma olhada para entender com mais detalhes.
Eu apenas substituí aqui o Banco por (1) e o orçamento por (2) no código.
Não funcionou! O que posso ter feito de errado?

Abraço.
savioloz
Membro
Membro
 
Mensagens: 12
Registrado em: Seg Mai 28, 2018 3:17 pm
Has thanked: 4 times
Have thanks: 1 time

Re: Troca de dados entre pastas de trabalho com nome variáve

Mensagempor savioloz » Seg Ago 13, 2018 11:10 am

teleguiado, bom dia e obrigado pela atenção.

Criar uma aba no mesmo arquivo irá me dá mais trabalho, pois terei de copiar todo aquivo que desejar analisar para dentro dessa aba nova.
Imagine um arquivo pronto e não em desenvolvimento. São vários aquivos que em algum momento eu preciso analisar o código informado. É aí que entra a conferência através do banco que já deixo aberto ali só para quando precisar. O problema é que para isso funcionar eu tenho que renomear o arquivo em análise para orçamento. É isso que estou tentando mudar...
uma forma do código guardar a informação da planilha ativa sem ter que renomeá-la!
savioloz
Membro
Membro
 
Mensagens: 12
Registrado em: Seg Mai 28, 2018 3:17 pm
Has thanked: 4 times
Have thanks: 1 time

Re: Troca de dados entre pastas de trabalho com nome variáve

Mensagempor EdsonBR » Seg Ago 13, 2018 12:00 pm

Provavelmente vc tenha algum modelo/pasta pessoal de macros em atividade por isso o núm. de Workbooks abertos deve estar sendo maior.
Não abri ainda seus arquivos pois estou no trabalho, mas tente o seguinte:
Ao invés de Workbooks(1), continue usando o Workbooks("Bancos.xlsm") para o primeiro Workbook e use Workbooks(Workbooks.Count) para o de Orçamento.
Imagem
Avatar do usuário
EdsonBR
Membro
Membro
 
Mensagens: 575
Registrado em: Qui Nov 05, 2015 11:43 pm
Localização: Joinville, SC
Has thanked: 116 times
Have thanks: 360 times

Re: Troca de dados entre pastas de trabalho com nome variáve

Mensagempor wagner » Seg Ago 13, 2018 4:17 pm

savioloz,

Boa tarde!

Segue código que atribui, no arquivo Banco.xlsm, uma variável que pega o nome dos arquivos abertos, exceto quando esse arquivo se chama "Banco.xlsm". Desse modo, substitui, no seu código, o nome do arquivo "Orçamento.xlsx" pelo nome da variável que armazena o nome dos arquivos, conforme haviua citado em post anterior.

DETALHE: Para que funcione corretamente, é necessário ter aberto, no momento que você for executar o código do arquivo Banco.xlsm, somente dois arquivos: Banco.xlsm e o outro arquivo (com qualquer nome) que contém os dados de onde você quer fazer as cópias.

Estou enviando apenas o arquivo Banco.xlsm pois os outros não mexi em nada e você já os tem.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
savio_loz (Seg Ago 13, 2018 7:39 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5331
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 94 times
Have thanks: 2275 times

Re: Troca de dados entre pastas de trabalho com nome variáve

Mensagempor savio_loz » Seg Ago 13, 2018 7:38 pm

Wagner, é isso mesmo que preciso!

Ficou até melhor que pensei! Fiz os ajustes em meu código e nos teste aqui até com mais de uma planilha está dando certo!
Agora não preciso mais me preocupar com o nome do arquivo!
Espero que sirva para ajudar pessoas que possam passar por essa mesma dúvida que tive.
Realmente, nem imaginava que um "for" resolveria a situação. Aprendi mais uma.

Obrigado pela atenção.

For this post the author savio_loz thanked:
savioloz (Ter Ago 14, 2018 10:36 am)
savio_loz
Membro
Membro
 
Mensagens: 16
Registrado em: Qui Ago 10, 2017 5:36 pm
Has thanked: 12 times
Have thanks: 1 time

Anterior

Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 5 visitantes