Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
#72644
Boa noite pessoal, me ajudem em uma situação, tenho alguns textos grandes que preciso inserir uma quebra de linha a cada 40 caracteres manualmente (ALT+ENTER), porem da muito trabalho pois são varias linhas.

encontrei isso, porem esse código insere a quebra quando tiver "/"..... e o que eu preciso que quando chegar ao caracter número 40 quebre a linha.

Private Sub CommandButton1_Click()

Dim w As Worksheet
Dim ultcel As Range
Dim ln As Long
Dim col As Long
Dim novotexto As String

Set w = wsGravação
Set ultcel = w.Cells(w.Rows.Count, 1).End(xlUp)
ln = 2
col = 1

w.Cells(ln, col).Select
w.Range("B2:C" & ultcel.Row).ClearContents

w.Range("B:B").NumberFormat = "@"

Do While ln <= ultcel.Row

novotexto = Replace(w.Cells(ln, col).Value, " / ", Chr(10))

With w.Cells(ln, col + 1)
.WrapText = True
.Value = novotexto

End With
ln = ln + 1
Loop

MsgBox "Processo Concluído"
End Sub

preciso que fique igual ao exemplo do anexo !

valeu galera!
Você não está autorizado a ver ou baixar esse anexo.

=SE(MÊS(A1)&lt;7;&quot;1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um &quot;[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord