Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Listar números que ...
 
Notifications
Clear all

Listar números que faltam na sequencia númérica

 
2024 - VBA & Macros
Post Recente por AMORIM123 6 anos atrás
5 Posts
5 Usuários
0 Reactions
1,431 Visualizações
RSS
 Remilton
(@remilton)
Posts: 0
New Member
Topic starter
 

Olá pessoal, queria a ajuda de vocês pra resolver uma situação que já bati cabeça.
estou colocando a planilha em anexo para visualização.

Estou querendo lista no listview os números que faltam para sequência da coluna de acordo com a combobox, por exemplo:

Escolhendo a Coluna A

A2 - 1165908
A4 - 1165909
A6 - 1165911

Nesta sequencia ai, esta faltando o nº 1165910

Como faço pra listar todos os números que faltam na sequencia?

 
Postado : 27/06/2018 6:53 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Remilton,

Bom dia!

Na sua explicação entendi o que você quer, todavia, na sua planilha, não percebi nada faltando.

 
Postado : 28/06/2018 5:15 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

.
Remilton, no total faltam estes ...
.
1166594
1166688
1166939
1167048
1167249
1168310
1169115
.
B4 =SE(A4="";"";A4=A2+1) ... arrastando até o final, e depois ordenando pela coluna B, você vê os que faltam!!
.

 
Postado : 28/06/2018 5:29 am
 gfranco
(@wzxnet7)
Posts: 0
New Member
 

Bom dia.
Segue minha contribuição.

 
Postado : 28/06/2018 6:05 am
 AMORIM123
(@amorim123)
Posts: 0
New Member
 

Em um fórum aqui do planilhando tem uma solução que talvez possa ser igual a sua, dá uma conferida ai no link

http://www.planilhando.com.br/forum/viewtopic.php?f=24&t=2738

O Cód. é esse...lá parece ter funcionado.

Sub LocalizarAusente()
    Dim i As Integer
    Dim k As Integer
    Dim Intervalo As Range
    
    'Define a coluna "A" como origem dos dados
    Set Intervalo = [A:A]
    
    'Verifica o valor máximo da sequencia
    Max = WorksheetFunction.Max(Intervalo)
    
    'Linha inicial da relação de ausentes
    k = 1
    
    'Laço para localizar os valores ausentes
    For i = 1 To Max
        
        'Se a quantidade de determinado valor é igual 0
        If WorksheetFunction.CountIf(Intervalo, i) = 0 Then
            
            'coloca o valor na coluna de ausentes ("D")
            Cells(k, "D").Value = i
            
            'incrementa a variável que controla os ausentes
            k = k + 1
        End If
    Next
    
End Sub
 
Postado : 29/06/2018 9:48 am
Forum Jump:
  Tópico Anterior
Próximo Tópico