Eliminare Item + riga foglio

Creare una macro - Scrivere uno script - Usare le API
Rispondi
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

Eliminare Item + riga foglio

Messaggio da Luka2017 »

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
Allegati
prova filtro.ods
(14.96 KiB) Scaricato 175 volte
Open office 3.1 Windows 7
patel
Volontario attivo
Volontario attivo
Messaggi: 4016
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Eliminare Item + riga foglio

Messaggio da patel »

per eliminare la riga dal foglio

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
per il resto devi rileggere daccapo i dati rimasti come hai già fatto, te la cavi con una sola istruzione
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
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

Re: Eliminare Item + riga foglio

Messaggio da Luka2017 »

Grazie Come SEMPRE
Open office 3.1 Windows 7
Gaetanopr
Volontario
Volontario
Messaggi: 3291
Iscritto il: mercoledì 21 novembre 2012, 20:07

Re: Eliminare Item + riga foglio

Messaggio da Gaetanopr »

Luka2017 ha scritto:Come faccio ad eliminare con un pulsante degli item filtrati sia dalla listbox che dal foglio dove sono presenti?
Grazie
Filtrati o selezionati??
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
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

Re: Eliminare Item + riga foglio

Messaggio da Luka2017 »

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
patel
Volontario attivo
Volontario attivo
Messaggi: 4016
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Eliminare Item + riga foglio

Messaggio da patel »

speravo che tu ci arrivassi da solo, metti alla fine
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
Rispondi