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

Tudo que estiver relacionado ao Excel básico, como somar, calcular média, colocar bordas, etc.
  • Avatar do usuário
Por SandroLima
#34554
Como faço a formatação condicional para uma coluna de uma tabela em que se ela for preenchida por um caracter específico (no caso o "-") ele fique na posição centralizada de texto.

Lembrando que a coluna encontra-se com a formatação de texto alinhada à esquerda... apenas quando preenchida com esse caracter ele deverá ficar com formatação centralizada .

Segue planilha de exemplo
Você não está autorizado a ver ou baixar esse anexo.
#34565
SandroLima escreveu:Como faço a formatação condicional para uma coluna de uma tabela em que se ela for preenchida por um caracter específico (no caso o "-") ele fique na posição centralizada de texto.
Não é possível alterar o alinhamento da célula via Formatação Condicional. ;)

Se você quiser testar uma solução via macro instale o código abaixo no módulo da planilha.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column <> 7 Or Target.Count > 1 Then Exit Sub
 Target.HorizontalAlignment = IIf(Target.Value = "-", xlCenter, xlGeneral)
End Sub

#34573
Boa tarde, osvaldomp.

Obrigado pela ajuda. O código funcionou perfeitamente para o que eu mencionei.

Mas eu precisava que o código se estendesse a todas as linhas e colunas de uma tabela.

Como ficaria a alteração do código?

Vou anexar a mesma planilha com a tabela com mais colunas.

Muito obrigado mais uma vez.
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por gfranco
Avatar
#34574
Boa tarde.
Veja se te atende.
*Nota:
Se mudar o nome da tabela na planilha, vai ter que mudar também no código.
Para acessar o código, clique com o botão direito no nome da planilha e selecione "exibir código"
Você não está autorizado a ver ou baixar esse anexo.
#34575
Substitua esta linha
Código: Selecionar todos
If Target.Column <> 7 Or Target.Count > 1 Then Exit Sub
por esta
Código: Selecionar todos
If Intersect(Target, Columns("G:K")) Is Nothing Or Target.Count > 1 Then Exit Sub
obs. o código atuará em todas as linhas das colunas G:K
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord