Notifications
Clear all

Célula ativa destacada enquanto o userform estiver aberto

4 Posts
3 Usuários
0 Reactions
1,390 Visualizações
xxXLSxx
(@xxxlsxx)
Posts: 42
Eminent Member
Topic starter
 

Tenho um botão que abre um userform.

Quando eu clicar em alguma célula e clicar no botão do userform, essa célula ficará destacada de laranja, e, quando eu fechar o userform, a célula voltará a sua cor normal.

Como faço isso?

Por exemplo, se eu clicar na célula F1 e depois clicar no botão, a célula ficará de cor laranja.
Quando eu fechar o userform, ela voltará a essa cor (azul)

Planilha

 
Postado : 25/09/2012 8:09 pm
(@dmirandaalves)
Posts: 4
New Member
 

Cara, mais simples do que você imagina..

No seu form, ao clicar no botão X, peça para identificar a linha e a coluna da célula ativa. Assim:

LinhaAtiva = ActiveCell.Row
ColunaAtiva = ActiveCell.Column

Partindo daí, você simplesmente pinta:

With Cells(LinhaAtiva,ColunaAtiva).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With

(Obs: Peguei esse código simplesmente criando uma macro manual pintando uma célula simplesmente de laranja e adaptando o Selection pelo meu range, no caso a célula ativa. Nada na decoreba)

Faça o caminho inverso na forma de evento BeforeClose do UserForm para voltar a cor normal

Abraços

 
Postado : 25/09/2012 11:24 pm
(@wilmarleal)
Posts: 186
Estimable Member
 

Olha ai o que fiz,

da pra servir como modelo pra voce, fiz aqui rapidinho nem enfeitei nada nao, olha o codigo e copia, abraço

Tenho um botão que abre um userform.

Quando eu clicar em alguma célula e clicar no botão do userform, essa célula ficará destacada de laranja, e, quando eu fechar o userform, a célula voltará a sua cor normal.

Como faço isso?

Por exemplo, se eu clicar na célula F1 e depois clicar no botão, a célula ficará de cor laranja.
Quando eu fechar o userform, ela voltará a essa cor (azul)

Planilha

*** Espero ter Ajudado ***
Se a mensagem foi útil Favor Clicar na [MÃOZINHA].
Se Finalizou, lembre se de marcar o tópico como [RESOLVIDO].

Wilmar Borges Leal Junior
http://wilmarborges.com

 
Postado : 27/09/2012 12:05 pm
xxXLSxx
(@xxxlsxx)
Posts: 42
Eminent Member
Topic starter
 

Muito obrigado a todos!

 
Postado : 27/09/2012 1:00 pm