insert value in cell

[wfar]

I want to either input a date value in column C and ,or run a macro that will copy the last filled cells date and copy this - 1 day to the cell i have selected
I would like to use the onkey event to run this macro when required

 

[Yogi Anand]

On 2002-10-04 18:43, wfar wrote:
I want to either input a date value in column C and ,or run a macro that will copy the last filled cells date and copy this - 1 day to the cell i have selected
I would like to use the onkey event to run this macro when required

Hi wfar:

I am going to make an assumption here. I am going to assume we would be operating on cell c2 -- that means whenever I click on cell C2 (with the associated OnKey being enabled), the value in cell C2 will be reduced by 1. I have used the CTRL and + key combinations (i.e. CTRL-SHIFT-+)

There are three subs -- the first sub houses the procedure that is executed on actuating the OnKey method; second sub is to enable the OnKey Method, the third sub is to disable the OnKey Method

Sub InsertDateMinus1()
[c2] = [c2] - 1
End Sub

Sub yOnKeyEvent1()
Application.OnKey "^{+}", "InsertDateMinus1"
End Sub

Sub yOnKeyEvent1Disable()
Application.OnKey "^{+}"
End Sub

Regards!

Yogi