Boa tarde locatelli

Movi teu tópico pois onde você havia postado não é permitido postar dúvidas, lá é exclusivo para postagem de exemplos, tutorias, apostilas, etc...
Movido do tópico:
mcp.php?i=main&mode=topic_view&f=21&t=7636

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

.
Supondo que seus números estejam em A2:A23 .... B2=SE(CONT.SE($A$2:$A$23;LIN()-1)<1;LIN()-1;"") ... arrasta até o final, assim terá os números que faltam na sequencia!!!
.

.
Supondo que seus números estejam em A2:A23 .... B2=SE(CONT.SE($A$2:$A$23;LIN()-1)<1;LIN()-1;"") ... arrasta até o final, assim terá os números que faltam na sequencia!!!
.

entao é no vba preciso de uma macro!

.
viewforum.php?f=10 ....... então melhor postar no tópico correto!!
.

Bom dia galera,

Tópico movido para o fórum correto.

Tenta assim (levando em consideração que a coluna esteja em ordem crescente):

Sub PriNumFaltante()
Dim wsAtiva As Excel.Worksheet
Dim i       As Long
Dim j       As Long

    Set wsAtiva = ThisWorkbook.ActiveSheet
    i = 2 'Número da linha inicial (retirando o cabeçalho)
    j = 1 'Número da coluna
    
    Do
        If wsAtiva.Cells(i + 1, j).Value = Empty Then
            MsgBox "Não há número faltante no intervalo." & vbNewLine & _
                   "O Próximo número é: " & i + 1
            Exit Do
        End If
        If wsAtiva.Cells(i + 1, j).Value - wsAtiva.Cells(i, j).Value > 1 Then
            MsgBox "O primeiro número faltante é: " & i + 1
            Exit Do
        End If
        i = i + 1
    Loop
    
    Set wsAtiva = Nothing

End Sub

Qualquer coisa da o grito.
Abraço