últimos mensajes de: pushuno

novalida, buscando una solucion a lo mismo entre en tu post y como no pude encontrar en ningun lado una respuesta me armé una funcion que se encargue de esto.

Código:

Public Function seleccionarPorItemData(cmb As ComboBox, sel As Integer)
Dim i As Integer

    For i = 0 To cmb.ListCount - 1
          If (CStr(cmb.ItemData(i)) = sel) Then 'compara el valor del que buscamos con los itemdata de todos
                cmb.ListIndex = i 'si lo encuentra marca como seleccionado el item
          End If
    Next
End Function

espero te sirva, abrazo Pushuno!