Notifications
Clear all

Erro de variavel no msgbox

2 Posts
2 Usuários
0 Reactions
880 Visualizações
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Como colocar a variavel Inprtd no msgBox, pois está aparecendo erro 13 "Erro em tempo de execução"


Dim Inprtd As Variant
Dim Resp As String

EmpresaA = Range("A2").Value

    Inprtd = InputBox("Insira o link ", "Link")
    
    Resp = MsgBox("Está correto o link da Empresa " & Range("A2").Value & "?", vbCrLf + vbCrLf + "Link :" & Inprtd, vbYesNo + vbQuestion, "Confirmação do Link")

Obrigado !

 
Postado : 21/12/2016 10:22 pm
(@skulden)
Posts: 170
Estimable Member
 

O erro se dá por uma virgula, segue a correção:

Original:
Resp = MsgBox("Está correto o link da Empresa " & Range("A2").Value & "?", vbCrLf + vbCrLf + "Link :" & Inprtd, vbYesNo + vbQuestion, "Confirmação do Link")

Arrumado:
Resp = MsgBox("Está correto o link da Empresa " & Range("A2").Value & "?" + vbCrLf + vbCrLf + "Link :" & Inprtd, vbYesNo + vbQuestion, "Confirmação do Link")

Se a resposta lhe foi útil, clique no joinha!

 
Postado : 22/12/2016 6:28 am