Notifications
Clear all

Formatação condicional de número fora da ordem

6 Posts
2 Usuários
0 Reactions
2,410 Visualizações
(@orlandos)
Posts: 0
New Member
Topic starter
 

Olá, pessoal!

Pesquisando no motor de busca do Google no Planilhando, digitei: allintitle:ordem (e sequencia),
e encontrei uma resposta só por macro.

Estou querendo usar a Formatação condicional para marcar o número que saiu da ordem em uma sequência numérica.

Eu usei a fórmula =A2-A1<>1 em Nova Regra, referente às células A2:A10 na col A.

Mas sempre que preciso inserir uma linha na tabela, o "Gerenciador de Regras de Formatação Condicional" não acompanha a alteração em "Aplica-se a",
causando uma confusão na configuração anterior!

Seguem imagem e links de arquivo-modelo abaixo:



https://www.dropbox.com/s/3p99r4x4zwncl ... .xlsx?dl=0

Grato pela atenção!
Orlando Souza

:geek:

 
Postado : 06/02/2017 10:10 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

aplique a formatação condicional para a coluna inteira...
- selecione a coluna A inteira, clicando no cabeçalho dela
- tecle tab, para garantir que a célula ativa seja a A2
- abra a janela da formatação condicional
- na fórmula digite:
=E($A2=$A1;$A2<>"")
- formate a gosto

 
Postado : 06/02/2017 1:06 pm
(@orlandos)
Posts: 0
New Member
Topic starter
 

vlw, @fernando.fernandes
Mas a fórmula =OU(A2=A1;A2-A1<>1) funciona ainda melhor que as duas anteriores.

O problema pode estar na aplicação do Gerenciador de regras.

É possível aplicar no Gerenciador uma referência relativa (sem o $), correspondente ao intervalo de cél da col A?

PS: onde A2:A10, lê-se: A2:A11

 
Postado : 06/02/2017 3:09 pm
(@orlandos)
Posts: 0
New Member
Topic starter
 

.
É uma falha na formatação condicional do Excel!

Porque na "Validação de Dados" a fórmula fornecida na configuração se adapta automaticamente
ao inserir (e ñ excluir) uma linha na tabela de intervalo indicado. O que NÃO ACONTECE no
Gerenciador de Regras de Formatação Condicional do Excel 2010.

:shock:

 
Postado : 07/02/2017 2:11 pm
(@orlandos)
Posts: 0
New Member
Topic starter
 

.
Por que o código abaixo não funciona nesse caso?

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub
    
    If Target.Column = 1 Then
        ActiveSheet.Sort.SortFields.Clear
        Application.EnableEvents = False
        
        With ActiveSheet.Range("A1", Range("A" & Rows.Count).End(xlUp).Address)
            .Sort Key1:=[A2], Order1:=xlAscending, Header:=xlYes
            .RemoveDuplicates Columns:=1, Header:=xlYes
        End With
        
    End If
    
    Application.EnableEvents = True
    
End Sub

FONTE: viewtopic.php?f=10&t=16975

 
Postado : 13/02/2017 11:09 pm
(@orlandos)
Posts: 0
New Member
Topic starter
 

já sei! tenho q fazer a conversão do arquivo para *.xlsm
:]

 
Postado : 13/02/2017 11:23 pm