Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

AJUDA URGENTE - GRATIFICO ($)

Ponto de encontro entre aqueles que precisam e fornecem soluções baseadas no Microsoft Excel e VBA. Precisa de uma solucão em VBA? É um consultor ou programador independente? Esse é o lugar!
Avatar do usuário
PRMPOKER
Manda bem
Manda bem
Mensagens: 158
Registrado em: Ter Dez 04, 2012 8:57 am

AJUDA URGENTE - GRATIFICO ($)

Mensagem por PRMPOKER » Sex Ago 03, 2018 10:29 am

Prezados, bom dia.

Hoje chegou minha vez de pedir socorro: no arquivo anexo, tenho algumas rotinas de busca de arquivos e conteúdo que funcionam muito bem, isoladamente. Recebi um pedido urgente (até as 18:00) para entregar e estarei sem acesso ao Officce no ambiente de trabalho hoje.

Peço encarecidamente a ajuda de algum mestre aqui do fórum para resolver isso. Gratifico ($).

A quem se prontifica, a rotina chamada no botão, na pasta Lista Arquivos, lê todo o conteúdo de determinado diretório (e sub diretórios) e lista os arquivos com extensão .*xl* (todos os tipos do excel).

A rotina chamada pelo botão na pasta Clientes, busca pelo conteúdo da célula D1, o CONTEÚDO da pasta "Digitação" dentro dos arquivos que mandei em anexo.

A rotina chamada pelo botão na planilha Dados, busca pelo conteúdo da célula D1, o CONTEÚDO da pasta "Resumo" dentro dos arquivos que mandei em anexo.

Necessidade: preciso incorporar o encadeamento destas funções, ou seja, para cada arquivo lido na primeira busca, verifica se contém a string da segunda busca, caso contenha, lista na planilha Lista Arquivos, senão, ignora.

E para cada arquivo resultante desta ação, pesquisa na planilha "Resumo" (terceira rotina) o conteúdo da célula D1 na planilha Dados.

E lista tudo numa nova planilha.

Simples, né? Está tudo desenvolvido e funcionando, é só montar a lógica.

Conto com a sua ajuda!

Obrigado.
(P.S. Excel 2013)
Anexos
Exemplo.rar
(4.81 MiB) Baixado 16 vezes



Paulinho Monteiro
VBA/HTML/PHP/ORACLE - Developer

Email: falecom@paulinhomonteiro.com
Whatsapp (54) 99211-3004
Skype: paulinhomonteiro
www.paulinhomonteiro.com

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
PRMPOKER
Manda bem
Manda bem
Mensagens: 158
Registrado em: Ter Dez 04, 2012 8:57 am

Re: AJUDA URGENTE - GRATIFICO ($)

Mensagem por PRMPOKER » Sex Ago 03, 2018 12:04 pm

:roll: :?



Paulinho Monteiro
VBA/HTML/PHP/ORACLE - Developer

Email: falecom@paulinhomonteiro.com
Whatsapp (54) 99211-3004
Skype: paulinhomonteiro
www.paulinhomonteiro.com

Avatar do usuário
PRMPOKER
Manda bem
Manda bem
Mensagens: 158
Registrado em: Ter Dez 04, 2012 8:57 am

Re: AJUDA URGENTE - GRATIFICO ($)

Mensagem por PRMPOKER » Sex Ago 03, 2018 1:06 pm

Tic...Tac...Tic...Tac...
Socorro!
:)



Paulinho Monteiro
VBA/HTML/PHP/ORACLE - Developer

Email: falecom@paulinhomonteiro.com
Whatsapp (54) 99211-3004
Skype: paulinhomonteiro
www.paulinhomonteiro.com

Avatar do usuário
PRMPOKER
Manda bem
Manda bem
Mensagens: 158
Registrado em: Ter Dez 04, 2012 8:57 am

Re: AJUDA URGENTE - GRATIFICO ($)

Mensagem por PRMPOKER » Sex Ago 03, 2018 2:46 pm

Pago a picanha.... kkkkk...



Paulinho Monteiro
VBA/HTML/PHP/ORACLE - Developer

Email: falecom@paulinhomonteiro.com
Whatsapp (54) 99211-3004
Skype: paulinhomonteiro
www.paulinhomonteiro.com

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2493
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: AJUDA URGENTE - GRATIFICO ($)

Mensagem por webmaster » Sex Ago 03, 2018 5:27 pm

Aguenta que dei uma compartilhada com uns conhecidos. Vamos ver se ajudar a acelerar :)


Tomás
http://www.tomasvasquez.com.br/blog
http://www.tomasvasquez.com.br/cursocsharp
http://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Avatar do usuário
PRMPOKER
Manda bem
Manda bem
Mensagens: 158
Registrado em: Ter Dez 04, 2012 8:57 am

Re: AJUDA URGENTE - GRATIFICO ($)

Mensagem por PRMPOKER » Sex Ago 03, 2018 10:03 pm

Meu querido amigo Tomás....
Obrigado pela ajuda... Estou em viagem pelo interior de SC e sem acesso ao meu equipamento...
Eternamente grato!
Vem pro RS e te espero com uma autêntico churrasco gaúcho.



Paulinho Monteiro
VBA/HTML/PHP/ORACLE - Developer

Email: falecom@paulinhomonteiro.com
Whatsapp (54) 99211-3004
Skype: paulinhomonteiro
www.paulinhomonteiro.com

Avatar do usuário
PRMPOKER
Manda bem
Manda bem
Mensagens: 158
Registrado em: Ter Dez 04, 2012 8:57 am

Re: AJUDA URGENTE - GRATIFICO ($)

Mensagem por PRMPOKER » Dom Ago 05, 2018 4:03 pm

Prezados amigos, boa tarde.
O desafio continua de pé. Bora?



Paulinho Monteiro
VBA/HTML/PHP/ORACLE - Developer

Email: falecom@paulinhomonteiro.com
Whatsapp (54) 99211-3004
Skype: paulinhomonteiro
www.paulinhomonteiro.com

Avatar do usuário
PRMPOKER
Manda bem
Manda bem
Mensagens: 158
Registrado em: Ter Dez 04, 2012 8:57 am

Re: AJUDA URGENTE - GRATIFICO ($)

Mensagem por PRMPOKER » Ter Ago 07, 2018 4:22 pm

Prezados, boa tarde.

Enfim, de volta da viagem.

Vou dar continuidade ao trabalho. Agradeço a todos que se disponibilizaram a ajudar.

Tomas, por favor, manda inbox teu endereço. Vou te mandar um agradecimento aqui direto da minha terrinha (https://www.google.com/url?sa=t&rct=j&q ... tLGS7N0lGS)

Grande abraço!



Paulinho Monteiro
VBA/HTML/PHP/ORACLE - Developer

Email: falecom@paulinhomonteiro.com
Whatsapp (54) 99211-3004
Skype: paulinhomonteiro
www.paulinhomonteiro.com

Klobert
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Sáb Set 08, 2018 3:33 am

Re: AJUDA URGENTE - GRATIFICO ($)

Mensagem por Klobert » Sáb Set 08, 2018 3:45 am

Olá!

Você já tentou combinar o dir com os caracteres coringa? ex:

Dim arquivo as string

arquivo = "*" & "nome que deseja buscar" & "*"

if dir(arquivo) = empty then
'executa ação
else:
'executa ação
end if

Você tbm pode usar no local que apontei a busca para o VBA pegar uma celula tipo plan1.range("d1")



Avatar do usuário
PRMPOKER
Manda bem
Manda bem
Mensagens: 158
Registrado em: Ter Dez 04, 2012 8:57 am

Re: AJUDA URGENTE - GRATIFICO ($)

Mensagem por PRMPOKER » Sáb Set 08, 2018 7:32 pm

Prezados, Boa noite!

Caro Klobert, tudo bem?

Essa foi uma demanda específica e atípica: eu estava em viagem, sem possibilidade de uso do notebook por alguns dias e com o prazo de entrega do projeto expirando. Resolvi pedir ajuda para resolver, mas não encontrei interessados. Mas consegui negociar o prazo, e na volta, resolvi o caso. Criei um sistema que lê +25.000 (isso mesmo, mais de vinte e cinco mil) arquivos do excel e busca por uma determinada string (nome do cliente). Apos localizar as planilhas onde a string é encontrada, o sistema busca por outra string, em outra aba, (determinada verba trabalhista) e cria um relatório com a localização, a data, o nome da verba e os valores pagos.

O sistema permite localizar automaticamente e sem que o usuário precise abrir as pastas de trabalho, conteúdo dentro de planilhas diversas, varrendo o diretório solicitado e seus subdiretórios.

Trabalho manual de trinta dias, feito em 24 horas. Cliente muito satisfeito!

Um abraço!

Paulinho Monteiro.



Paulinho Monteiro
VBA/HTML/PHP/ORACLE - Developer

Email: falecom@paulinhomonteiro.com
Whatsapp (54) 99211-3004
Skype: paulinhomonteiro
www.paulinhomonteiro.com

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder