set control toolbox- optionbuttons

L

ludwigdv

Hi,



I want to set some (control toolbox-) Optionbuttons in a worksheet to
"True".

I retrieve the names of which Optionbuttons I want to set from another
sheet, and put those names into an array of Strings.



Finaly, can I loop the array and do a conversion from String to
Optionbutton, and set them one by one to "True"?

Here's my code so far:



Public Sub TestNVTlist()

Dim row, column As Integer

Dim NVTlist() As String

Dim NVT As String



row = 2

column = 2



NVT = Trim(Sheet6.Cells(row, column).Value)

Do While NVT <> ""

NVT = Trim(Sheet6.Cells(row, column).Value)

ReDim Preserve NVTlist(column - 1)

NVTlist(column - 1) = NVT

column = column + 1

Loop



Dim i As Integer

Dim myStr As String



For i = 1 To UBound(NVTlist) - 1

myStr = "Optionbutton" & Replace(NVTlist(i), ".", "_", , ,
vbTextCompare) & "_NVT"



'>>> HERE I WANT TO DO A CONVERSION FROM "myStr" TO
OPTIONBUTTON AND SET THE VALUE TO TRUE <<<



Next

End Sub



Thx.

Ludwig DV

Kaprijke, Belgium
 
P

Peter T

Hi Ludwig

The basic syntax -

ActiveSheet.OLEObjects("OptionButton1").Object.Value = True

Note though OptionButtons are like radio buttons, only one can be true.
However you could apply Null to multiple buttons.

If you want sets of optionbuttons use those from the forms menu and look at
"GroupName" in help. Otherwise maybe Checkboxes.

Regards,
Peter T
 
D

Dave Peterson

Check your other post.

Hi,

I want to set some (control toolbox-) Optionbuttons in a worksheet to
"True".

I retrieve the names of which Optionbuttons I want to set from another
sheet, and put those names into an array of Strings.

Finaly, can I loop the array and do a conversion from String to
Optionbutton, and set them one by one to "True"?

Here's my code so far:

Public Sub TestNVTlist()

Dim row, column As Integer

Dim NVTlist() As String

Dim NVT As String

row = 2

column = 2

NVT = Trim(Sheet6.Cells(row, column).Value)

Do While NVT <> ""

NVT = Trim(Sheet6.Cells(row, column).Value)

ReDim Preserve NVTlist(column - 1)

NVTlist(column - 1) = NVT

column = column + 1

Loop

Dim i As Integer

Dim myStr As String

For i = 1 To UBound(NVTlist) - 1

myStr = "Optionbutton" & Replace(NVTlist(i), ".", "_", , ,
vbTextCompare) & "_NVT"

'>>> HERE I WANT TO DO A CONVERSION FROM "myStr" TO
OPTIONBUTTON AND SET THE VALUE TO TRUE <<<



Next

End Sub



Thx.

Ludwig DV

Kaprijke, Belgium
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top