Undo button

[dan2]

I seem to be full of questions today

How do I put a button on my spreadsheet that will do the same function as the undo button on the tool bar?
(the tool bar is hidden from the end user)

Thanks in advance (again)

Dan

 

[Jack in the UK]

Chers guys you have underlined mt teaching.. no go best what you do on the way in reverse on the way out.

the tips are all bar the same, we are working the same way..

Cheers guys..

Nice code ill give it a play dk

 

[MisterLamp]

Hi guys,
this actually is quite an old topic, I know... just found this through the search function however, and was wondering whether any of you could help me with an issue I´m facing at the moment.
What I´m trying to do is using application.OnUndo in case the "If"-value is not true... i.e. ticking the box means showing text in a cell and unticking it would trigger reverse action (deleting the previous step and the text)

my problem is that the way I´ve put it together so far doesn´t really lead to a success even though it looks good to me
This is what I´ve got so far:

Private Sub CheckBox2_Click()

    Dim x As String
    Dim x As String
    
        x = "AB"
        y = "A02"
        
        If 
***.CheckBox2 = True Then
            ***.Range("A6") = y
            ***.Range("d6") = x
            
        ElseIf ***.CheckBox2 = False Then
            MsgBox "deleted"
            Application.OnUndo "Undo CheckBox2", "UndoCheckBox2"
End If
            
End Sub

Sub UndoCheckBox2()
***.Range("A6").ClearContents
***.Range("d6").ClearContents

End Sub

Would be happy about any comments or help
thanks!

 

[MisterLamp]

Hi guys,
this actually is quite an old topic, I know... just found this through the search function however, and was wondering whether any of you could help me with an issue I´m facing at the moment.
What I´m trying to do is using application.OnUndo in case the "If"-value is not true... i.e. ticking the box means showing text in a cell and unticking it would trigger reverse action (deleting the previous step and the text)

my problem is that the way I´ve put it together so far doesn´t really lead to a success even though it looks good to me
This is what I´ve got so far:

Private Sub CheckBox2_Click()

    Dim x As String
    Dim x As String
    
        x = "AB"
        y = "A02"
        
        If 
***.CheckBox2 = True Then
            ***.Range("A6") = y
            ***.Range("d6") = x
            
        ElseIf ***.CheckBox2 = False Then
            MsgBox "deleted"
            Application.OnUndo "Undo CheckBox2", "UndoCheckBox2"
End If
            
End Sub

Sub UndoCheckBox2()
***.Range("A6").ClearContents
***.Range("d6").ClearContents

End Sub

Would be happy about any comments or help
thanks!

sorry it should read
Dim x As String
Dim y As String