Salve a tutti, sono nuovo del forum, chiedo aiuto per questo problema:
Con Excel 2003 popolo dinamicamente uno UserForm di OptionButton. Vorrei che senza premere un CommandButton, alla selezione di uno qualsiasi degli OptionButton si scatenasse un evento che mi deve andare a selezionare una certa cella sul foglio di lavoro.
Questo è il codice che attualmente uso. La parte dentro il commandButton1_click è quella che voglio che venga utilizzata dall'evento con l'optionbutton.
Grazie dell'aiuto.
Public OB As MSForms.OptionButton
Private Sub UserForm_Activate()
Dim lngNextTop As Long
Dim lngTitleBarHeight As Long
Const cTextBoxHeight As Long = 18
Const cTextBoxWidth As Long = 100
Const cGap As Long = 4
lngTitleBarHeight = Me.Height - Me.InsideHeight
lngNextTop = cGap
For n = 30 To 50 'Each field In rngFields
Set OB = Controls.Add("Forms.OptionButton.1", Sheets("Settimanale").Cells(n, 1).Address, True) '####OK
OB.Caption = Sheets("Settimanale").Cells(n, 1).Value '"bau" & n
OB.Left = cGap
OB.Top = lngNextTop
OB.Height = cTextBoxHeight
OB.Width = cTextBoxWidth
lngNextTop = lngNextTop + cTextBoxHeight + cGap
Me.Height = lngNextTop + lngTitleBarHeight
Next
Set txtBox = Nothing
End Sub
Private Sub CommandButton1_Click()
For n = 30 To 50 'Each Control In Me.Controls
If Me.Controls("$A$" & n).Value = True Then
Sheets("Settimanale").Range(Me.Controls("$A$" & n).Name).Select
MsgBox Me.Controls("$A$" & n).Name '#### OK
MsgBox Me.Controls("$A$" & n).Caption '#### OK
MsgBox Me.Controls("$A$" & n).Value '#### OK
End If
Next n
End