Msgbox al ingresar datos en una celda
suponiedo que la columna predetermina sea la columna A cundo ingrese algún dato en alguna de las celdas vacías de dicha columna me tire un msgbox que pregunte desea ejucutar la macro que yo le indique si o no desde ya a quien me pueda ayudar
1 Respuesta
Respuesta de Dante Amor
1
Te anexo un ejemplo:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A:A")) Is Nothing Then
respuesta = MsgBox("Desea ejecutar la macro", vbYesNo, "MENSAJE")
If respuesta = vbYes Then
macro
End If
End If
End SubCon la siguiente puedes poner 3 botones Si, No y Cancel, el funcionamiento sería así:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A:A")) Is Nothing Then
respuesta = MsgBox("Desea ejecutar la macro", vbYesNoCancel, "MENSAJE")
Select Case respuesta
Case vbYes
macro
Case vbNo
MsgBox "No se ejecuta la macro"
Case vbCancel
MsgBox "El proceso se interrrumpió"
End Select
End If
End Sub
