Ricerca parziale del testo in textbox da file esterno

[WCB]

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

[WCB]

Buongiorno,
ho scritto questo per iniziare ma non sto riuscendo ad andare avanti.. 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 & "*"

[WCB]

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

[Marius44]

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


[WCB]

Grazie Marius44,
gentilissimo a propormi la soluzione... stavo impazzendo e lo sbaglio era il numero della colonna!!
Grazie mille di cuore per aver messo fine alla mia sofferenza
Buon weekend e grazie ancora