Quebra De Texto Via Macro

[bEbEr]

galera..

tenho uma macro onde ela monta uma planilha e tal com valores.. texto e bla bla.. e tem certas células.. exemplo A1 que precisar ter aquela quebra de pagina para que o texto apareca por inteiro.. so q não esta aparecendo..

como posso fazer isso via macro?!

eu fiz o seguinte:

With Selection

.HorizontalAlignment = xlRight

.VerticalAlignment = xlCenter

.WrapText = True

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

mais não funco :S

valeuuu

[FabianoCRZ]

galera..

tenho uma macro onde ela monta uma planilha e tal com valores.. texto e bla bla.. e tem certas células.. exemplo A1 que precisar ter aquela quebra de pagina para que o texto apareca por inteiro.. so q não esta aparecendo..

como posso fazer isso via macro?!

eu fiz o seguinte:

With Selection

.HorizontalAlignment = xlRight

.VerticalAlignment = xlCenter

.WrapText = True

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

mais não funco :S

valeuuu

Caro amigo bEbEr :

Você fez quase tudo mas faltou o objeto. Veja como deve ficar :

Private Sub CommandButton1_Click()

Dim celula

celula = Sheets("plan1").Range("A1").Select

With celula

celula = HorizontalAlignment = xlGeneral

celula = VerticalAlignment = xlBottom

celula = WrapText = True

celula = Orientation = 0

celula = AddIndent = False

celula = IndentLevel = 0

celula = ShrinkToFit = False

celula = ReadingOrder = xlContext

celula = MergeCells = False

End With

Sheets("plan1").Range("a1").Value = TextBox1

End Sub

Espero ter ajudado!!!!

[bEbEr]

Fabiano..

Não deu certo cara

:/

[FabianoCRZ]

Fabiano..

Não deu certo cara

:/

Fala amigo bEbEr beleza?

Fiz os testes aqui e estou postando para você a forma correta:

Private Sub CommandButton1_Click()
Range("A1").Select

With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

Range("A1").Value = TextBox1
End Sub

Para testar crie uma useform, uma textbox e um botão. No botão cole essa rotina.

Espero que de tudo certo ai!!!!!

Abraço

Editado Novembro 20, 2007 por RenatoMejias
Adicionar code

[RenatoMejias]

Opa FabianoCRZ, quando for postar um código coloque a tag CODE, assim fica mais visível.

Para fazer isso apenas digite:

CODE (Entre colchetes)

e no fim do código coloque

/CODE (Entre colchetes)

:)

[FabianoCRZ]

Opa FabianoCRZ, quando for postar um código coloque a tag CODE, assim fica mais visível.

Para fazer isso apenas digite:

CODE (Entre colchetes)

e no fim do código coloque

/CODE (Entre colchetes)

:)

Como vai amigo Renato?

Me desculpa por não organizar de forma correta o código, é que não sabia como fazer, mas agora que você deu a dica prometo que daqui para frente o negócio vai ficar organizadinho rsrsrsrsrsrsrsrs

Valeu pela dica, muito obrigado!!!

[bEbEr]

caro colegaa Fabiano..

montei uma planilha e funcou.. mais sabe porque q aqui na minha original não está indo?! porque do A1 até ao F1 as células estão mescladas.. se eu deixar somente na A1 ela funciona.. mais quando vai do A1 até o F1 já não da mais certo..

como eu faco agora!?

[FabianoCRZ]

caro colegaa Fabiano..

montei uma planilha e funcou.. mais sabe porque q aqui na minha original não está indo?! porque do A1 até ao F1 as células estão mescladas.. se eu deixar somente na A1 ela funciona.. mais quando vai do A1 até o F1 já não da mais certo..

como eu faco agora!?

Como vai amigo bEbEr beleza?

Para você fazer com que as células A1 até F1 fiquem mescladas faça o seguinte :

Private Sub CommandButton1_Click()
Range("A1").Select

With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("a1:f1").Select
Selection.Merge

Range("A1").Value = TextBox1
End Sub

Espero que agora dê tudo certo!!!

Abraço!!!

[Guest --beber --]

Opa Fabiano..

até ai blza.. so q se eu digito um texto muito grande.. ele não faz a quebra de texto.. e uma parte do texto fica escondina na célula..

e agora?!

:S

[FabianoCRZ]

Opa Fabiano..

até ai blza.. so q se eu digito um texto muito grande.. ele não faz a quebra de texto.. e uma parte do texto fica escondina na célula..

e agora?!

:S

Olá caro amigo bEbEr tudo bem?

Cara desculpa a minha falta de atenção, estou te ajudando ao mesmo tempo que estou com serviço até o pescoço! rsrsrsrs

Mas ai vai a rotina testada e aprovada :

Private Sub CommandButton1_Click()

Range("a1:f1").Select
Selection.Merge

With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

Range("A1").Value = TextBox1
End Sub

Agora acho que vai atender suas necessidades!!!

Abraço!

[bEbEr]

cara.. ainda não deu certo.. acho que você colocou um texto muito pequeno..

Imagem 1

Imagem 2

olha essas duas imagens que você já vai entender o que eu estou querendo..

flwww

Editado Novembro 23, 2007 por bEbEr

[FabianoCRZ]

cara.. ainda não deu certo.. acho que você colocou um texto muito pequeno..

Imagem 1

Imagem 2

olha essas duas imagens que você já vai entender o que eu estou querendo..

flwww

Olá amigo bEbEr tudo bem

Ufa tá dificil né?

Mas agora fiz os testes com textos gigantescos rsrsrsrsrsrsrsr e aqui deu tudo certo.

O comando é o seguinte

Private Sub CommandButton1_Click()

With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Value = TextBox1
Range("a1:f1").Select
Selection.Merge

End Sub

Abraço

Editado Novembro 24, 2007 por FabianoCRZ

[bEbEr]

fala Fabiano..

deu boaa agora.. mais assim..

o quadro fica muito grande.. não tem como ele fazer como na imagem 2? porque assim.. vou montar um relatorio e vai ter 3 campos assim.. e dai já vai ocupa bastante espaco da folha..

flww

[Guest --beber --]

ngm pra ajuda?!

:S