Comparar dato de combobox y listbox y mostrar en label

H o l a:

Te anexo el código:

Private Sub ComboBoxLote_Reb_Change()
'Por.Dante Amor
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.List(i) = ComboBoxLote_Reb Then
            Label1 = ListBox1.List(i, 1)
            Exit For
        End If
    Next
End Sub

':)
':)

Dan 

Sabes que no funciona!

Private Sub ComboBoxLote_Reb_Change()
For i = 0 To ListBox2.ListCount - 1
If ListBox2.List(i) = ComboBoxLote_Reb Then
LabelCantidad_Reb = ListBox2.List(i, 2)
Exit For
End If
Next
end sub

lo deje como queria en el listbox2 y el label LabelCantidad_Reb pero no trae los datos del listbox2

Ejemplo

en el combobox ComboBoxLote_Reb tengo

a12

d34

y en el listbox2

r      a12      233

f      d34      143

Al elegir el combobox d34 en el label debe aparecer 134

pero no aparece el valor que corresponde!!

Por favor 

Gracias

Saludos

H o l a :

¿En la primer columna del listbox tienes una letra?

En tu ejemplo en la primera columna tienes : "f"

En la segunda "d34"

Y en la tercera "143"

Si así están los datos entonces la macro debería ser así:

Private Sub ComboBoxLote_Reb_Change()
'Por.Dante Amor
    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.List(i, 1) = ComboBoxLote_Reb Then
            LabelCantidad_Reb = ListBox2.List(i, 2)
            Exit For
        End If
    Next
End Sub

Con esta instrucción, el combo se busca en la primer columna del listbox:

If ListBox2.List(i) = ComboBoxLote_Reb Then

Con esta instrucción, se busca en la segunda:

If ListBox2.List(i, 1) = ComboBoxLote_Reb Then

Hay que recordar que el listbox y el en el combo, la primer columna está numerada con 0, la segunda con 1, la tercera con 2, etc.

Sal u dos

Disculpa Dan tenias razón! La macro funciona!

Era yo el que tenia una línea por ahí metida que me mostraba otro dato en el label... Pero ya la quite y ahora muestra el dato asociado!

Muchas gracias nuevamente por tu su ayuda...

Saludos