Macro Short Shortcut?

ChrisHockley

New Member
Joined
Feb 6, 2017
Messages
23
All,

I have a VERY large document that I have to calculate margins in. With so many lines I created a Macro to assist (ctrl+w) by doing a goal seek function. I need one specific margin to make the product viable. This works much better but it's annoying that you can't just drag down. instead I get a hand cramp as I hit down arrow and ctrl+w a 1000 times each.

Is there any way to assign a key to this so say F1 (or other) = ctrl+w

down then one button would be so much easier.

thanks for any help!

chris
 
Last edited:

ChrisHockley

New Member
Joined
Feb 6, 2017
Messages
23
Is this what you are looking for?

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+w
'
ActiveCell.Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveCell.GoalSeek Goal:=0.47, ChangingCell:=ActiveCell.Offset(0, 2).Range( _
"A1")
End Sub
 

My Aswer Is This

Well-known Member
Joined
Jul 5, 2014
Messages
16,049
Are you want to enter some value in 1000 cells in column A

Not sure what Goal Seek is
 

ChrisHockley

New Member
Joined
Feb 6, 2017
Messages
23
macro is fine.... cutting and pasting it requires hitting ctrl+w... just thought there has to be a way to paste it with one button instead of two is all.
 

Forum statistics

Threads
1,077,855
Messages
5,336,790
Members
399,102
Latest member
chudson1

Some videos you may like

This Week's Hot Topics

Top