set control toolbox- optionbuttons

[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

 

[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

 

[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