Ir ao conteúdo
  • Cadastre-se
Netrox92

Excel vba mesclar celulas

Recommended Posts

Ola

Gostaria de saber se tem algum jeito de verificar até onde está escrito um texto em uma célula, e mesclar com as celulas até onde está escrito.

 

Exemplo:

post-597045-0-06671000-1415811263_thumb.

 

No texto: "Texto aleatório, para teste." está escrito na celula 'A1', porém o texto vai até o começo da celula 'F1".

Gostaria de um código vba para verificar até onde o texto está escrito, e mesclar até a celula correta. No exemplo mesclaria da celula 'A1:F1'

 

Agradeço desde já

 

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente o codigo abaixo, insira em um modulo: 

 

Sub Mesclar_Celulas()


Dim rngA, L, x, y, v, w
rngA = 1
w = IsMerged(Plan1.[a1])
If w = True Then
MsgBox " Celula selecionada já está mesclada"
Exit Sub
Else
x = Len(Plan1.[a1])
v = Width(Plan1.[a1])
y = x / v
If Len(y) > 1 Then L = Left(y, InStr(y, ",") - 1)
If Len(y) = 1 Then L = Left(y, 1)
If L > 1 Then Range(Cells(1, rngA), Cells(1, (L - 1))).Select
If L <= 1 Then Range(Cells(1, rngA), Cells(1, rngA + (L))).Select
If Selection.Cells.count > 1 Then
Selection.Merge
MsgBox (L - 1) & " Celulas selecionadas mescladas"
Else
MsgBox "Para mesclar, é preciso de ao menos 2 ou mais células selecionadas!", 64
End If
End If
End Sub

Function Width(MyRange As Range) As Double
Application.Volatile
Width = MyRange.ColumnWidth
End Function
Function IsMerged(rCell As Range) As Boolean
IsMerged = rCell.MergeCells
End Function

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×