Solved: Problem in Application.OnKey Method

[Erdin? E. Ka]

Hi,

I want to if activecell is not empty then activecell / 1,18 to activecell.
I can do it via directly runnig the codes below:

[vba]Sub KDV()
If ActiveCell.Value <> "" Then ActiveCell.Value = (ActiveCell.Value / 1.18)
End Sub[/vba]

But my problem is, when i try to run KDV macro via keaborad shortcut for CTRL and i doing noting.

What should i do for assign KDV macro to a binary keyboard shortcut combination? For example, CTRL and F12 or CTRL and G... something like this...

My ThisWorkbook codes as below:

[vba]
Sub Auto_Open()
Application.OnKey "^i", "KDV" ' Ctrl & i combination
End Sub
[/vba]

[vba]
Sub Auto_Close()
Application.OnKey "^i", ""
End Sub
[/vba]

Thank you very much.

[Erdin? E. Ka]

Now, i solved my problem. Thanks.

[SamT]

How did you solve it?
SamT

[Erdin? E. Ka]

I moved Auto_Open and Auto_Close procedures to Module1. Then i closed Excel application. And re opened the book. And i tried again to run. Finally it worked well.

[Ken Puls]

Hi Erdinc,

For reference, Auto_Open and Auto_Close are old syntaxs that have been hanging around a while. Common practice is to use Workbook_Open and Workbook_Close events that are located in the ThisWorkbook module.

I don't believe that there is any ill effect by choosing either way, but just thought I'd mention it.

[Bob Phillips]

For reference, Auto_Open and Auto_Close are old syntaxs that have been hanging around a while. Common practice is to use Workbook_Open and Workbook_Close events that are located in the ThisWorkbook module.

I don't believe that there is any ill effect by choosing either way, but just thought I'd mention it.

Yes there is.

Auto_Open doesn't run if opened from within another piece of code or automation.

[Ken Puls]

Ah, well there you go. Thanks, Bob!

I've never actually had the need to structure a solution to make use of that yet. Good to know.