Comments on: Passing Arguments Through OnAction

By: Federico

Federico — Mon, 02 Mar 2009 15:01:00 +0000

How can I pass to the .onaction a string indicating a form (included in my main.xls project) to be opened ?

Thanks

By: Robert Eversman

Robert Eversman — Thu, 05 Feb 2009 18:17:00 +0000

That's it thanks for the solution!

If I wasn't a complete hack I'm sure I could have found a way not require a sub for each check box...

But due to time constraints that's not the way it went down.

thanks for your time!

By: Dick Kusleika

Dick Kusleika — Thu, 05 Feb 2009 14:32:00 +0000

Your expectation doesn't have any double quotes, so don't put any in your code.

.OnAction = "'Close" & WOrderNum & "'"

Are you creating a separate sub for every checkbox? Surely you can just use one sub for all the checkboxes.

By: Robert Eversman

Robert Eversman — Wed, 04 Feb 2009 20:00:00 +0000

HELP PLZ!

I am passing a variable string through an .OnAction I get everything to come out ok EXCEPT I have extra quotation marks around the variable!

I expect to see the following title for the Sub Name: MyFile.xls!'Close200002'
But in stead I get: MyFile.xls!'Close"200002?'
I am unable to get rid of the extra quotation marks (which are an invalid Sub title, otherwise I wouldn't have a problem...)
When I try to remove a set of quotation marks I get: MyFile.xls!'Close" & WOrderNum & "'
Which is obviously not what I want since it isn't taking the variable for the file name.

I'm not a VB Pro just a hack, so plz excuse the code. I'm using excel 2007 and this is only a small portion of the code I believe to be applicable.

Sub Try0

Dim WOrderNum As String

Range("P8").Select
ThisWorkbook.Names.Add Name:="WOrderNum", RefersTo:="=$P$8", Visible:=True

WOrderNum = Range("WOrderNum") ' In this case the WOrderNum is 200002 referenced from cell P8

Range("Q8").Select ' INSERT CHECKBOX SUB FOR CLOSING
ActiveSheet.CheckBoxes.Add(1850, 201, 112, 10).Select
With Selection
.Name = M8
.LinkedCell = "L8"
.Value = xlOff
.Characters.Text = "Check Box to CLOSE WO"
.OnAction = "'Close""" & WOrderNum & """'" '<=---- This is where problem is believed to exist!
Range("Q8").Select
End With

'Down here later in the code I have the Macro record a new macro

End Sub

This part of the program is adding check boxes for Work Orders, which are then clicked to close the work order. The sub that is executed .OnAction closes the work order. (a very annoying sub to write since I couldn't find a great way to have a macro write another macro...)

Please tell me if you have any ideas as I feel like I've tried all the quotation mark combos that can possibly exist!

thanks.

By: Tom West

Tom West — Thu, 25 Sep 2008 17:40:00 +0000

How do you clear the OnAction property? Settign it to “” or vbNullString doesn’t end up with thinsg as they were before the OnAction property was doen in the first place.

By: Rine

Rine — Wed, 23 Jul 2008 10:32:00 +0000

Sry, made a mistake at the button name. :p

Private Sub Main_Click()

Sheets.Add
ActiveSheet.Buttons.Add(144, 38.25, 57, 21).Select
Selection.OnAction = "DisplayMessage"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Display Msg"
With Selection.Characters(Start:=1, Length:=11).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveSheet.Range("A1").Select
End Sub

By: Rine

Rine — Wed, 23 Jul 2008 10:20:00 +0000

Help Pls!

I got the following msg when I tried running the second command button that is created together with the new sheet when i clicked on the first command button.

"The macro 'main.xls!DisplayMessage' cannot be found

I have extracted the following code:

Private Sub CommandButton1_Click()

Sheets.Add
ActiveSheet.Buttons.Add(144, 38.25, 57, 21).Select
Selection.OnAction = "DisplayMessage"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Display Msg"
With Selection.Characters(Start:=1, Length:=11).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveSheet.Range("A1").Select
End Sub

I really wish to know what is the error that stoping it from executing the code.

By: Amolin

Amolin — Tue, 01 Apr 2008 01:58:00 +0000

Sheet1.Shapes(1).OnAction = "'" & "ShowAnArgument """ & sArg & """'"

Can be replaced by:

Sheet1.Shapes(1).OnAction = "ShowAnArgument """ & sArg & """"

By: Tim

Tim — Sun, 30 Mar 2008 06:31:00 +0000

Interesting note... Excel doesn't like it if you are passing exclamation points.

Example that works:
.OnAction = "'ShowParm ""x""'"

Example that doesn't:
.OnAction = "'ShowParm ""!""'"

By: Tushar Mehta

Tushar Mehta — Tue, 18 Sep 2007 13:05:00 +0000

Mcfly: I don't understand what you mean by the macro must be located in a module since every sub/function must be in some kind of a module.

Also, in a test with 2007 a few minutes ago, I did not have to specify the module name as you apparently had to. Typically, that is required only when one has routines with the same name in different modules. And, that need to uniquely specify which routine one means has always been the case.