Jump to content

Cuadro combinada(combobox) ayuda..!!!


Recommended Posts

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.zip

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy