Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
PAULO CEZAR

RESPONDIDO Destacando Texto de Celula

Mensagem Recomendada

Galera,

 

Tô precisando da ajuda de vocês. Ficaria muito grato se vocês fizesse com que a medida que eu fosse baixando o cursor nas linhas de qualquer uma das colunas, as células existentes na coluna C, na linha correspondente, ficasse com o fundo amarelo. De já agradeço a todos vocês.

Editado por PAULO CEZAR

''

Compartilhar este post


Link para o post
Compartilhar em outros sites

salve,Paulo...

Abra a interface da planilha onde você quer o código e cole este:

 

Dim LinhaSelecAnterior As RangePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)     Select Case ActiveCell.Row         Case 1, 2            'Coloque neste 'case' as linhas que não devem ser            'destacadas na seleção            'Exemplo: Linhas de título; Aqui eu defini como as linhas 1            'Remove cor de fundo da linha selecionada anteriormente            Select Case LinhaSelecAnterior.Row                Case Is <> 1, 2                    Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0                End Select        Case Else            'Altera a cor de fundo da linha selecionada            Rows(ActiveCell.Row).Interior.ColorIndex = 27          'Remove a cor de fundo quando a linha perde a seleção            If Not LinhaSelecAnterior Is Nothing Then                'Verifica se a linha atual já estava selecionada                'neste momento, caso seja uma nova linha selecionada              'remove a cor de fundo.                If ActiveCell.Row <> LinhaSelecAnterior.Row Then                    Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0                End If            End If            'Inicializa a variavel informando a seleção atual            'que será utilizada no inicio do procedimento            'como sendo a seleção anterior            Set LinhaSelecAnterior = ActiveCell     End Select End Sub

Boa sorte...


O truque da filosofia é começar por algo tão simples que ninguém ache digno de nota e terminar por algo tão complexo que ninguém entenda.

16659376348_0bf967577c_s.jpg

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...