Forums Últimos mensajes - Powered by IBM
 

propiedad column en una combobox

10/09/2005 - 21:05 por pankemao | Informe spam
Hola muy buenas a todos.

El problema que tengo es el siguiente.
He creado un formulario con un ComboBox, un TextBox y un CommandButton.
El problema me lo da en la línea donde pone: ComboBox1 = Null
Me dice: Error 381. Imposible obtener la propiedad Column. Indice de
matriz
de propiedades no válido.
Si quito esa línea, me funciona perfectamente. Pero ya no me borra los
datos
de la Combo en el formulario, cuando vuelvo a introducir datos.
¿como podría solucionarlo?

El codigo es el siguiente:


Private Sub ComboBox1_Change()
Range("a10").Select
ActiveCell.FormulaR1C1 = ComboBox1.Column(0)
ActiveCell.Offset(0, 1).FormulaR1C1 = ComboBox1.Column(1)
End Sub

Private Sub TextBox1_Change()
Range("c10").Select
ActiveCell = TextBox1
End Sub

Private Sub CommandButton1_Click()
Rem inserta un renglón

Selection.EntireRow.Insert

Rem Borrar los datos del formulario

ComboBox1 = Null
TextBox1 = Null

Rem Envía el cursor al ComboBox1 para volver a capturar los datos

ComboBox1.SetFocus

End Sub
 

Leer las respuestas

#1 KL
10/09/2005 - 21:19 | Informe spam
Hola pankemao,

No puedes asignarle a un ComboBox el valor Null, pero puedes borrar la lista
mediante ComboBox1.Clear

Saludos,
KL


"pankemao" wrote in message
news:
Hola muy buenas a todos.

El problema que tengo es el siguiente.
He creado un formulario con un ComboBox, un TextBox y un CommandButton.
El problema me lo da en la línea donde pone: ComboBox1 = Null
Me dice: Error 381. Imposible obtener la propiedad Column. Indice de
matriz
de propiedades no válido.
Si quito esa línea, me funciona perfectamente. Pero ya no me borra los
datos
de la Combo en el formulario, cuando vuelvo a introducir datos.
¿como podría solucionarlo?

El codigo es el siguiente:


Private Sub ComboBox1_Change()
Range("a10").Select
ActiveCell.FormulaR1C1 = ComboBox1.Column(0)
ActiveCell.Offset(0, 1).FormulaR1C1 = ComboBox1.Column(1)
End Sub

Private Sub TextBox1_Change()
Range("c10").Select
ActiveCell = TextBox1
End Sub

Private Sub CommandButton1_Click()
Rem inserta un renglón

Selection.EntireRow.Insert

Rem Borrar los datos del formulario

ComboBox1 = Null
TextBox1 = Null

Rem Envía el cursor al ComboBox1 para volver a capturar los datos

ComboBox1.SetFocus

End Sub

Preguntas similares