Actualizar combobox desde otro UserForm | Vba Excel

[Cacique]

Hola Buenas tardes.

De antemano muchas gracias por su ayuda.

Tengo el siguiente problema en un proyecto de VBA y agradezco la ayuda que me puedan dar.

Tengo un formulario Userform1, dentro cual tengo los siguientes campos.

Fecha

Empleado

Categoria*

Servicio

Precio

Cantidad

Total

De entre estos campos el campo Categoria es un combobox, el cual ayudado de la propiedad del objeto rowsource alimento de la tabla 1 en en Excel

Categoria

Opcion 1

Opcion 2

Opcion 3

 

Tengo un formulario Userform2 para poder crear categorias, es decir alimentar la tabla 1.

 

Aqui viene mi problema, cuando abro el Userform1 y se me genera la necesidad de crear una nueva categoria, abro desde el mismo formulario el Userform2 para crearla, mediante un botón con el código Show UserForm2, pero al crear la categoria, se anexa en la tabla, luego cierro el userform2 y estando nuevamente en el Userform1, cuando desplego el combobox Categoria este no se actualiza y no me muestra la nueva opción que he acabado de crear.  Solo cerrando y volviendo a abrir el formulario se ve la nueva opción. Inclusive a veces se me bloquea excel y se cierra por completo.

 

Alguién tiene alguna pista, que me pueda ayudar a solucionarlo.

 

Muchas gracias.

 

[Antoni]

No hay problema, sube tu archivo con los formularios.

 

[Cacique]

Hola Buenas tardes @Antoni

 

Agradezco su ayuda. He subido el ejemplo de los formularios que estoy utilizando. Los he reducido solo para mostrar lo que necesito. Adicional a esto, me esta pasando que se me esta cerrando excel cuando trato de actualizar el combobox desde el otro formulario, no se si esto ya sea un problema de memoria del ordenador.

 

Mil gracias.

Ejemplo.xlsb

[tierra_pampa]

 

Perdón, elegí un post equivocado al responder!

 

[Cacique]

Hace 15 horas, tierra_pampa dijo:

 

Perdón, elegí un post equivocado al responder!

 

No hay ningún problema

[Antoni]

He convertido la tabla categoria a rango. (click derecho\Tabla\Convertir en rango)

He borrado la propiedad .Rowsource del combobox.

He modificado el procedimiento Userform_Initialize en el formulario FR_INGRESOS y el procedimiento GuardarCategorias_Click en el formulario categorias añadiendo este código en ambos:

With FR_INGRESOS.INGRESOS_CATEGORIA
   .List = Hoja1.Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
End With

Revisa el adjunto

Ejemplo.xlsb

[Cacique]

Hace 1 hora, Antoni dijo:

He convertido la tabla categoria a rango. (click derecho\Tabla\Convertir en rango)

He borrado la propiedad .Rowsource del combobox.

He modificado el procedimiento Userform_Initialize en el formulario FR_INGRESOS y el procedimiento GuardarCategorias_Click en el formulario categorias añadiendo este código en ambos:

With FR_INGRESOS.INGRESOS_CATEGORIA
   .List = Hoja1.Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
End With

Revisa el adjunto

Ejemplo.xlsb 57.63 kB · 0 descargas

Mil gracias @Antoni.  Es usted un master. Solucionado. Le agradezco mucho su tiempo.