Macro que al modificar una celda
Necesito una macro que al modificar una celda que ya tiene un importe, me tire un mensaje que diga (desea archivar el nuevo importe si o no) si pongo si ejecuta otra macro si pongo no no hace nada Muchas graciasssdddd
2 Respuestas
Respuesta
1
Asumo que el importe lo tenés en la columna 8 (H), entonces agrega en la hoja el siguiente evento
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRpta
If Target.Column = 8 Then
Application.EnableEvents = False
lRpta = MsgBox("Desea archivar el nuevo importe?", vbYesNo + vbInformation, "Información")
If lRpta = vbYes Then
'ACA VA TU MACRO
End If
Application.EnableEvents = True
End If
End Sub
Respuesta de Marcial C. C.
1
Pon esta macro en la hoja que quieras controlar:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por Marcial Castro'
'Cambia en la línea siguiente la celda que quieres controlar'
If Not Intersect(Target, Range("A1")) Is Nothing Then
ejecutar = MsgBox("¿ Desea archivar el nuevo importe ?", vbYesNo, "Cambio de importe")
If ejecutar = vbYes Then
'Pon aquí el nombre de Tu macro
End If
End If
End SubLo que hace es que cada vez que se modifique la celda A1 (en este caso), te muestra el mensaje, y si pulsas SI, te ejecuta la macro que le indiques.
Si te ha valido la respuesta.