Boa tarde!!

Isso já foi postado, use a pesquisa do fórum!!

Sub AleVBA_14884()
Dim Num1 As Long, Num2 As Long, Stg As String, n As Long
Num1 = Application.InputBox(prompt:="Digite o Primeiro número", Title:="Numeros que faltam", Type:=1)
Num2 = Application.InputBox(prompt:="Digite o Segundo número", Title:="Numeros que faltam", Type:=1)

For n = Num1 To Num2
    Stg = Stg & "," & n
Next n
MsgBox Mid(Stg, 2)
End Sub

Att

Não há necessidade de uma solução em VBA para uma questão simples assim, além de que, este código não soluciona a questão perguntada.

tls13, o problema da sua fórmula é que não se pode colocar 2 critérios em um argumento da função CONT.SE. Você quer dois critérios então deve utilizar a função CONT.SES determinando cada critério em argumentos separados. A fórmula fica:

=CONT.SES(A7:A16;">=80";A7:A16;"<=100")

Abs!

Boa tarde,

Chegou perto da formula , veja esta se atende =CONT.SES(a7:a16;">=80";a7:a16;"<=100")

Pequenos detalhes.

Até mais

Perfeito.

Obrigado pelas respostas.