Cuadro combinada(combobox) ayuda..!!!

xbeetox · el 15 de junio

Buenas necesito una ayuda... quiero saber como puedo cargar mi cuadro combinado, pero al momento de guardarlo en una tabla quisiera que me guarde su codigo....

por ejemplo una tabla pais

cod_pais , pais

1 Perú

2 Brazil

quisiera que en mi cuadro combinado salga pais(Peru), pero al guardar en una base general, que se guarde 1.

Esperando su pronta respuesta... y un modelo

Gracias

tarea.zipFetching info...

Antoni · el 15 de junio

Hola:

Sustituye el código del formulario por este:



Private Sub cb_motivo_llamada_Click()

    MsgBox _ 

       "Código: " & cb_motivo_llamada.List(cb_motivo_llamada.ListIndex, 0) & Chr(10) & _

       "Motivo: " & cb_motivo_llamada.List(cb_motivo_llamada.ListIndex, 1)

 End Sub


Private Sub UserForm_Initialize()

   Sheets("MOTIVO_LLAMADA").Select

   cb_motivo_llamada.ColumnCount = 2 'Definimos 2 columnas para el combo

   cb_motivo_llamada.ColumnWidths = "0;" 'Ocultamos el código asignandole longitud cero

   cb_motivo_llamada.RowSource = "A2:B" & Range("A" & Rows.Count).End(xlUp).Row 'Cargamos el combo

End Sub

[/CODE]

Te recomiendo que le pongas nombres mas cortos a los controles o te vas a hinchar a escribir.

saludos