Msg Box com Botoes de Ignorar Repetir Abortar

Este código favorece aqueles que tem intenção de executar algum tipo de rotina ou macro por meio de uma msgbox com opções de Ignorar, Repetir e Abortar.

Sub Abortar_Repetir_Ignorar()
Repetir:
    Dim Msg As String
    Dim T As String
    Dim I As Integer
    Dim B As Integer
    Dim M As VbMsgBoxResult

    ' Menssagens
    Msg = "selecione Abortar, Repetir ou Ignorar " & Chr(vbKeyReturn)
    Msg = Msg & "nova linha" & Chr(vbKeyReturn)
    Msg = Msg & "Pode fazer nova linha usando o Chr(13)"


    ' Aqui informe o titulo da MsgBox
    T = "Exemplo - Abortar Repetir Ignorar"

    ' informe um icone para a MsgBox (informação, parada critica....)
    I = vbCritical

    ' Tipos de Botoes da MsgBox
    B = vbAbortRetryIgnore
    B = B + vbDefaultButton2
    
    M = MsgBox(Msg, B + I, T)

    'Alternativa
    'M = MsgBox(Msg, vbAbortRetryIgnore + vbDefaultButton2 + vbCritical, "Exemplo - Abortar Repetir Ignorar")
    
    ' Se for clicado em Repetir então
    If M = vbRetry Then
        GoTo Repetir

    ' Se for clicado em Abortar então
    ElseIf M = vbAbort Then
        Exit Sub

    'Se for clicado em ignorar então
    ElseIf M = vbIgnore Then
        MsgBox "Quer ignorar"
    End If
End Sub

Tags:

• VBA