Salve in alleagato c'è un file dove è presente una listbox dove carica un elenco presente nel foglio con possibilità di filtrare i nomi tramite una textbox.
Come faccio ad eliminare con un pulsante degli item filtrati sia dalla listbox che dal foglio dove sono presenti?
Grazie
Eliminare Item + riga foglio
Eliminare Item + riga foglio
- Allegati
-
- prova filtro.ods
- (14.96 KiB) Scaricato 175 volte
Open office 3.1 Windows 7
Re: Eliminare Item + riga foglio
per eliminare la riga dal foglio
per il resto devi rileggere daccapo i dati rimasti come hai già fatto, te la cavi con una sola istruzione
Codice: Seleziona tutto
Sub List_Delete
Dim Sheet
Dim MyCounter
Sheet = ThisComponent.Sheets(0)
MyCounter = Arr(oDialogo1.getControl("ListBox1").selectedItemPos)
Sheet.Rows.removeByIndex(MyCounter,1)
End Sub
Ultima modifica di patel il giovedì 2 marzo 2017, 18:27, modificato 1 volta in totale.
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Re: Eliminare Item + riga foglio
Filtrati o selezionati??Luka2017 ha scritto:Come faccio ad eliminare con un pulsante degli item filtrati sia dalla listbox che dal foglio dove sono presenti?
Grazie
con questa elimini quelli filtrati e aggiorni la listbox
Codice: Seleziona tutto
Sub EliminaItem
If MsgBox ("vuoi eliminare gli item ? " , 33, "Elimina item") = 2 Then Exit Sub
For i = Ubound(Arr) To 0 Step - 1
Sheet.Rows.removeByIndex(Arr(i), 1)
next i
Call Option_bc
End Sub
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
Openoffice 4.1.13 su windows 10
Re: Eliminare Item + riga foglio
Ma invece per far apparire tutto l'elenco nella listbox senza che scrivo una lettera nella textbox e poi la cancello?
Open office 3.1 Windows 7
Re: Eliminare Item + riga foglio
speravo che tu ci arrivassi da solo, metti alla fine
Call Option_bc
Call Option_bc
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta