Condividi:        

Excel 2010 eliminare riga dalla ListBox

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel 2010 eliminare riga dalla ListBox

Postdi pacifico » 30/01/16 16:15

Gent.mi

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.
pacifico
Utente Senior
 
Post: 199
Iscritto il: 05/10/06 16:20

Sponsor
 

Re: Excel 2010 eliminare riga dalla ListBox

Postdi Anthony47 » 02/02/16 02:59

Il codice e' palesemente monco, perche' risulta indefinito sia Sh che lRiga; quindi devo pensare che sia stato copiato male.
Poi senza sapere come viene "caricato" il combobox possiamo solo fare danni...

Quindi il mio suggerimento e' che pubblichi un file di esempio che contenga anche la form e il suo codice. Per come fare guarda qui: viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Excel 2010 eliminare riga dalla ListBox":


Chi c’è in linea

Visitano il forum: Nessuno e 22 ospiti