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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 05/03/2015 1:38 pm