Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Ricerca parziale del testo in textbox da file esterno

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

Ricerca parziale del testo in textbox da file esterno

Postdi WCB » 08/08/19 17:55

Buonasera a tutti,
spero possiate aiutarmi con il mio neo..
Vorrei inserire, in una textbox, un comando che mi permetta di digitare parzialmente dei valori che sono in un file esterno in colonna F a partire dal rigo 6, tipo menù a tendina e una volta cliccatoci sopra il valore desiderato, mi compaia nella textbox da cui ho fatto la ricerca. In questa colonna andrò sempre ad aggiungere valori, di conseguenza sarà sempre aggiornato.
Esempio: nel file esterno sono presenti i valori AMO, AMICO, AMIDO, AMACA, ASTRO, ASSO --> nella textbox scrivo AM ed esce AMO, AMICO, AMIDO, AMACA --> continuo a scrivere AMI ed esce AMICO, AMIDO clicco su AMIDO e questa esce nella stessa textbox da cui ho scritto.
Più in là aggiungerò al file esterno la parola AMIANTO..nella textbox scrivo AM ed esce AMO, AMICO, AMIDO, AMACA, AMIANTO --> continuo a scrivere AMI ed esce AMICO, AMIDO, AMIANTO clicco su AMIANTO e questa esce nella stessa textbox da cui ho scritto.
Avete qualche suggerimento da darmi?
Grazie mille della disponibilità e buona serata :)
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Sponsor
 

Re: Ricerca parziale del testo in textbox da file esterno

Postdi WCB » 09/08/19 09:09

Buongiorno,
ho scritto questo per iniziare ma non sto riuscendo ad andare avanti.. :cry: Gentilmente chiedo un vostro aiuto. Grazie mille e buona continuazione..
Codice: Seleziona tutto
Dim rng As Range
Dim a As String
Dim WB As Workbook
Dim SH As Worksheet
Set WB = Workbooks("FileEsterno.xlsx")
Set SH = WB.Worksheets("Sheet1")
Set rng = WB.Worksheets("Sheet1").Columns("F:F")
a = "*" & TextBox1 & "*"
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Re: Ricerca parziale del testo in textbox da file esterno

Postdi WCB » 09/08/19 11:55

Son riuscito a scrivere il resto:
Codice: Seleziona tutto
ListBox1.Clear
Dim rng As Range
Dim wb As Workbook
Dim c As Range
Dim a As String 'listbox ricerca parziale
Set wb = Workbooks("FileEsterno.xlsx")
With wb
Set rng = wb.Worksheets("Sheet1").Range(.Cells(1, 6), .Cells(.Cells(65536, 6).End(xlUp).Row, 6))
a = "*" & TextBox1 & "*" 'listbox ricerca parziale
For Each c In rng
If c.Value Like a Then 'listbox ricerca parziale
ListBox1.AddItem (c.Value)
End If
Next
End With
Set rng = Nothing 'listbox ricerca parziale
End Sub
Private Sub ListBox1_Click()
TextBox1.Value = UserForm2.ListBox1.Value
End Sub

Ma non funziona.. esce un messaggio che dice "l'oggetto non supporta questa proprietà o metodo" fermandosi su questa riga:
Codice: Seleziona tutto
Set rng = wb.Worksheets("Sheet1").Range(.Cells(1, 4), .Cells(.Cells(65536, 4).End(xlUp).Row, 4))

Cosa sbaglio?
Grazie e buona continuazione a tutti ;)
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Re: Ricerca parziale del testo in textbox da file esterno

Postdi Marius44 » 09/08/19 19:04

Ciao
Perchè nello spezzone di codice c'è questa riga
Set rng = wb.Worksheets("Sheet1").Range(.Cells(1, 6), .Cells(.Cells(65536, 6).End(xlUp).Row, 6))

mentre poi dici che si ferma su questa riga
Set rng = wb.Worksheets("Sheet1").Range(.Cells(1, 4), .Cells(.Cells(65536, 4).End(xlUp).Row, 4))

Come puoi vedere il numero di colonna è diverso.
Ma, mi permetto aggiungere, perchè complicarsi la vita nel settare qualcosa che puoi definire prima? Per esempio
Codice: Seleziona tutto
Sub prova()
Set wb = Workbooks("Cartel1")
With wb
  ur = .Sheets("Foglio1").Cells(Rows.Count, 6).End(xlUp).Row
  Set Rng = .Sheets("Foglio1").Range(Cells(1, 6), Cells(ur, 6))
End With
Rng.Select
End Sub
Come vedi quando setto Rng non metto wb ma solo il punto

Ciao,
Mario
Marius44
Utente Senior
 
Post: 463
Iscritto il: 07/09/15 22:00

Re: Ricerca parziale del testo in textbox da file esterno

Postdi WCB » 10/08/19 12:32

Grazie Marius44,
gentilissimo a propormi la soluzione... stavo impazzendo e lo sbaglio era il numero della colonna!! :aaah
Grazie mille di cuore per aver messo fine alla mia sofferenza :lol:
Buon weekend 8) e grazie ancora
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52


Torna a Applicazioni Office Windows


Topic correlati a "Ricerca parziale del testo in textbox da file esterno":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti