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