Hola, tengo un archivo de excel y le puse una macro para que a la hora de borrar alguna celda me notifique y realice la accion o cancelarla, pero tiene un pequeño problema, por ejemplo si yo estoy ubicado en la celda A20 y borro la informacion que tengo en esa celda, a la hora de cambirme a la B20 sale la notificacion de que acabo de borrar la celda A20 que si estoy seguro y si pongo que no, la informacion qu tenia en la A20 me la coloca en la B20..
En lo que quisiera que me ayudaran es en que si borro la celda x y me cambio de celda a la hora de que me saga la notificacion y si pongo que no quiero borrar, qe la informacion se quede en la celda x, no en mi celda actual.
Epero y puedan ayudarme! gracias!
esta es la macro que coloque para la advertencia de borrar.
Dim Valor
'__________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Empty Then
If MsgBox(" Acabas de borrar la celda " & Target.Address(False, False) & Chr(10) & _
Hola, tengo un archivo de excel y le puse una macro para que a la hora de borrar alguna celda me notifique y realice la accion o cancelarla, pero tiene un pequeño problema, por ejemplo si yo estoy ubicado en la celda A20 y borro la informacion que tengo en esa celda, a la hora de cambirme a la B20 sale la notificacion de que acabo de borrar la celda A20 que si estoy seguro y si pongo que no, la informacion qu tenia en la A20 me la coloca en la B20..
En lo que quisiera que me ayudaran es en que si borro la celda x y me cambio de celda a la hora de que me saga la notificacion y si pongo que no quiero borrar, qe la informacion se quede en la celda x, no en mi celda actual.
Epero y puedan ayudarme! gracias!
esta es la macro que coloque para la advertencia de borrar.
Dim Valor
'__________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Empty Then
If MsgBox(" Acabas de borrar la celda " & Target.Address(False, False) & Chr(10) & _
"¿ Estás seguro ?", vbinformatiom + vbQuestion + vbYesNo, "Borrar datos") = vbNo Then
ActiveCell = Valor
End If
End If
End Sub
'_________________________________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Valor = Target
End Sub