¿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 respuesta
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 :)
