ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Started something simple - Now really confused ?? (https://www.excelbanter.com/excel-programming/373563-started-something-simple-now-really-confused.html)

Bill Case

Started something simple - Now really confused ??
 
Hi;

I wanted to load a list of contols from a userform into a blank worksheet
for later printing. I want to use it as a personal checklist that I haven't
forgotten to fix or change somethings. I wrote a short procedure. Now I
have spent an inordinate amount of time trying to get the procedure to work.

What I want is something like:

sub controlslist()
List control names & TabIndexes but exclude lables
For userform 'NewMembForm'
Put each name and TabIndex side by side in separet cells
in a vertical list in a worksheet
End Sub

I am now working, using random attempts to make this work.
So I decided to stop and ask.

Regards Bill


Gary Keramidas

Started something simple - Now really confused ??
 
would something like this get you started?

Sub cntrls()
Dim i As Long
Dim Ctl As msforms.Control
i = 1
For Each Ctl In UserForm1.Controls
Range("A" & i).Value = Ctl.Name
i = 1 + 1
Next
End Sub

--


Gary


"Bill Case" wrote in message
...
Hi;

I wanted to load a list of contols from a userform into a blank worksheet
for later printing. I want to use it as a personal checklist that I haven't
forgotten to fix or change somethings. I wrote a short procedure. Now I
have spent an inordinate amount of time trying to get the procedure to work.

What I want is something like:

sub controlslist()
List control names & TabIndexes but exclude lables
For userform 'NewMembForm'
Put each name and TabIndex side by side in separet cells
in a vertical list in a worksheet
End Sub

I am now working, using random attempts to make this work.
So I decided to stop and ask.

Regards Bill





All times are GMT +1. The time now is 09:04 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com