Destacar Célula Ativa no EXCEL

katito41 · 1 de janeiro de 2011

Olá pessoal!

Existe alguma maneira de ressaltar com alguma cor diferente, seja no contorno ou preenchimento de cor, a célula ativa no excel 2003 ?

Não quero ressaltar toda a coluna e linha, mas apenas o campo da célula onde se encontra o cursor, ou seja, a célula ativa naquele momento.

Além disso ela não pode apagar o fundo de cor que por acaso possa existir em alguma planilha.

Feliz 2011 a todos os colaboradores do fórum.

Abraço.

Katito41

Patropi · 1 de janeiro de 2011

Boa tarde Katito41

Neste site tem um código VBA que pode te ajudar:

http://www.exceldoseujeito.com.br/2008/10/04/destacar-a-linha-selecionada-alterando-a-cor-de-fundo/

Um abraço e Feliz 2011

katito41 · 3 de janeiro de 2011

Caro Patropi, boa noite!

Esse código VBA eu já havia visto, porém não me serve.

Nesse exemplo do link mencionado somente a linha fica realçada.

O que eu preciso é que somente a célula ativa fique realçada (o ponto de encontro entre a linha e a coluna que o cursor estiver).

Valeu a ajuda.

Abraço e boa semana.

katito41

3 de janeiro de 2011

cole o código abaixo no módulo da planilha

o código utiliza as células A1 e A2 para armazenar valores, se quiser altere para outros endereços

Option Explicit
Public celAnt As String
Public corAnt As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

On Error Resume Next 
        If celAnt = "" Then
                 celAnt = Range("A2").Value 
                   corAnt = Range("A1").Value 
                    Range(celAnt).Interior.ColorIndex = corAnt
                     corAnt = Target.Interior.ColorIndex
                     Range("A1").Value = corAnt
                    Target.Interior.Color = vbYellow
                  celAnt = Target.Address
                Range("A2").Value = celAnt

        Else

                Range(celAnt).Interior.ColorIndex = corAnt
                  corAnt = Target.Interior.ColorIndex
                   Range("A1").Value = corAnt 
                   Target.Interior.Color = vbYellow
                  celAnt = Target.Address
                Range("A2").Value = celAnt 
        End If

End Sub