Saltar al contenido

Actualizar combobox desde otro UserForm | Vba Excel


Cacique

Recommended Posts

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.

 

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

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.

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 93 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • No va a ser necesario distinguir el tipo de proceso entre 1 y 2. Revisa el adjunto a ver si es eso lo que quieres. Function MediaAttention(mImp As Range, _ q25 As Range, q50 As Range, _ Optional q75 As Range, _ Optional q100 As Range) As Double '-- Opción 1 If q75 Is Nothing And q100 Is Nothing Then MediaAttention = q25 / q50 Exit Function End If '-- Opción 2 MediaAttention = ((0.25 * (q25 - q50)) / mImp) + _ ((0.5 * (q50 - q75)) / mImp) + _ ((0.75 * (q75 - q100)) / mImp) + _ (q100 / mImp) End Function   Media Attention Formula 1.2.xlsb
    • Gracias tomarse el tiempo de leer por responder Maestro @Antoni Adjunto el archivo con la idea a la que deseo llegar, sigo atento. Mil gracias por el tiempo y la ayuda brindada   Media Attention Formula 1.2.xlsb
    • He analizado la UDF y entiendo perfectamente lo que hace, lo que no entiendo es lo que pretendes hacer. Mejor sube un ejemplo resuelto de  como debería funcionar la UDF con los nuevos parámetros solicitados. 
    • Gracias, ya lo conseguí solucionar
    • Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.- Colocar 2 al principio de la función y después seleccionar las 5 celdas correspondientes (Rango continuo o discontinuo) Espero me puedan ayudar y/o orientar al respecto, quedo atento para cualquier duda, de antemano les agradezco cualquier ayuda brindada. Mil Gracias!! Media Attention Formula 1.1.xlsb  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.