Números Faltantes em uma range

[Reinaldo]

De uma duvida/necessidade ocorrida no forum ExcelBR, sobre a possibilidade de identificação dos numeros (sequencia) faltantes em uma determinada range.
foi sugerido a solução conforme esta pagina: http://www.get-digital-help.com/2009/09 ... -in-excel/.

Anexo modelo adaptado para "procura" em linhas (modelo original) e em colunas

[Patropi]

Aproveito o tópico do Reinaldo para postar outra planilha sobre números faltantes numa coluna.
Eu baixei de algum fórum, não me lembro qual, por isso não coloquei os créditos:

Indicar NumerosFaltantes.zip

Um abraço.

[DJunqueira]

Solução com uso de funções do Excel 2016. [UNIRTEXTO()]

[edcronos2]

uma função que tinha feito

Código: Selecionar todos

Function Ed_NunAusente(ByVal Rang As Range, ByVal Ocorrencia As Long, ByVal Menor_Valor As Long, ByVal Maior_Valor As Long) As Long
     reg1 = Rang.Value2
     Lc1 = UBound(reg1, 1): Cc1 = UBound(reg1, 2)
     ocr = 0
     For V = Menor_Valor To Maior_Valor
          TtL = 0:
          For L = 1 To Lc1
               For c = 1 To Cc1
                    If reg1(L, c) = V Then TtL = 1: Exit For
               Next:
          Next
          If TtL = 0 Then ocr = ocr + 1
          If ocr = Ocorrencia And TtL = 0 Then Ed_NunAusente= V: Exit Function
     Next
End Function

menor e maior funciona como filtro,
se me animar monto sem isso e mais otimizado

range=
1 - 30 - 6
5 - 10 - 13
formula
=Ed_NunAusente( range; ocorrência; menor 1; maior 20)

ocorrência= 1 ; resultado= 2
ocorrência= 6 ; resultado= 9
ocorrência= 10 ; resultado= 15

maior 20
nesse caso nao identificaria números acima de 20

[Ander39]

Aproveito o tópico do Reinaldo para postar outra planilha sobre números faltantes numa coluna.
Eu baixei de algum fórum, não me lembro qual, por isso não coloquei os créditos:

Indicar NumerosFaltantes.zip

Um abraço.

Olá, Boa tarde!

VC ainda teria essa macro NumerosFaltantes.zip ? eu vi que vc postou ela em um tópico. Ja vi ela em alguns outros foruns mas ela ja não esta mais diponivel para Download.

Att,

Anderson S. Dorneles