I have a form where I have 5 buttons that all will do the same thing just to different sections of the form, I would like to simplify my code by only having one routine for all five. My only sticking point is that I am not sure how to detect which button of the five was used. Basically each button will clear a small group of cells next to that button.
Is there a way to detect the name of the form control that initiated the code to be ran?
What do you mean by a form?
Userform?
Worksheet with buttons?
a "Form Button Control" from the Forms Toolbar it is placed on a normal worksheet.
Well you should be able to use Application.Caller to get the name of the button that's been pressed and act accordingly.
I had not heard of that before, thanks I will research how to use that.
Hello Warderbrad,
The Application.Caller will return a string which is the name of the Forms Button that was clicked. Using a Select Case statement is the easiest and most efficient method of selecting the code to be run. Replace the button names if yours are different.
To run the same code if the button matches any 1 of the 5, use this example...
Sub ButtonMacro() Dim Btn As String Btn = Application.Caller Select Case Btn Case Is "Button 1" 'Place Button 1's code here Case Is "Button 2" 'Place Button 2's code here Case Is "Button 3" 'Place Button 3's code here Case Is "Button 4" 'Place Button 4's code here Case Is "Button 5" 'Place Button 5's code here End Select End Sub
Sincerely,Sub ButtonMacro() Dim Btn As String Select Case Btn Case Is "Button 1", "Button 2", "Button 3", "Button 4", "Button 5" 'Place code here End Select
Leith Ross
Last edited by Leith Ross; 08-05-2007 at 04:24 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Warderbrad 
Register To Reply
Bookmarks