Macro Short Shortcut?

[ChrisHockley]

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

 

[My Aswer Is This]

Show us your Macro

 

[ChrisHockley]

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]

Are you want to enter some value in 1000 cells in column A

Not sure what Goal Seek is

 

[ChrisHockley]

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.

 

[MARK858]

Not sure what Goal Seek is

https://excelchamps.com/blog/goal-seek/


https://powerspreadsheets.com/excel-goal-seek-vba/

https://www.ablebits.com/office-addins-blog/2018/09/05/use-goal-seek-excel-what-if-analysis/