Syntax for returning Optionbutton (Userform) caption (Error 438 with ctr.value)

Thanks a lot Pike. Your code worked.

Do you know why ctr.value returned an error? Trying to learn so that I don't make the same mistake again.

Thanks
Asha

If you use optionbuttons in a userform, and label15 is also in this userform

Private Sub Label15_Click()
  For Each ctr In Frame1.Controls
    If TypeName(ctr)="Optionbutton" and ctr.Value = True Then
      sheets(1).range("A3")=ctr.caption
      exit for
    End if
  Next
End Sub

If you use optionbuttons (Active-X-controls) in a sheet, and label15 is also in this sheet

Private Sub Label15_Click()
  For Each ctr In Frame1.Controls
    If TypeName(ctr)="Optionbutton" and ctr.Object.Value = True Then
      sheets(1).range("A3")=ctr.Object.caption
      exit for
    End if
  Next
End Sub

Thanks Pike & snb for your responses.

I am not familiar with Debug.Print - I will look it up for future use.

Here's an interesting (atleast for me!) observation. The code I initially had and that provided by snb do not work if the frame contains a label control. For whatever reason, if there is no label control, ctr.value does not return an error.

I have attached a sample file to demonstrate this.

Any ideas why this is the case?

Thanks again for your support
Asha

Originally Posted by romperstomper

Not all controls have a Value property; Labels do not for instance, hence the error with the original version. If you move the Value check so that it is after (and separate from) the check for the control's type (which is effectively what Pike did) then you don't have the problem.

Hi Everybody! I just registered and I am having an issue similar to this one!

I am trying to change an userform caption... the code is like this:

dim cld_edt as string
dim obj_cld as object
...
...
                Set obj_cld = ThisWorkbook.VBProject.VBComponents.Item(cld_edt)
                    With obj_cld.Properties
                        .Caption = CStr(country) & " - Campaign Period"
                    End With

So basically I have a string variable with the name of the object I am changing the caption. After that I am adding conutry name of that particular userform. But the error is the same: Object doesn't support this property or method

Anyone now how to deal with it?

Thanks in advance and hope to share experiences and knowledge here!

Cheers,
Rodrigo

Originally Posted by romperstomper

Hi, and welcome to the forum!

Unfortunately:

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread.

Once you do that, I'm sure you'll get a prompt answer.

I am sorry about that! I will open a new one right now!

Thanks for the advice!