-
Articoli
-
Salve a tutti,
come state?
Mi è stato cancellata la discussione e non so perchè..ve la riscrivo
Avrei bisogno del vostro aiuto per risolvere questo mio problema..
In un file excel ho due fogli (sheet1 e sheet2), nel primo foglio ho dei dati che aggiungo, nel secondo foglio ho un userform.. nell'userform ho delle textbox, una listbox e un pulsante che fa la ricerca nella colonna B del primo foglio.
Nella prima textbox scrivo un dato (contenuta nella colonna B) clicco sul tasto e nella listbox escono tutti i risultati che riportano quel dato, doppio click sul dato nella listbox e questa esce nella seconda textbox..a questo punto vorrei che se selezionassi più di un dato questa esce sempre nella seconda textbox separato da ;.
Esempio: nella prima textbox scrivo e --> nella listbox escono 4 risultati--> doppio click su un dato e questo esce nella seconda textbox---> a questo punto vorrei che se mettessi (;) accanto al dato della seconda textbox, doppio click su un altro dato in listbox e questa mi viene aggiunta nella medesima textbox (esempio: dato1;dato2)..
Spero di aver spiegato bene in tal caso chiedete pure..
Grazie in anticipo a chi vorrà aiutarmi e buona continuazione!
prova a sostituire il codice nella routine ListBox1_DblClick co quella che ti posto
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'TextBox2.Text = ListBox1.List(ListBox1.ListIndex, 2) If ListBox1.ListCount <> 0 Then For x = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(x) = True Then sTemp = sTemp & ";" & ListBox1.List(x, 2) End If Next End If TextBox2.Text = sTemp End Sub
Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )
Ciao albatros54,
grazie mille per l'aiuto..provato e funziona!
Grazieee e alla prossima
Login
Registrati
Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)