Getting the old value ????

[socram_06]

Hi there... Please help me with this...

I have a sheet (Sheet1) and in A1 the value 150.

I'm trying to change that value (150), but with a confirmation because that cell will be locked after click "Yes".

The problem is here: (Using "If MSGBOX") ("Are you sure you want to make this change ?")=NO

In this case, the value in A1 must return to 150 (the previous value)...

How can I do that??

Any help will be very appreciated!


Very thanks in advance.

[Leith Ross]

Hello socram_06,

Do you already have some code written or do you want someone to write a routine to do this? If you have any code wrtitten, please post it.

Sincerely,
Leith Ross

[Paul]

Socram,

If you are looking for code to do this, you could insert the following into that sheet's code module (right-click on sheet tab and choose 'View Code'). This will ask the user if they really want to change the value in A1 whenever that cell's value changes, and if not it will revert to the previous value.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ans As String
Application.EnableEvents = False
    If Target.Address = "$A$1" Then
        ans = MsgBox("Are you sure you want to do this?", vbYesNo, "Warning!")
        If ans = vbNo Then Application.Undo
    End If
Application.EnableEvents = True
End Sub

[socram_06]

Hi friends, thank you for reply...

Here what I was doing...

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A1").Value = "" Then Exit Sub

If MsgBox("Are you sure you want to do this ??", vbYesNo) = vbYes Then

Exit Sub
End If

'here was the problem !!!
'Range("A1").Value = ' ?????????

pjoaquin, your code is perfect for what I need...

Thank you very much