Controllo ciclo evento ChekBox

di il
1 risposte

Controllo ciclo evento ChekBox

... 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

1 Risposte

  • Re: Controllo ciclo evento ChekBox

    Sono quasi riuscito a fare quello che volevo... ancora qualche dettaglio, e poi condivido la soluzione che ho adottato.

    Però fatemelo dire.... non é che ci si muove molto da queste parti. Manco un benvenuto!?!?!?! Che é siete tutti stravacati sulla spiaggia???? beati voi.... io devo aspettare ancora 18 giorni, poi mi tuffo a mare pure io.

    Buone vacanze!
Devi accedere o registrarti per scrivere nel forum
1 risposte