Página 1 de 1

VBA - MACRO - Agrupar Duplicados

Enviado: 14 Ago 2019 às 09:35
por luanvieiralima
Bom dia, Estou com o seguinte problema,
Fiz uma consulta do SQL Server para o Excel, está tudo funcionando nessa parte, a partir dos dados obtidos, eu criei uma planilha que gera um txt utilizando os dados da planilha.

Minha duvida é o seguinte, existe alguns casos em que o nome da pessoa é igual.
Na geração do TXT, ela aparece da seguinte forma:

Bom Dia!
Sr(a). RAIMUNDO DOS SANTOS XAVIER,

A Clínica X solicita sua confirmação para o dia: 31/07/2019.

1. Dr.(a) ADRIANO MACHADO - UROLOGIA - Unidade 3 - às 09:01

Digite SIM para confirmar.


Gostaria que se houver uma outra marcação para o mesmo nome e com a mesma data aparece-se assim:


Bom Dia!
Sr(a). RAIMUNDO DOS SANTOS XAVIER,

A Clínica X solicita sua confirmação para o dia: 31/07/2019.

1. Dr.(a) ADRIANO MACHADO - UROLOGIA - Unidade 3 - às 09:01
2. Dr.(a) MARCIO SAMPAIO - OTORRINO- Unidade 3 - às 09:50

Digite SIM para confirmar.



No link consta planilha que eu fiz com o txt gerado. Acredito que tenho que usar a condição IF, só n sei como comparar.

https://drive.google.com/drive/folders/ ... sp=sharing

Re: VBA - MACRO

Enviado: 14 Ago 2019 às 13:16
por babdallas
Se for possível, anexe o arquivo aqui no fórum.

VBA - MACRO

Enviado: 14 Ago 2019 às 13:33
por luanvieiralima
Anexado!

Re: VBA - MACRO - Agrupar Duplicados

Enviado: 15 Ago 2019 às 07:40
por babdallas
VOcê quer gerar um arquivo txt só com todos os nomes ou você quer gerar um txt para cada nome?

Uma opção: criar uma tabela dinâmica classificada por nome. Assim fica mais fácil fazer o loop e criar uma estrutura para repetir os agendamentos.

Re: VBA - MACRO - Agrupar Duplicados

Enviado: 15 Ago 2019 às 08:11
por luanvieiralima
Quero criar um TXT com todos os nomes. Mas os que tiver nome repetido com a mesma data ele agrupar.

Re: VBA - MACRO - Agrupar Duplicados

Enviado: 15 Ago 2019 às 12:01
por babdallas
Veja se é isso.

Re: VBA - MACRO - Agrupar Duplicados

Enviado: 15 Ago 2019 às 13:40
por luanvieiralima
Opa, Funcionou em partes, só notei dois problemas.

Repare que - ABELJANIRA SANTOS OLIVEIRA, tem 2 dias de marcação (27/08/2019 00:00 e 02/09/2019 00:00) no txt só gerou 1, dia 27.

E outro caso ADELIA DIAS SANTOS, tem 4 marcações para 3 dias(20/08/2019 00:00, 21/08/2019 00:00 e 02/09/2019 00:00) no txt ele gerou 3 marcações tudo junto como dia 20/08/2019.

Atualizei a planilha com dados mais novos, tá em anexo.

Re: VBA - MACRO - Agrupar Duplicados

Enviado: 15 Ago 2019 às 14:57
por babdallas
Veja agora.

Re: VBA - MACRO - Agrupar Duplicados

Enviado: 15 Ago 2019 às 15:17
por luanvieiralima
Opa irmão tá quase lá, o único problema é que eles está agrupando ainda em data diferentes.

Exemplo:
ADELIA DIAS SANTOS
Tem essas 3 datas:
20/08/2019 00:00
21/08/2019 00:00
21/08/2019 00:00
02/09/2019 00:00

Está dessa forma:

Boa Tarde!
Sr(a). ADELIA DIAS SANTOS,

A Clínica Biocheck Up solicita sua confirmação para o dia: 20/08/2019.

Dr.(a) JOSE-HOLTER 24 - HOLTER 24 HORAS - - às 13:00

Dr.(a) MARCELO ECO - ECOCARDIOGRAFIA 1 - - às 14:20

Dr.(a) GEORGE LIMA -TESTE 1 - TESTE ERGOMETRICO - - às 14:50

Dr.(a) MARCELO SGROTT - CARDIOLOGIA - - às 09:01


-----------------------------

Correto:

Boa Tarde!
Sr(a). ADELIA DIAS SANTOS,

A Clínica Biocheck Up solicita sua confirmação para o dia: 20/08/2019.

Dr.(a) JOSE-HOLTER 24 - HOLTER 24 HORAS - - às 13:00



Boa Tarde!
Sr(a). ADELIA DIAS SANTOS,

A Clínica Biocheck Up solicita sua confirmação para o dia: 21/08/2019.


Dr.(a) MARCELO ECO - ECOCARDIOGRAFIA 1 - - às 14:20

Dr.(a) GEORGE LIMA -TESTE 1 - TESTE ERGOMETRICO - - às 14:50



Boa Tarde!
Sr(a). ADELIA DIAS SANTOS,

A Clínica Biocheck Up solicita sua confirmação para o dia: 02/09/2019.


Dr.(a) MARCELO SGROTT - CARDIOLOGIA - - às 09:01

Re: VBA - MACRO - Agrupar Duplicados

Enviado: 16 Ago 2019 às 03:54
por babdallas
Veja se agora atende a sua necessidade.

Re: VBA - MACRO - Agrupar Duplicados

Enviado: 16 Ago 2019 às 08:59
por luanvieiralima
Amigo, muito obrigado é exatamente isso, Vou estudar o código agora e fazer alguns ajustes no texto.

Muito obrigado mesmo! Me salvou.