Este fórum está sendo desativado

[juniorieq61]

Pessoal,

Muito Boa tarde!

Quero propor um desafio a todos vocês hoje!!

Estou com uma questão aonde preciso do auxílio de vocês, seguinte, tenho uma planilha (segue exemplo em anexo) aonde tenho mais de 272 Linhas com valores em uma determinada coluna. Ou seja, digamos que na coluna A eu tenha 272 Linhas, cada célula com um único valor, meu desafio de hoje é que na verdade eu preciso separar cada valor, que está em cada linha dessa, por vírgula, ou ponto e vírgula em uma única célula, o motivo é que eu preciso exportar estes dados para uma outra aplicação que irá me gerar um relatório, porém a aplicação só aceita estes dados / range, separados por uma delimitador, no caso a vírgula, por isso teria que ser separados por vírgula e também em uma única célula.

Hoje meu trabalho é bem manual e eu acabo perdendo muito tempo por falta de tal automatização. Alguém pode me auxiliar nesta questão?

Desde já muito obrigado a todos!

[gfranco]

Boa noite.
Veja se o anexo ajuda.
at
gfranco

[juniorieq61]

GFranco,

Cara, era isso mesmo, exatamente do jeito que eu preciso, até irei usar seu modelo para aplicar nos meus cenários. Só queria aprender a elaborar o código, ainda sou muito novato em VBA mas pretendo me aprimorar no assunto. Enfim, muito obrigado mesmo, irei estudar para entender. Valeu mano!!!! Abraço.

[juniorieq61]

Só uma questão ...

Ao adicionar valores que começam com uma letra, ex.: P2154, a Macro faz o que exatamente eu preciso, ao inserir números (12544 e 17093 e 46854 e por ai vai) a Macro não obedece e se confunde com os dados, as vezes misturando-os, e colocando até mesmo pontos ao invés de vírgulas.

O que pode ser feito? Segue exemplo de dados, números e normal aonde a Macro obedece o que deve ser feito.

[laennder]

Se estiver usando o Excel 2016, você pode usar a função UNIRTEXTO.

Veja esse vídeo: https://www.youtube.com/watch?v=Kn1M1QcdlB8

O problema de bagunçar os dados é pq você está separando por vírgula... e ele interpreta o valor como um número. Tente separar por ponto e virgula por exemplo.

---

Você pode tentar substituir na macro a seguinte linha:

Código: Selecionar todos

w.Range("d10").Value = "'" & (palavra)

[juniorieq61]

Pessoal,

É com imenso trazer que venho marcar o tópico resolvido, nem sei como agradecer ao GFranco e ao nosso Moderador Leander que de fato resolveram o problema com essa macro, agora é só estudar para chegar no nível de vocês, talento de VBA reconhecido kkkk.

Valeu galera, estou deixando o anexo, com a planilha + a macro com tudo funcionando.

Obrigado a todos os envolvidos.