Retirar Quebra de Texto Automaticamente [RESOLVIDO]

[Fabio Trindade]

Bom dia Srs.
Estou com problemas em tirar "Quebra de Texto Automaticamente" onde tenho um arquivo com 5 Colunas e 3000 linhas. Pesquisei a respeito do conteudo mas nenhum foi de grande utilidade, até encontrei algo parecido aqui no FORUM porém tem de fazer muitas manobra pra tirar a quebra texto, gostaria de saber se existe algo mais simples que identificaria a celula que esta com a quebra de texto e logo em seguida tirassem?

Fico no aguardo ....

[webmaster]

Fabio,

Você quer identificar quando tem a quebra ou quando precisa dela?

Abraços

[Fabio Trindade]

Tomás,

Eu preciso tirar a quebra de texto de todo o conteudo, porem meu arquivo vai variar o tamanho, uns irão ter 900 linhas outros 3000 linhas e assim vai ... só as colunas que sempre serão 7 .

Abraços

[webmaster]

Mais uma pergunta. Essas quebras estão no próprio texto? Ou seja, como se o usuário tivesse usando Alt+Enter?

Abraços

[Fabio Trindade]

A quebra estão no proprio texto !

Abraços

[webmaster]

Fabio,

Já tentou a seguinte fórmula?

=SUBSTITUIR(A1;CARACT(10);" ")

Supondo que o texto a ser trabalhado esteja em A1.

Abraços

[Fabio Trindade]

Fabio,

Já tentou a seguinte fórmula?

=SUBSTITUIR(A1;CARACT(10);" ")

Supondo que o texto a ser trabalhado esteja em A1.

Abraços

Bom dia, Tomás.

Desculapa a demora pra lhe responder, a formula resolve isso se fosse somente uma columa e poucos registro. Mas o que estou tentando fazer e automatizar o maximo possivel de um relatorio que tiro de um lugar faço as devidas alterações no arquivo e posto em outro, se eu for inserir a formula vai levar muito tempo.

Obs.: O arquivo demora pra ser baixado, sem contar que vem com um monte de coisa que não preciso o que esta me parando mesmo é a quebra de texto, sem contar que são 12 arquivo que irão variar o tamanha !!!

Mas desde ja agradeço pela força ... Vou continuar procurando uma solução !

[webmaster]

Fabio,

Bom, a fórmula está aí. Acredito que é só automatizar agora. O equivalente a função que lhe passei em VBA é:

Código: Selecionar todos

WorksheetFunction.Substitute(Range("A1"), Chr(10), " ")

Abraços

[Fabio Trindade]

Fabio,

Bom, a fórmula está aí. Acredito que é só automatizar agora. O equivalente a função que lhe passei em VBA é:

Código: Selecionar todos

WorksheetFunction.Substitute(Range("A1"), Chr(10), " ")

Abraços

Tomas,

Obrigado, vou testar a função que passou.

[Fabio Trindade]

Tomas,

Andei pesquisando sobre a função e bastante interessante, porém consegui resolver meu problema com o seguinte codigo:

Código: Selecionar todos

Sub Quebra_Texto()
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Mais uma vez agradeço pelo ajuda do FORUM.

Anúncios