Notifications
Clear all

Colocar bordas e excluir bordas

11 Posts
2 Usuários
0 Reactions
1,616 Visualizações
(@gpclouro)
Posts: 81
Trusted Member
Topic starter
 

Pessoal,
tenho uma planilha de atualização que, ao filtrar o estado desejado ele traz informações e 4 colunas e quando filtro outro ele apaga a pesquisa anterior e traz as novas informações....
Eu queria fazer uma macro que sempre que trouxesse as informações, ele colocasse bordas apenas onde vier preenchido e quando apagasse, as bordas sairiam.. Como eu faço isso?

Obrigado

 
Postado : 16/02/2016 4:56 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Disponibilize o arquivo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 16/02/2016 5:10 pm
(@gpclouro)
Posts: 81
Trusted Member
Topic starter
 

Segue meu amigo!!
A aba atualizações legislativas que faz as buscas na aba lista OBRIGADO PELA AJUDA

 
Postado : 16/02/2016 5:24 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Ve se é isso

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 17/02/2016 4:44 am
(@gpclouro)
Posts: 81
Trusted Member
Topic starter
 

Fala MPrudencio, é exatamente isso!
Como você fez? Através de formatação condicional?
Como que eu faria se eu quisesse, sempre que aparecer a palavra "errado" centralizar o texto? Apenas nesses casos que eu precisaria.
Obrigadão meu amigo!

 
Postado : 17/02/2016 5:52 am
(@mprudencio)
Posts: 2749
Famed Member
 

Sim foi feito com Formatação condicional

Qto a sua segunda questao

Cole esse codigo na folha da planilha.

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell = "Errado" Then
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
       
    End With
    Else
    
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom

    End With
End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 17/02/2016 9:38 am
(@gpclouro)
Posts: 81
Trusted Member
Topic starter
 

Valeu Marcelo...

última dúvida...Agora em relação a este código, eu queria que fosse aplicado apenas para uma coluna que no meu arquivo é a coluna D. Já tentei substituir o activeCell pela referencia da coluna maas não está dando certo....

 
Postado : 17/02/2016 1:36 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Tente assim:

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 4 Then
If ActiveCell = "Errado" Then
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
       
    End With
    Else
    
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom

    End With

End If
End If
End Sub






Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 17/02/2016 2:03 pm
(@gpclouro)
Posts: 81
Trusted Member
Topic starter
 

Testei aqui e não funcionou...
será que não tem algum problema no:
If ActiveCell.Column = 4 Then
If ActiveCell = "Errado" Then

?

 
Postado : 17/02/2016 2:33 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Ve se assim atende

Importante Errado deve ter essa grafia, ou seja:

ERRADO é diferente de Errado e diferente de errado.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 18/02/2016 11:03 am
(@gpclouro)
Posts: 81
Trusted Member
Topic starter
 

Atendeu sim Marcelo!!!
Brigadão meu amigo!!
Fique com Deus.

 
Postado : 18/02/2016 1:41 pm