Prima di esporre il mio quesito un caro saluto a tutti i forumisti ed in particolare ad Anthony.
Specifico: il titolo ho cercato di scriverlo nel modo più chiaro possibile ma lo spazio non mi è bastato.
Ho una ComboBox che vorrei caricare prendendo i dati dalla colonna “A” a partire dalla riga “2” in giù
La condizione è questa:
Vorrei poter scrivere nella ComboBox e caricarla con le righe della colonna “A” che contengo la parola che ho appena scritto nella combobox.
In colonna “A” ho varie righe con tante parole scritte in ogni cella, meglio “in ogni cella c’è una frase”.
Attualmente utilizzo una cella di appoggio (“B1”) dove scrivo la parola e carico la combo selezionando con un ciclo dalle righe della colonna “A” solo quelle che contengono la parola che ho scritto nella B1
Il codice che utilizzo è il seguente:
- Codice: Seleziona tutto
Sub Carica_Combo()
Dim UR As Integer, I As Integer
ActiveSheet.ComboBox1.Clear
UR = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:A" & UR).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
For I = 2 To UR
If UCase(Cells(I, "A")) Like "*" & UCase(Cells(1, "B")) & "*" Then
ActiveSheet.ComboBox1.AddItem Cells(I, "A").Value
End If
Next I
End Sub
La “Carica_Combo” viene chiamata dalla “Worksheet_Change” del foglio di lavoro quando si digita qualcosa in “B1”
Grazie a chi mi troverà una soluzione
