Anónimo
Recuperar valor celda
Tengo una lista de validación en una celda (A1) y una macro que se ejecuta al modificar el valor de dicha celda. La macro muestra un MsgBox Yes/No. Necesito hacer que la celda (A1) recupere el valor que tenía antes de ejecutarse la macro en caso de seleccionar el botón "No" de la MsgBox.
Gracias de antemano por su ayuda.
Gracias de antemano por su ayuda.
1 Respuesta
Respuesta de Elsa Matilde
1
Qué pena que no colocaste la macro para ajustarla allí mismo.
Te dejo las que utilicé como ejemplo, se guarda el valor al seleccionar la celda y luego se usa esa variable (declarada como pública) para volverla a colocar.
Es solo un ejemplo, aquí no estoy contemplando la ubicación de la celda que ya lo tendrás en tu macro
Public anterior
Private Sub Worksheet_Change(ByVal Target As Range)
'controlar la referencia del target
sino = MsgBox("Desea cambiar?", vbYesNo)
If sino = vbYes Then
Else
Application.EnableEvents = False
Target.Value = anterior
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'controlar la referencia del target
anterior = Target.Value
End Sub
Te dejo las que utilicé como ejemplo, se guarda el valor al seleccionar la celda y luego se usa esa variable (declarada como pública) para volverla a colocar.
Es solo un ejemplo, aquí no estoy contemplando la ubicación de la celda que ya lo tendrás en tu macro
Public anterior
Private Sub Worksheet_Change(ByVal Target As Range)
'controlar la referencia del target
sino = MsgBox("Desea cambiar?", vbYesNo)
If sino = vbYes Then
Else
Application.EnableEvents = False
Target.Value = anterior
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'controlar la referencia del target
anterior = Target.Value
End Sub