Apply vba code to multiple userform objects
 

Hello,

Allthough I've only recently started to program vba in excel, I suspec
there must be an easy way to apply vba code to multiple objects in
userform. Could anyone help me with this? I would like to 'group' th
lines in the example below:

ProjectenForm.EgKbA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgKmA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgKdA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgHbA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgHmA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgHdA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgKbA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgKmA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgKdA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgHbA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgHmA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgHdA.BackStyle = fmBackStyleOpaque

Greetings,
Jori

--
sjoopi
-----------------------------------------------------------------------
sjoopie's Profile: http://www.excelforum.com/member.php...fo&userid=1611
View this thread: http://www.excelforum.com/showthread.php?threadid=27557

Apply vba code to multiple userform objects
 

Use the controls collection. Something like this:

For every control on a form...
For Each C in Me.Controls

Next C

For specific controls with similar names

For nCounter = 1 to 10

Controls("txt" & nCounter).text = "test"

Next nCounter

for specific controls
vList = Array("txtA", "cbA","lstA")
For Each vCtl in Vlist
controls(vctl).enabled = true
Next vCtl

--
Robin Hammond
www.enhanceddatasystems.com
"sjoopie" wrote in message
...

Hello,

Allthough I've only recently started to program vba in excel, I suspect
there must be an easy way to apply vba code to multiple objects in a
userform. Could anyone help me with this? I would like to 'group' the
lines in the example below:

ProjectenForm.EgKbA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgKmA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgKdA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgHbA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgHmA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgHdA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgKbA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgKmA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgKdA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgHbA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgHmA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgHdA.BackStyle = fmBackStyleOpaque

Greetings,
Joris


--
sjoopie
------------------------------------------------------------------------
sjoopie's Profile:
http://www.excelforum.com/member.php...o&userid=16110
View this thread: http://www.excelforum.com/showthread...hreadid=275576

Apply vba code to multiple userform objects
 

Try this:

For Each ctl In ProjectenForm.Controls
ctl.BackStyle = fmBackStyleOpaque
Next

HTH,
Nikos

"sjoopie" wrote in message
...

Hello,

Allthough I've only recently started to program vba in excel, I suspect
there must be an easy way to apply vba code to multiple objects in a
userform. Could anyone help me with this? I would like to 'group' the
lines in the example below:

ProjectenForm.EgKbA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgKmA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgKdA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgHbA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgHmA.BackStyle = fmBackStyleOpaque
ProjectenForm.EgHdA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgKbA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgKmA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgKdA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgHbA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgHmA.BackStyle = fmBackStyleOpaque
ProjectenForm.MgHdA.BackStyle = fmBackStyleOpaque

Greetings,
Joris


--
sjoopie
------------------------------------------------------------------------
sjoopie's Profile:
http://www.excelforum.com/member.php...o&userid=16110
View this thread: http://www.excelforum.com/showthread...hreadid=275576