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