Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Button in userform
I store a list of documents in an array called Hitfiles. The size of this array may vary. I create buttons in an userform using VBA like this. (I leave out info like position of button) For i = LBound(Hitfiles) To UBound(Hitfiles) With .Controls.Add("Forms.CommandButton.1", "Button" & i, True) .Caption = Filename .Name = "button" & i End With If array has 5 elements, then 5 buttons called Button1, Button2....Button5 will be created in the userform. (Array is size 1 to 5) I want document 1 to open when I press button 1, document 2 to open when I How can I run a macro from the buttons I have just created? Thanks! rgds Jarle |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Button in userform
I think I can solve this with tip from
http://www.j-walk.com/ss/excel/tips/tip44.htm All buttons start the same macro - openfile. Filename to open decided by button no and document array. Jarle skrev: I store a list of documents in an array called Hitfiles. The size of this array may vary. I create buttons in an userform using VBA like this. (I leave out info like position of button) For i = LBound(Hitfiles) To UBound(Hitfiles) With .Controls.Add("Forms.CommandButton.1", "Button" & i, True) .Caption = Filename .Name = "button" & i End With If array has 5 elements, then 5 buttons called Button1, Button2....Button5 will be created in the userform. (Array is size 1 to 5) I want document 1 to open when I press button 1, document 2 to open when I How can I run a macro from the buttons I have just created? Thanks! rgds Jarle |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
USERFORM X BUTTON | Excel Programming | |||
OK Button in UserForm | Excel Programming | |||
Looping procedure calls userform; how to exit loop (via userform button)? | Excel Programming | |||
Userform button | Excel Programming | |||
Use the X button on a userform | Excel Discussion (Misc queries) |