Erdin? E. Ka
11-11-2006, 04:51 PM
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:
Sub KDV()
If ActiveCell.Value <> "" Then ActiveCell.Value = (ActiveCell.Value / 1.18)
End Sub
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:
Sub Auto_Open()
Application.OnKey "^i", "KDV" ' Ctrl & i combination
End Sub
Sub Auto_Close()
Application.OnKey "^i", ""
End Sub
Thank you very much.
I want to if activecell is not empty then activecell / 1,18 to activecell.
I can do it via directly runnig the codes below:
Sub KDV()
If ActiveCell.Value <> "" Then ActiveCell.Value = (ActiveCell.Value / 1.18)
End Sub
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:
Sub Auto_Open()
Application.OnKey "^i", "KDV" ' Ctrl & i combination
End Sub
Sub Auto_Close()
Application.OnKey "^i", ""
End Sub
Thank you very much.