Shortcut to increase date in a cell by one day (not cells underneath)

[michael7000]

Hi,


I'm looking for a shortcut to change a date in a cell to the next day.
So for instance; i have a cell with 01/Jan/2017 and I want to change the date in that cell to 02/Jan/2017 (not the cell underneath - I know about the drag function which will copy or increase the date in cells underneath).


Any ideas?


Thanks

 

[SpillerBD]

Basically invoke with a QAT or other button
You may want a Subtract_One variant to.

Sub Add_One()
Range("A1").Value = Range("A1").value+1
End Sub

 

[MrTeeny]

It's not too clear how the date in the cell is set at the moment, a formula.vba etc, and why you don't just change it manually. When and why are you changing the cell? Are you looking to have it update daily? If so just use the =Today() function which will enter today's date, if you wanted it to be a date in the past , say a week ago you just take away 7 days =TODAY()-7 and it'll always display a date a week from today's whenever you view it.

 

[JackDanIce]

You can try with a worksheet event with double click on any cell:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Value = Target.Value + 1
    Cancel = True
End Sub