Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VbYES não está conc...
 
Notifications
Clear all

VbYES não está concluindo operação

 
2024 - VBA & Macros
Post Recente por leandroxtr 5 anos atrás
2 Posts
2 Usuários
0 Reactions
1,240 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, eu montei o seguinte código:

If Range("B3") > 0 Then
MsgBox "Deseja realizar uma nova importação?", vbYesNoCancel, "Nova importação"
Dim pergunta As VbMsgBoxResult
     If pergunta = vbYes Then
    Unload Me
    Range("C1").Select
    Selection.ClearContents
    Rows("3:3").Select
    Range("B3").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("B2").Select
    TELAINICIAL.Show
    Else
     End If
End If

se o usuário informar sim, então ele deveria realizar a macro, porém nada acontece MESMO informando SIM

o que está errado? alguém poderia me ajudar?

muito obrigado a todos

 
Postado : 07/10/2019 12:04 pm
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 
If Range("B3") > 0 Then
Dim pergunta As VbMsgBoxResult
pergunta = MsgBox("Deseja realizar uma nova importação?", vbYesNoCancel, "Nova importação")
     If pergunta = 6 Then
    Unload Me
    Range("C1").Select
    Selection.ClearContents
    Rows("3:3").Select
    Range("B3").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("B2").Select
    TELAINICIAL.Show
    Elseif pergunta = 7 Then
    'Código caso resposta seja >Não<
    Else
    'Código caso resposta seja >Cancelar<
     End If
End If

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 07/10/2019 1:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico