Cfrgtkky

I have generated the radio buttons with the help of the answer to another question, How to set an automatically generated radio button to true in VBA?.

My requirement is to set the automatically generated Option button to 'True' When there is a value 'x' in another sheet. Please refer the picture.

Figure 1: The source to check the value,

Figure 2: The sheet to which the Mark 'x' should be reflected as True.

The Radio buttons that are generated are as Indexed as OB2_2 for the option button in 2 row and 2 coloumn.

Here is the code with which I have been trying,

Private Sub AddOptionButtons(ByRef TargetRange As Range)



Dim m As Variant

m = Sheets("ALLO").Range("D23").Value + 1



Sheets("Final").Range("A2:A" & m).Copy Destination:=Sheets("Int_Result").Range("A2:A" & m)



Dim oCell As Range

For Each oCell In TargetRange

    oCell.RowHeight = 20

    oCell.ColumnWidth = 6

    Dim oOptionButton As OLEObject

    Set oOptionButton = TargetRange.Worksheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Left:=oCell.Left + 1, Top:=oCell.Top + 1, Width:=15, Height:=18)

    oOptionButton.Name = "OB" & oCell.row & "_" & oCell.Column

    oOptionButton.Object.GroupName = "grp" & oCell.Top





Next

Call OB2_Click(oCell)



End Sub



Sub OB2_Click(oCell)



Dim col, ro, m As Variant

Dim Shap As Shape

m = Sheets("ALLO").Range("D23").Value + 1



For Each Shap In Sheets("Int_Result").Shapes

    For ro = 2 To m Step 1

        For col = 1 To 13 Step 1

            If Sheets("Final").Cells(ro, col).Value = "" Then

               Sheets("Int_Result").Shapes(ro, col).ControlFormat.Value = False

            Else

               Sheets("Int_Result").Shapes(ro, col).ControlFormat.Value = True

            End If

        Next col

    Next ro

Next Shap



End Sub

When I tried this Code, I got an Error Message " Object variable or With block variable not set" or "Wrong number of arguments or Invalid Property assignment". Guide me to access the automatically generated Radio buttons.

Please, Help me in this regard. Thank you in advance!

You need to use

 Sheets("Int_Result").OLEObjects("OB2_2").Object.Value = True

Set loop not for shapes, but normal to last row and last column.

So for example:

Dim oCell As Range

Dim LastCell As Range

For Each oCell In TargetRange

    oCell.RowHeight = 20

    oCell.ColumnWidth = 6

    Dim oOptionButton As OLEObject

    Set oOptionButton = TargetRange.Worksheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Left:=oCell.Left + 1, Top:=oCell.Top + 1, Width:=15, Height:=18)

    oOptionButton.Name = "OB" & oCell.Row & "_" & oCell.Column

    oOptionButton.Object.GroupName = "grp" & oCell.Top

    Set LastCell = oCell



Next

Call OB2_Click(LastCell)

Sub OB2_Click(oCell as Range)



Dim col As Long, ro As Long

dim m as long, k as long



col = oCell.Column

ro = oCell.Row



For m = 2 to ro

    For k = 2 to col

         If Sheets("Final").Cells(m, k).Value = "" Then

             Sheets("Int_Result").OLEObjects("OB" & m & "_" & k).Object.Value = False

         Else

             Sheets("Int_Result").OLEObjects("OB" & m & "_" & k).Object.Value = True

         End If

    Next k

Next m

End sub