Página 1 de 1

Concatenar - Utilizando Indice

Enviado: 11 Out 2017 às 17:04
por genilsonsrs
Prezados, muito boa tarde!

Estou com uma missão muito complicada utilizando VBA: preciso concatenar linhas de acordo com um indice. Por exemplo:

LOJA PRODUTO
BH-01 ACETONA FARMAX 100ML - 68335
BH-01 ACETONA FARMAX 500ML - 68334
BH-01 AGUA OXIGENADA CREMOSA FARMAX 20 VOL. 90ML - 81012
BH-02 AGUA OXIGENADA CREMOSA FARMAX 20 VOL. 90ML - 81012
BH-02 AGUA OXIGENADA CREMOSA FARMAX 30 VOL. 90ML - 81013
BH-02 AGUA OXIGENADA CREMOSA FARMAX 40 VOL. 90ML - 81014

Preciso concatenar as linhas de produto de acordo com o codihgo da loja, ficando assim:

LOJA CONCATENADO
BH-01 ACETONA FARMAX 100ML - 68335\nACETONA FARMAX 500ML - 68334\nAGUA OXIGENADA CREMOSA FARMAX 20 VOL. 90ML - 81012
BH-02 AGUA OXIGENADA CREMOSA FARMAX 20 VOL. 90ML - 81012\nAGUA OXIGENADA CREMOSA FARMAX 30 VOL. 90ML - 81013\nAGUA OXIGENADA CREMOSA FARMAX 40 VOL. 90ML - 81014

Sendo que, "\n" é o meu separador de produtos.
Na planilha em anexo (Mix.xlsm), tenho uma function (gfConcatenar) que já executa a concatenação, porém tenho que fazer uma a uma. A ideia é ter uma macro que eu ja faça todo o processo, independente da quantidade de informação que eu incluir na planilha de dados.
Voces podem me ajudar?

Re: Concatenar - Utilizando Indice

Enviado: 11 Out 2017 às 17:11
por FelipeMGarcia
Veja se é isso que precisa.

Abs

Concatenar - Utilizando Indice

Enviado: 11 Out 2017 às 17:29
por genilsonsrs
Felipe, muito grato pelo retorno! È isso mesmo cara!

Porém só não entendi algo na formula, veja como ela esta:

='C:\Users\fgarcia\AppData\Roaming\Microsoft\Suplementos\UnirTexto.xlam'!UnirTexto("\n";VERDADEIRO;SE($A$2:$A$7=$D2;$B$2:$B$7;""))

Me aponta para um arquivo em um diretório. Sou noob para te perguntar mais uma coisa: preciso instalar algum suplemento para funcionar? Pois na minha maquina a formula não funciona quando eu atualizo o arquivo.

Grato desde ja!

Re: Concatenar - Utilizando Indice

Enviado: 11 Out 2017 às 17:32
por FelipeMGarcia
É que tenho a versão 2013 do Excel e usei uma UDF que é uma função personalizada, para usar, vc tem que ir na Guia opções, suplementos, suplementos de Excel e marca depois de salvar o arquivo como suplemento.