using a variable to cycle through controls.

[StevenD]

Hi,

I have 4 command buttons.

I would like to get what the caption is on each command button using a for next loop.

The command buttons are named Answer1, Answer2,Answer3,Answer4.

I was trying to use the below code but it won't work.

Dim Caption(1 to 4) As String
Dim Number As Integer

For Number = 1 to 4
      Caption(Number)=Userform1.Answer(Number).Caption
Next Number

Any ideas on how I can achieve this?

 

[erik.van.geit]

Erik

Why do you have the +1 within the parentheses?

when there are 4 buttons, 3 are not correct
let's assume button1 is correct
you will have
arrCaption(0) = answer2
arrCaption(1) = answer3
arrCaption(2) = answer4

valRnd = Int(Rnd * UBound(arrCaption) + 1)

int(rnd * 2 + 1) will generate 1 or 2
int(rnd * (2 + 1) will generate 0, 1 or 2

 

[erik.van.geit]

Erik

I'm still checking out the code I posted.

It's actually still running, sorry about the 'white lie', but it does take a while for 20000*14 iterations.

But I have been checking in on it occasionally and all I'm getting in column B are 2s.

PS J is currently at 11250.

you are counting the enabled buttons

If ctl.Enabled Then X = X + 1

there are 2 buttons enabled

 

[Norie]

Erik

The code I posted is meant to work with however many buttons there are, not just 4.

I've not been able to test your code as I'm still running that large loop.

Just looking at your code I thought that it would only work if it was always the 4th button that matched, but since I've been unable to test I may be wrong.

The original request from the OP was how to loop through controls on a userform, and I think I covered that with the first code I posted.

He then made another request regarding enabling/disabling buttons.

Now I'm still a little confused as to what the OP's goal is but I just had the feeling that it might more than 4 command buttons involved, so that's why I posted code that should work with all the command buttons on a userform.

 

[Norie]

erik

Yes I'm counting the enabled buttons.

As far as I know what the OP wants to do is this.

1 Enable the button that has a caption that matches what's in A1.

2 Enable one other button, randomly, from the rest of the buttons that don't have a caption that matches A1.

Perhaps I'm missing something, but that's the way I've been interpreting things, but then again that's me.

 

[erik.van.geit]

Hi, StevenD,

sorry if we are confusing you
sometimes we hijack a thread to discuss about the way to treat an issue
we are just showing you we can argue like little children which should already be in bed
You can take my or Nories last code (there could be still a next version )

EDIT: sentence deleted to avoid confusion
regards to all,
Erik

 

[Norie]

Erik

That's incorrect as far as I can see.

As I posted I modified the code so the array had a base of 1 rather than the default 0.

The problem was not the last button it was the first one.

 

[erik.van.geit]

what I pasted in my project is not the same as here, perhaps there was en edit after I copied or else I made a paste-error

You are correct about my last remark
added line to check

Cells(Rows.Count, 2).End(xlUp)(2) = Me.Controls(arrCaption(valRnd)).Name

 

[Legacy 98055]

 

[erik.van.geit]

little children

 

[StevenD]

Thanks to the both of you for your time.

I will try out both and see which suits the application best. I will let you know.