Programación General > VBA
Varias Columnas
(1/1)
Homar2006:
Buenas Tardes a todos...
Estoy trabajando con Excel y el editor de Visual basic...
Tengo un combobox con 2 columnas...en la primera columna tengo una descripcion y en la segunda columna tengo el codigo.
Quisiera en una celda guardar la primera columna (Descripcion) y en otra celda guardar la segunda columna (Codigo)
He colocado esto pero no me funciona...
Cells(rowcount, 13).Value = Me.cbCiuExp.Column(0)
Cells(rowcount, 13).Value = Me.cbCiuExp.Column(0)
... y esto tambien ....
Cells(rowcount, 14).Value = cbCiuExp.List(cbCiuExp.ListIndex, 0)
Espero que me puedan colaborar...
Ivanart:
--- Cita de: "Homar2006" --- Buenas Tardes a todos...
Estoy trabajando con Excel y el editor de Visual basic...
Tengo un combobox con 2 columnas...en la primera columna tengo una descripcion y en la segunda columna tengo el codigo.
Quisiera en una celda guardar la primera columna (Descripcion) y en otra celda guardar la segunda columna (Codigo)
He colocado esto pero no me funciona...
Cells(rowcount, 13).Value = Me.cbCiuExp.Column(0)
Cells(rowcount, 13).Value = Me.cbCiuExp.Column(0)
... y esto tambien ....
Cells(rowcount, 14).Value = cbCiuExp.List(cbCiuExp.ListIndex, 0)
Espero que me puedan colaborar...
--- Fin de la cita ---
hola,
se me ocurren al menos 2 dos posibilidades:
op1) asignarle una de las columnas [del combo] a la propiedad TextColumn del combo y la otra la prop. BoundColumn
y cargar en una de las celdas la prop. text[del combo] y en la otra la prop. value[del combo]
pej:
en el initialize del form podrias poner algo asi (nota: al estar el codigo en elpropio modulo del form, puedes ahorrarte el me):
--- Código: Text --- cbCiuExp.TextColumn = 1cbCiuExp.BoundColumn = 2
y en donde quiera que estes probando tus codigos algo asi:
--- Código: Text --- Cells(rowcount, 13).Value = cbCiuExp.TextCells(rowcount, 14).Value = cbCiuExp.Value
op2) usando la propiedad list del combo: pej:
--- Código: Text --- with cbCiuExp Cells(rowcount, 13).Value = .List(.listindex,0) Cells(rowcount, 14).Value = .List(.listindex,1)end with
hay otras opciones pero de momento......
espero te ayude
un saaludo
Ivan
PD: supongo que rowcount es una variable????
Navegación
Ir a la versión completa