Cuando agrego los datos del formulario a la hoja de Excel

[luisv]

Buenas noches,

acabo de terminar de hacer un formulario que me permite agregar y modificar los productos pero cuando le doy clic en el botón que me permite agregar dichos artículos me lanza el siguiente error y si presiono depurar o finalizar el Excel me deja de funcionar y se cierra.

Este es el código del botón.

Espero me puedan ayudar ,muchas gracias de antemano.

PROYECTO.xlsm

[JSDJSD]

Pienso que el archivo que has compartido puede estar corrupto después de las pruebas realizadas

[Antoni]

Cuando se usa  .RowSource, hay que ir con mucho cuidado a la hora de modificar las celdas que componen el rango asociado, ya que se actualiza el listbox/combobox y se desencadenan todos los eventos asociados al control y se acaba haciendo de "la picha un lio".

Para evitar esto debemos borrar la propiedad .RowSource antes de añadir/modificar cualquier celda del rango y posteriormente, como ya haces, volver a cargar el control.

Private Sub bt_agregar_Click()
Dim pro As Integer
If txt_ean.Value = "" Or txt_material.Value = "" Or txt_descripcion.Value = "" Or cmb_categoria.Value = "" Or cmb_proveedor.Value = "" Or txt_peso.Value = "" Then
MsgBox ("INFORMACION SIN INGRESAR")
Else
pro = 1
While Worksheets("Base Productos").Range("A" & pro) <> ""
pro = pro + 1
Wend

Me.lista.RowSource = "" '<-----------------------------------------------
                                                                                                     
Worksheets("Base Productos").Range("A" & pro) = Me.txt_ean.Value
Worksheets("Base Productos").Range("B" & pro) = Me.txt_material
Worksheets("Base Productos").Range("C" & pro) = Me.txt_descripcion
Worksheets("Base Productos").Range("D" & pro) = Me.cmb_categoria
Worksheets("Base Productos").Range("E" & pro) = Me.cmb_proveedor
Worksheets("Base Productos").Range("F" & pro) = Me.txt_cantidad.Value
'End If
Me.lista.RowSource = "Productos"
Me.lista.ColumnCount = 13
'Resume Next
End Sub

 

[JSDJSD]

Yo no he podido ni abrir el archivo, no sé, luego cuando llegue a casa pruebo en mi ordenador, a ver si es problema de este en concreto.

[luisv]

muchas gracias Antoni lo tendré en cuenta.