Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identify which button called the userform
I have 3 userforms (frmCC, frmEC, & frmPC) that have a particular button
Named "btnReveals". This button calls another userform named "frmReveals". How can I identify which of the 3 userforms (frmCC, frmEC, & frmPC) have called frmReveals? For example, if frmCC calls frmReveals, I want to disable some controls on frmReveals. If frmPC calls frmReveals, I want to disable a differenct set of controls. This is what I had in mind: ' frmReveals Private Sub UserForm_Initialize() ' disable contols on Reveals userform depending on which button calls it Select Case Application.Caller Case Is = "Button 178" ' frmCC button ' disable non applicable reveal controls Case Is = "Button 179" ' frmEC button ' disable non applicable reveal controls Case Is = "Button 180" ' frmPC button ' disable non applicable reveal controls End Sub Thanks for your help in Advance! -- Cheers, Ryan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Identify which button called the userform
I'd create a public variable in a General module (not in any userform module)
and just set it before you load the frmReveals userform Public WhichFrmName as string .... In the 3 different forms button click event whichfrmname = me.name me.hide '??? frmreveals.show then I could use whichfrmname in the _initialize event of frmreveals. RyanH wrote: I have 3 userforms (frmCC, frmEC, & frmPC) that have a particular button Named "btnReveals". This button calls another userform named "frmReveals". How can I identify which of the 3 userforms (frmCC, frmEC, & frmPC) have called frmReveals? For example, if frmCC calls frmReveals, I want to disable some controls on frmReveals. If frmPC calls frmReveals, I want to disable a differenct set of controls. This is what I had in mind: ' frmReveals Private Sub UserForm_Initialize() ' disable contols on Reveals userform depending on which button calls it Select Case Application.Caller Case Is = "Button 178" ' frmCC button ' disable non applicable reveal controls Case Is = "Button 179" ' frmEC button ' disable non applicable reveal controls Case Is = "Button 180" ' frmPC button ' disable non applicable reveal controls End Sub Thanks for your help in Advance! -- Cheers, Ryan -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Private Sub - Called from Userform | Excel Discussion (Misc queries) | |||
Retaining Values in Userform when called a second time | Excel Programming | |||
User Defined Function - Can we identify the cell it's called from | Excel Programming | |||
Passing a value from 1 userform to another when you dont know who called it. | Excel Programming | |||
Why does this code not create a button when called??? | Excel Programming |