... mio primo post su iprogrammatori, quindi un caloroso ciao a tutti.
Veniamo alla domanda:
Utilizzo il seguente codice per effettuare un controllo sulle ChekBox selezionate, controllandolo con l'evento click di un CommandButton.
Volevo invece poter eseguire il medesimo ciclo ma all'evento click di una qualsiasi delle CheckBox presenti nel form.
Come posso fare?
Private Sub CommandButton3_Click()
Dim n As Integer
For n = 1 To 10
If Me.Controls("CheckBox" & n).Value = True Then
Me.Controls("textBox" & n) = Me.Controls("CheckBox" & n).Caption
Else
Me.Controls("textBox" & n) = ""
End If
Next
For n = 1 To 10
If Me.Controls("textBox" & n) <> "" Then
'magazzino = Me.Controls("TextBox" & n).Text
Sheets("Sheet1").Select
Range("H1000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = Me.Controls("TextBox" & n).Text
End If
Next
'inserisco il range nella textbox
Range("H2").Select
Dim Lem As String
Dim Cell As Object
Set Intervallo = Range(ActiveCell, ActiveCell.End(xlDown))
For Each Cell In Intervallo
Lem = Lem & Cell.Value & vbCr
Next
TextBox11.Text = Lem
End Sub
End Sub