Erro de variavel no msgbox

2024 - VBA & Macros

Post Recente por skulden 8 anos atrás

2 Posts

2 Usuários

0 Reactions

907 Visualizações

RSS

vonzuben

(@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

(@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