Como hacer un msgbox con respuesta aceptar y cancelar

Como hacer un msgmox o un userform en función de lo que escriba en una celda por ejemplo elijo una celda cualquiera de la columna A e ingreso ingreso el numero 1 ahí me tira el msgbox o el userform y me pregunta a aceptar o cancelar - o si o no y depende del botón si es si o aceptar ejecuta la macro y si es no no hace nada muchas gracias

1

1 Respuesta

9.100 pts.

En el explorador de proyectos de Visual basic, haz doble click en ThisWorkbook y copia el siguiente código.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rpt As Integer

If Target.Column = 1 Then
'Target devuelve la celda o rango seleccionado, en este caso verificamos que el cambio esté en la columna A
'Aquí puedes agregar más condiciones tambien como If target.value=1 then...

    rpt = MsgBox("Desea Continuar", vbOKCancel)
    'Si quiere asignar una accion a la respuesta
    If rpt = 1 Then
        'rpt es 1 si se seleccionó OK
                'Escriba aquí su código, por ejemplo
        MsgBox ("Ud presionó OK")
    Else
        ' si NO seleccionó OK
        'Escriba su código aquí
            MsgBox ("Ud presionó cancel")
    End If
End If
End Sub

¡Gracias! excelente harold z me ayudaste un monton te puedo volver a consultar lo que necesite porque estoy preparando un programa de bonos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas