Este fórum está sendo desativado

[RicardoGuitt]

Olá noa noite!
Gostaria de saber se é possivel mesclar linhas a partir de uma informação na coluna A então mesclar as linhas de A:G
Mantendo o texto centralizado, qual seria essa função no VBA?

[osvaldomp]

... então mesclar as linhas de A:G ~~~> mesclar A:G significa mesclar colunas e não mesclar linhas.

#

Mesclar células no Excel não é uma manobra bem-vinda ...
Segue um comando básico pois você não forneceu informações suficientes para a elaboração de uma solução.

Código: Selecionar todos

 If Range("A5").Value = "BozoNeverMore" Then
  Range("A5:G5").Merge
  Range("A5:G5").HorizontalAlignment = xlCenter
 End If

#
Segue uma alternativa sem mesclar células.

Código: Selecionar todos

 If Range("A5").Value = "BozoNeverMore" Then
  Range("A5:G5").HorizontalAlignment = xlCenterAcrossSelection
 End If

[RicardoGuitt]

osvaldomp, vou tentar deixar mais claro, o que eu preciso é que se em qualquer linha da coluna 1 (A) eu digitar um texto especifico então o texto fique centralizado entre as colunas A:G
Ex: Ricardo na linha 2 da coluna A
Então o nome Ricardo ficará centralizado na linha 2 de A2:G2
Se for na linha 5 a mesma coisa A5:G5.

[osvaldomp]

Instale uma cópia de um dos códigos abaixo no módulo da planilha de interesse.
Para acessar o módulo clique com o direito na guia da planilha e escolha Exibir Código.

opção1 - mesclar (não recomendável)

Código: Selecionar todos

Private  Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Target.Column > 1 Then Exit Sub
 If Target.Value = "Ricardo" Then
   Cells(Target.Row, 1).Resize(, 7).Merge
   Cells(Target.Row, 1).Resize(, 7).HorizontalAlignment = xlCenter
  End If
End Sub

#

opção2 - sem mesclar porém com efeito visual semelhante

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If targe.Count > 1 Then Exit Sub
 If Target.Column > 1 Then Exit Sub
 If Target.Value = "Ricardo" Then Cells(Target.Row, 1).Resize(, 7).HorizontalAlignment = xlCenterAcrossSelection
End Sub

[RicardoGuitt]

osvaldomp,
Eu não consegui, não funcionou...
Segue anexo a planilha em questão.
Onde estão os nomes é o que eu gostaria
de centralizar nas colunas e linhas.

[osvaldomp]

Eu não consegui, não funcionou...

Instale uma cópia de um dos códigos abaixo no módulo da planilha de interesse.

Você precisa instalar um dos códigos. Lembra disso?

[RicardoGuitt]

@osvaldomp
Sim eu lembro, instalei os dois e nada aconteceu...

[osvaldomp]

Se nada aconteceu então você instalou em lugar errado.

No arquivo que você postou não encontrei nenhum deles instalado.

[RicardoGuitt]

Eu estou começando com VBA muito recentemente, provavelmente foi isso… eu instalei a partir de um modulo
Na verdade em um deles deu erro 424 que eu não faço a mimima ideia de como resolver e em outra situação até funcionou mas sonente em uma inica linha e fazendo com a formula procv não funcionasse por completo…
E sim no arquivo que enviei não tem nenhum instalado, foi mais para mostrar o que eu quero, mas obrigado @osvaldomp vou continuar tentando.

[RicardoGuitt]

@osvaldomp
Consegui dessa forma abaixo:
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
If Target.Value = "RICARDO" Then Cells(Target.Row, 1).Resize(, 7).HorizontalAlignment = xlCenterAcrossSelection
End Sub

Talvez ou com certeza a planilha não está com a macro dá melhor forma mas funcionou!
Segue anexo.

[RicardoGuitt]

Muito Obrigado @osvaldomp

[osvaldomp]

Olá, @RicardoGuitt .

No caso de múltiplos nomes, ao invés de repetir as instruções para cada um dos nomes, é possível montar uma matriz com todos os nomes e colocar as instruções uma única vez. Veja abaixo.

Código: Selecionar todos

 Dim nomes As Variant
  If Target.Column > 1 Then Exit Sub
  nomes = Array("IRINEU", "LEON", "PAULO", "RICARDO", "STEPHANIE")
   If Not IsError(Application.Match(Target.Value, nomes, 0)) Then
    Cells(Target.Row, 1).Resize(, 7).HorizontalAlignment = xlCenterAcrossSelection
   End If

[RicardoGuitt]

Boa Tarde @osvaldomp
Ficou perfeito!
Você é Fera!!!
Muito Obrigado!