¿Como introduzco un msgbox en esta macro?

Buenas tardes expertos.

Con el siguiente código localizo y elimino un registro de una base de datos hecha en excel, tomando como base para la búsqueda la identificación del estudiante. Sin embargo, deseo que, una vez hallado el registro y antes de ejecutar la eliminación, aparezca un Msgbox del estilo VbaYes/No que me pregunte si confirmo o aborto la eliminación. Es con la intención de reducir la probabilidad de cometer errores en el manejo de la base de datos.

Private Sub CommandButton1_Click()
Dim VBuscado As Range
Dim strDatos As String
'Definiendo fuente..
strDatos = TextBox1.Value

'Ubicando registro...
Worksheets("BD_Discentes").Activate
Set VBuscado = Range("I1:I1048576").Find(strDatos)
VBuscado.Select

'Borrando registro...
VBuscado.EntireRow.Delete
MsgBox ("El registro" & " " & TextBox1.Value & " " & "ha sido eliminado")
TextBox1.Value = ""
BORRAR_REGISTRO.Hide
End Sub

De antemano, les agradezco mucho su colaboración.

Luis Carlos.

1

1 Respuesta

2.189.040 pts. En mi sitio encontraran material de ayuda, ejemplos...

A partir de la línea en negrita, agregá lo que sigue ajustando los mensajes a gusto:

VBuscado.Select
sino = MsgBox("¿Estás seguro de eliminarlo?", vbYesNo, "ATENCIÓN")
If sino <> vbYes Then
MsgBox "Se cancela el proceso"
Exit Sub
End If

'sigue tu rutina

PD) No olvides evaluar qué pasa si no encuentra el registro... cualquier duda corresponde a otra consulta :)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas