FULL APPLICATION with VBA in Excel - How to insert an ITEM SEARCH BOX #11

[@robertobraicovick6867]

Grazie!

[@lucianocrapanzano6394]

Bravo, non mollare

[@eduCoding4.0]

Grazie😁😁

[@nilaro1971]

Ciao. Sto seguendo con molto interesse il tuo corso. Avrei solo una domanda da porti. Se nel campo CERCA DESCRIZIONE volessi ricercare il prodotto scrivendo una parte della descrizione come potrei fare? Ad esempio: BICI DA PASSEGGIO. Se dovessi ricordarmi solo il termine PASSEGGIO come potrei fare per farmi restituire come risultato tutti i prodotti che hanno nella loro descrizione il termine ad esempio "PASSEGGIO"?

[@cesareminniti3108]

buon pomeriggio, seguo i tuoi video con attenzione, mi è piaciuta questa applicazione ma a 11 video l'istruzione set lista e la riga dopo mi da errore che, non riesco a risolvere mi potresti adre una mano. cordiali saluti Cesare minniti

[@nemerix75]

Ciao, è possibile avere il codice del tuo esempio?

[@robertobraicovick6867]

Ho seguito le lezioni con grande attenzione e ne sono entusiasta. Si possono formattare i campi della Lista (costo e importo) con € 1.200,00 invece di 1200 ? Il campo IVA con es: 22% ? Poter scrive in maiuscolo nella casella Cerca? Una lezione sulla formattazione sarebbe davvero gradita. Comunque sia grazie davvero per tutte queste belle lezioni.

[@eduCoding4.0]

Innanzitutto grazie, il corso non è terminato, nei prossimi video sicuramente tratterò l'argomento

[@vincenzosantoro5511]

Complimenti per il corso chiaro e semplice però in questa lezione ho avuto problemi poiché il risultato non è quello desiderato pur avendo seguito con attenzione tutti i passaggi. Ti riporto qui di seguito il codice come da te riportato (almeno mi sembra) Private Sub txtCerca_Change() Dim ultimariga As Integer, lun As Integer, riga As Integer Dim testo As String ultimariga = Cells(Rows.Count, 1).End(xlUp).Row lun = Len(txtCerca.Text) riga = 2 lstArticoli.ListItems.Clear Sheets("Articoli").Select texCodice_A.Text = "" texDescrizione.Text = "" texUnita_M.Text = "" texCosto.Text = "" texIVA.Text = "" With Sheets("Articoli") While .Cells(riga, 1).Value "" testo = Left(Sheets("Articoli").Cells(riga, 2).Text, lun) If txtCerca.Text = testo Then With lstArticoli Set lista = lstArticoli.ListItems.Add(Text:=Cells(riga, 1).Value) lista.ListSubItems.Add Text:=Cells(riga, 2).Value lista.ListSubItems.Add Text:=Cells(riga, 3).Value lista.ListSubItems.Add Text:=Cells(riga, 4).Value lista.ListSubItems.Add Text:=Cells(riga, 5).Value lista.ListSubItems.Add Text:=Cells(riga, 6).Value End With txtCodice_A.Text = Sheets("Articoli").Cells(riga, 1) txtDescrizione.Text = Sheets("Articoli").Cells(riga, 2) txtUnita_M.Text = Sheets("Articoli").Cells(riga, 3) txtCosto.Text = Sheets("Articoli").Cells(riga, 4) txtIVA.Text = Sheets("Articoli").Cells(riga, 5) End If riga = riga + 1 Wend End With If (txtCerca.Text = "") Then CARICA_LISTA End If End Sub Pur avendolo controllato più volte non sono riuscito a trovare l'incongruenza. Non vorrei che nel visionare il codice inserito nel documento di testo nei vari passaggi si sia perso qualcosa. Ti ringrazio anticipatamente