Criar macro para separar intervalo de numeros por hifen

2024 - VBA & Macros

Post Recente por tmmoreira 10 anos atrás

3 Posts

2 Usuários

0 Reactions

981 Visualizações

RSS

tmmoreira

(@tmmoreira)

Posts: 3

New Member

Topic starter

Olá,

Preciso de uma ajuda para criar uma macro onde um número inicial e um final é digitado numa imputbox e o intervalo entre estes dois números é criado com separação por hifen.

Exemplo:

Inicial:1 Final 5
Resultado: 1-2-3-4-5

Agradeço a ajuda de vocês.

Postado : 22/01/2015 7:43 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Tente..........

Sub AleVBA_14251()
Dim Num1 As Long, Num2 As Long, Stg As String, n As Long
Num1 = Application.InputBox(prompt:="Digite o Primeiro Número", Title:="Sec Num", Type:=1)
Num2 = Application.InputBox(prompt:="Digite o Ultimo Número", Title:="Sec Num", Type:=1)

For n = Num1 To Num2
    Stg = Stg & "," & n
Next n
MsgBox "Os números são: " & Mid(Stg, 2)
End Sub

favor clicar na mãozinha!!!!!!!!
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 22/01/2015 8:46 am