Salve a tutti.
Volevo chiedervi se e' possibile inserire su ogni riga di una listbox un checkbox.
Grazie
Moderatori: Anthony47, Flash30005
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then
Sheets("Foglio3").Range(.RowSource).Range("A1").Offset(I, -1).Value = "X"
Else: Sheets("Foglio3").Range(.RowSource).Range("A1").Offset(I, -1).ClearContents
End If
.Selected(I) = False '<< Vedi testo
Next I
End With
If .Selected(I) Then
if Sheets("Foglio3").Range(.RowSource).Range("A1").Offset(I, -1).Value = "X" Then
Sheets("Foglio3").Range(.RowSource).Range("A1").Offset(I, -1)ClearContens
Else: Sheets("Foglio3").Range(.RowSource).Range("A1").Offset(I, -1).Value= "X"
End If
End If
Ho provato, ma ho un errore in questa riga:
- Codice: Seleziona tutto
Sheets("Bf0109").Range(.RowSource).Range("A1").Offset(i, -1).Value = "X"
errore 1004: errore definito dall'applicazione o dall'oggetto.
Sheets("Bf0109").Range(Range(.RowSource).Address).Range("A1").Offset(I, -1).Value = "X"
Torna a Applicazioni Office Windows
Trasferire valori textbox in listbox in tre colonne Autore: WCB |
Forum: Applicazioni Office Windows Risposte: 4 |
Ciclo FOR con Valore delle CheckBox Autore: Valerio.Marchese |
Forum: Applicazioni Office Windows Risposte: 11 |
vba excel contare righe selezionate nella listbox Autore: macio66 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visualizzare dati in listbox prima di inserirli Autore: BG66 |
Forum: Applicazioni Office Windows Risposte: 12 |
Visitano il forum: Nessuno e 41 ospiti