Sera Giu_Mat

prova a vedere se ti può andar bene una cosa del genere. 

in pratica non capisco perchè cercare dati di due colonne in un unica  ComboBox e poi dividere i dati cercati  su due colonne, non vedo la necessità.

Comunque tempo fa avevo avuto la stessa necessità e mi son creato questa User. 

vedi se ti può tornare comoda una cosa del genere, e magari adattala alle tue esigenze in base alla posizione delle tue colonne e celle di riferimento.

per ora ti ho impostato io in base alla tua necessità.  

saluti

La userform se vedi te l'ho creata io. 

basta cliccare sul tasto apriForm e si avvia. 

prova a vedere se ti può andar bene. 

saluti

Buona sera, @giu_mat.

Consentimi un saluto a @dodi.

Potresti provare con questi due Codici VBA:

Option Explicit

Private Sub ComboBox1_GotFocus()
Application.ScreenUpdating = False
Dim rng As Range

ComboBox1.Clear
Cells(5, 11).ClearContents
Cells(5, 12).ClearContents

Set rng = Range("A1").CurrentRegion
With Me.ComboBox1
.ColumnCount = rng.Columns.Count
.List = rng.Value
End With
Set rng = Nothing
Application.ScreenUpdating = True
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
Cells(5, 11).Value = Cells(ComboBox1.ListIndex + 1, 1).Value
Cells(5, 12).Value = Cells(ComboBox1.ListIndex + 1, 2).Value
End If
End Sub

- ComboBox1_GotFocus Alimenta ComboBox1
- ComboBox1_Change Compila K5 e L5

A disposizione.

Buona serata.

Giuseppe

Grazie  ancora.