se inserisci i relativi codici di ogni combobox in AfterUpdate invece del Change
non solo ti permette di digitarlo ma ti aiuta nella ricerca proponendo solo stringhe esistenti
in pratica gli stessi codici di ogni combobox vanno inseriti così
- Codice: Seleziona tutto
Private Sub ComboBox1_AfterUpdate()
Set Ws1 = Worksheets("Preventivi")
Set Ws2 = Worksheets("Query")
If UserForm1.Visible Then
Ws1.Range("A1:F1").Copy Destination:=Ws2.Range("A1")
UREA = Ws1.Range("A" & Rows.Count).End(xlUp).Row
Cognome = Me.ComboBox1
For RRA = 2 To UREA
If Cognome = Ws1.Range("B" & RRA).Value Then
Ws1.Range("A" & RRA & ":F" & RRA).Copy Destination:=Ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
UserForm1.Hide
End If
Next RRA
End If
End Sub
poi prova a digitare un nome o una targa (esistente)
ciao
P.s. L'elenco nel Combobox non è l'elenco dei preventivi ma solo dei nomi/targhe/modello univoci quindi, presumo, un numero inferiore rispetto al numero dei preventivi