Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Assigning Variable Range | Excel Discussion (Misc queries) | |||
Assigning range to variant | Excel Programming | |||
Assigning range to variant | Excel Programming | |||
Assigning Formula to a Range | Excel Programming | |||
Assigning a Range to | Excel Programming |