Notifications
Clear all

Botão pra busca pasta - Fechado

7 Posts
2 Usuários
0 Reactions
1,688 Visualizações
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Gostaria que ao clica no butao ele fosse la na pasta com nome de Ano 2017 entra na pasta Mes Fev depois entra na pasta do dia 01 pega o arquivo limite. xlsx dentro da pasta Selecionado e execute a macro que criei
A macro pra transferir os dados tá feita quero uma macro pra abrir o local do arquivo digitado
O comando que uso pra abrir o arquivo é esse

Workbooks.Open ("X:SPOCGOFDIVISÃO DE ANÁLISE E INFORMAÇÕES GERENCIAIS - DAIGACOMPANHAMENTO EXECUÇÃO ORÇAMENTÁRIA - PLANILHASMacrov - Acompanhamento de orçamentolimite.xlsx")

gostaria que o Butão localiza-se o arquivo aos invés de usa o comando acima
Muito Obrigado pela atençao

Att Vitor Hugo

 
Postado : 10/08/2017 11:39 am
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde Vitor,

Explique mais detalhadamente de onde para onde as informações tem que ir.

att,

 
Postado : 11/08/2017 12:09 pm
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Boa Tarde Bruno Obrigado pela atenção

A Macro pra Atualiza os dados ta pronta e rodando,
eu gostaria de saber se a possibilidade de cria uma macro pra busca um dos arquivos digitados em um formulario de pesquisa
Exp: Dia[ 1 ] Mes [ fev ] Ano [ 2017 ] [Buscar] ao clica em busca ele faz a busca dos arquivos deste mes dia e ano e atualiza a planilha com os arquivos encontrados

segue em anexo no post um modelo basico doque preciso
Segue o codico que uso pra atualiza a planilha Limite

Att, Vitor Hugo

Sub Limites()

Dim WSo As Worksheet, WSd As Worksheet, LR As Long
Set WSo = Workbooks("Limite").Sheets("limite")
Set WSd = ThisWorkbook.Sheets("limite")
LR = WSo.Cells(Rows.Count, 1).End(3).Row
WSo.Range("A8:M" & LR).Copy WSd.[B8]

End Sub
 
Postado : 11/08/2017 1:05 pm
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Ok,

Você quer digitar o Ano, Mês e Dia e pegar os valores de um arquivo.
Porém gostaria de saber mais.

Qual célula(s) do exemplo tem que ser copiadas? Para qual planilha? Vai ser sobre os valores anteriores ou na próxima linha vazia?...
Basicamente, se você fosse fazer manualmente, qual a sequência dos eventos?

att,

 
Postado : 11/08/2017 2:58 pm
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Boa Noite Bruno Obrigado pela atenção

Gostaria que ao clica no butao ele fosse la na pasta com nome de Ano 2017 entra na pasta Mes Fev depois entra na pasta do dia 01 pega o arquivo limite. xlsx dentro da pasta Selecionado e execute a macro que criei
A macro pra transferir os dados tá feita quero uma macro pra abrir o local do arquivo digitado
O comando que uso pra abrir o arquivo é esse

Workbooks.Open ("X:SPOCGOFDIVISÃO DE ANÁLISE E INFORMAÇÕES GERENCIAIS - DAIGACOMPANHAMENTO EXECUÇÃO ORÇAMENTÁRIA - PLANILHASMacrov - Acompanhamento de orçamentolimite.xlsx")

gostaria que o Butão localiza-se o arquivo aos invés de usa o comando acima
Muito Obrigado pela atençao

Att Vitor Hugo

 
Postado : 11/08/2017 3:51 pm
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde Vitor Hugo,

Veja o código que está no Módulo1 do arquivo em anexo.

Montei um trecho para abrir o arquivo, mas é limitado.
Dado que sua pasta depois de Ano 2017 é nomeado com um número e as três primeiras letras do Mês (exemplo: 1.Jan), não adicionei no código nenhum recurso para verificar essa pasta (acho que vai ser muita coisa para digitar).

Você não pode nomear essas pastas como 1,2,3,...? Assim fica muito mais fácil.

De qualquer forma, mude a variável 'Caminho' no código e teste.

OBS: A parte de copiar, está comentada tire os comentários desse trecho e teste.

att,

 
Postado : 16/08/2017 3:54 pm
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Boa Tarde Bruno Obrigado Pela Atenção

Conseguir resolver meu problema usei formulas e VBA pra localiza e abrir a pasta digitada

Att, Vitor Hugo

 
Postado : 21/08/2017 9:52 am