Notifications
Clear all

Código para coletar telefones de contato

3 Posts
2 Usuários
0 Reactions
902 Visualizações
(@rafaelsc)
Posts: 15
Eminent Member
Topic starter
 

Dada uma planilha onde são lançados os dados em 1000 linhas com as colunas seguintes:

A. Data de entrada
B. Identificação
C. Produto
D. Contato
E. Data de modificação
F. Situação
G. Observações

Necessito de um código que busque nas linhas do range de células das linhas 2 a 1000 que os dados na coluna E "data de modificação" sejam iguais a data hoje e F "situação" seja o texto "Concluída". Caso afirmativo, deverá coletar as informações cadastradas na respectiva coluna D "contato", preferencialmente coletando elas a concatenar em uma célula e usando como separador o ponto e vírgula.

Feito esse código, a intenção é que depois eu resolva uma rotina que acione por inserção em um botão de comando que acionarei no fim do meu expediente, onde esses dados de contato serão copiados para a área de transferência que eu as encaminhe por email a quem possa fazer os contatos aos clientes. Uma caixa de mensagem informará o nº de contatos copiados, salvará e fechará a minha planilha.

Planilha original já postada aqui. Questão também postada no site do Yahoo Respostas.

Desde já grato!

 
Postado : 29/09/2013 8:48 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não sei se entendi, mas veja se lhe auxilia:
Em H1 a UDF - função definida pelo usuario Concat2 (veja em - http://info.abril.com.br/forum/viewtopi ... 01&t=45968)
De H2... formula se

 
Postado : 29/09/2013 10:50 am
(@rafaelsc)
Posts: 15
Eminent Member
Topic starter
 

Reinaldo, a solução apresentada atende ao desejado.
Para a coluna auxiliar, eu vou apenas ocultá-la na planilha e proteger. Depois, devo fazer uma chamada a essa função, inserindo um CommandButton que se encarregará de copiar a linha com os contatos para a área de transferência, ela salvará e fechará a planilha.
Isso será suficiente então para eu colar os dados em uma mensagem de email.
Agradeço ao suporte dos cases, aos poucos espero compreender tudo.
Abraço

 
Postado : 29/09/2013 11:23 am