In un foglio di lavoro ho inserito circa 100 voci che vengono riportati in una listbox
presente nella UserForm.
Selezionando una voce dalla listbox vorrei cancellare sia dalla listbox che nel foglio di
lavoro.
Il codice che ho inserito:
- Codice: Seleziona tutto
Private Sub CmdCancella_Click()
Dim lng As Long
Dim lRisposta As Long
lRisposta = MsgBox("Eliminare la riga selezionata?", vbYesNo + vbQuestion,
"Attenzione")
If lRisposta = vbYes Then
With sh
For lng = lRiga To 4 Step -1
If .Range("B" & lng).Value = _
Me.ListBox1.List(Me.ListBox1.ListIndex, 0) Then
.Rows(lng).EntireRow.Delete
Exit For
End If
Next
End With
End If
RigaChiusura:
Exit Sub
RigaErrore:
If Err.Number = 381 Then
MsgBox "Selezionare la riga da eliminare", vbOKOnly + vbInformation, "Attenzione"
Else
MsgBox Err.Number & vbNewLine & Err.Description
End If
Resume RigaChiusura
End Sub
La cancellazione avviene e cancella l'ultima voce inserita della ListBox e non la voce
selezionata. Gentilmente se potete correggere il codice.
Anticipatamente ringrazio.
Domenico.