Assigning a hotkey to run only from a given range
 

We need to ensure that a hot key will only activate from a given range (in
this case any cell in Column B). The code below shows 2 attempts (1 attempt
is commented out). Any help on this would be greatly appreciated!

ActiveCell.Select
If ActiveCell = "controlPrange" Then
'If Selection.Locked = True Then
'Exit Sub
ActiveCell.Offset(rowoffset:=0, columnoffset:=37).Activate
Selection.Copy
ActiveCell.Offset(rowoffset:=0, columnoffset:=-26).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'Copy from Optimum Position Size Formula cell to Optimum Position Size cell
ActiveCell.Offset(rowoffset:=0, columnoffset:=27).Activate
Selection.Copy
ActiveCell.Offset(rowoffset:=0, columnoffset:=-29).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(rowoffset:=0, columnoffset:=-9).Activate
Else
Exit Sub
End If

Assigning a hotkey to run only from a given range
 

Perfect! Thanks so much Otto!

"Otto Moehrbach" wrote:

Not sure what you want. I'll assume that you want your code to run only if
the active cell is in Column B. Something like this might work for you.
HTH Otto
Sub DoIt
If Not Intersect(ActiveCell, Columns("B:B")) Is Nothing Then
'Your code here
End If
End Sub
"Andyjim" wrote in message
...
We need to ensure that a hot key will only activate from a given range (in
this case any cell in Column B). The code below shows 2 attempts (1
attempt
is commented out). Any help on this would be greatly appreciated!

ActiveCell.Select
If ActiveCell = "controlPrange" Then
'If Selection.Locked = True Then
'Exit Sub
ActiveCell.Offset(rowoffset:=0, columnoffset:=37).Activate
Selection.Copy
ActiveCell.Offset(rowoffset:=0, columnoffset:=-26).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'Copy from Optimum Position Size Formula cell to Optimum Position Size
cell
ActiveCell.Offset(rowoffset:=0, columnoffset:=27).Activate
Selection.Copy
ActiveCell.Offset(rowoffset:=0, columnoffset:=-29).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(rowoffset:=0, columnoffset:=-9).Activate
Else
Exit Sub
End If

Assigning a hotkey to run only from a given range
 

Thanks for the feedback. Otto
"Andyjim" wrote in message
...
Perfect! Thanks so much Otto!

"Otto Moehrbach" wrote:

Not sure what you want. I'll assume that you want your code to run only
if
the active cell is in Column B. Something like this might work for you.
HTH Otto
Sub DoIt
If Not Intersect(ActiveCell, Columns("B:B")) Is Nothing Then
'Your code here
End If
End Sub
"Andyjim" wrote in message
...
We need to ensure that a hot key will only activate from a given range
(in
this case any cell in Column B). The code below shows 2 attempts (1
attempt
is commented out). Any help on this would be greatly appreciated!

ActiveCell.Select
If ActiveCell = "controlPrange" Then
'If Selection.Locked = True Then
'Exit Sub
ActiveCell.Offset(rowoffset:=0, columnoffset:=37).Activate
Selection.Copy
ActiveCell.Offset(rowoffset:=0, columnoffset:=-26).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'Copy from Optimum Position Size Formula cell to Optimum Position Size
cell
ActiveCell.Offset(rowoffset:=0, columnoffset:=27).Activate
Selection.Copy
ActiveCell.Offset(rowoffset:=0, columnoffset:=-29).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(rowoffset:=0, columnoffset:=-9).Activate
Else
Exit Sub
End If