Este fórum está sendo desativado

[vieira120414]

Prezados, boa tarde!

Solicito auxílio para resolução do seguinte fato. Eu tenho uma planilha com uma sequência numérica, porém nesta sequência existem numerações faltantes. Alguém sabe uma fórmula onde o Excel indique quais são essas numerações? Planilha teste anexa.

Desde já agradeço pela atenção.

Atenciosamente,
Marco

[Parkeless]

Olá novamente Marco!

Fiz através de macro; veja se te atende:

Código: Selecionar todos

Sub NumerosFaltantes()
Dim LocalInserção As Range
Dim LocaldeBusca As Range
Dim ValorProcura As Double
Dim cell As Range
Dim i As Long

Set LocaldeBusca = Range("B6:B11") 'procurar nesse intervalo
Set LocalInserção = Range("C6") 'inserir a partir da célula C6

For Each cell In LocaldeBusca
    If cell.Offset(1, 0) = "" Then: Exit For
    If cell.Offset(1, 0) - cell > 1 Then
        For i = 1 To cell.Offset(1, 0) - cell - 1
            LocalInserção = cell + i
            Set LocalInserção = LocalInserção.Offset(1, 0)
        Next i
    End If
Next cell

End Sub

[vieira120414]

olá, tudo bem com você?

obrigado pelo auxílio anterior.

Por favor, você poderia enviar a planilha com a macro inserida, pois não estou conseguindo realizar o procedimento.

Desde já agradeço.

Atenciosamente,
Marco

[Parkeless]

Marco,

Segue anexa.

Lembrando que você provavelmente vai ter que adaptar o código a seu intervalo real; para isso, na planilha aperte Alt+F11, e mude o intervalo das variáveis LocaldeBusca e LocalInserção.

Recomendo você fazer essa adaptação antes de marcar o tópico como resolvido

[vieira120414]

Olá, bom dia!

Muito obrigado pelo auxílio, a macro funcionou de forma esperada.

Atenciosamente,
Marco