propiedad column en una combobox

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

Buenas KL,

Así tampoco me funciona. Me da error
Yo lo que quiero es que se quede en blanco el ComboBox para volver a
seleccionar otra opción dentro del menú desplegable.

Hola de nuevo,

Te habia entendido mal, prueba

ComboBox1.Value=Null

Saludos,
KL


"pankemao" wrote in message
news:
Buenas KL,

Así tampoco me funciona. Me da error
Yo lo que quiero es que se quede en blanco el ComboBox para volver a
seleccionar otra opción dentro del menú desplegable.

Aqui otra vez, KL,

Tampoco me funciona.
Realmente el error me lo da en la línea :
ActiveCell.FormulaR1C1 = ComboBox1.Column(0)

Se que es culpa de la propiedad Column. Porque si yo pongo:
ActiveCell.FormulaR1C1 = ComboBox1

No me da el error.
Lo que pasa es que yo quiero que en la celda A10 me salga la
columna(0) y la celda B10 la columna(1)
Creo que no debe ser muy complicado. Pero ahi esta jodiendo.

Hola pankemao,

A mi me funciona perfectamente esto:

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

o esto:

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

Lo que creo es que el problema esta en como asignas los valores a tu
ComboBox1, que es justo lo que falta en tus mensajes. Comentas?

Saludos,
KL


"pankemao" wrote in message
news:
Aqui otra vez, KL,

Tampoco me funciona.
Realmente el error me lo da en la línea :
ActiveCell.FormulaR1C1 = ComboBox1.Column(0)

Se que es culpa de la propiedad Column. Porque si yo pongo:
ActiveCell.FormulaR1C1 = ComboBox1

No me da el error.
Lo que pasa es que yo quiero que en la celda A10 me salga la
columna(0) y la celda B10 la columna(1)
Creo que no debe ser muy complicado. Pero ahi esta jodiendo.