Cerrar userforms al dar click

Hola una consulta , manejo dos formularios el userform1 y userform2 , al
entrar al userform1 tengo un CommandButton2 que llama al userform2,
este userform2 lo utilizo para llenar datos de un nuevo cliente, que
carga datos al ComboBox2 de mi userform1, el cual tiene que refrescarse
(por así decirlo) para que tome los datos del userform2, en el combobox2 es así que
quisiera que al cerrar el userform2 (llenado un nuevo cliente) cierre también el userform1.
Gracias mil
Jesús

1 Respuesta

Respuesta
1

Unload Userform2

¿Cuál es el problema?

Hola

Gracias por el código, solo que quiero que al cerrar el userform2 también cierre el userform1

Un abrazo

Jesus

Pues en el código que usas para cerrar el UserForm1 agrega el de cerrar el Userform2

Perdón por la insistencia solo que cero que no me estoy expresando bien.

Lo que quiero es que al entrar al userform1 tengo el botón para llamar al userform2 lleno los datos al userform2 y este se cierra una vez llenando los datos, y vuelve al userform1. pero en mi comboboox2 no me refleja lo que escribie en el userform2 porque tiene que reactivarse el userform1 y para eso necesariamanete tengo que cerrar el userform1 , y lo que quiero es que al darle aceptar al userform2 cierre el userform2 y automáticamente también cierre el userform1.

Gracias por tu tiempo

Jesús

Pon algo del código que usas, ¿y entonces lo que quieres es que al llenar datos del userform2 se llene el combobox del userform1?

exacto,

Solo que lo que lleno en el userform2 lo guarda en la hoja4 y el combobox3 se llena con esos datos, solo que para que el combobox3 que lo tengo en el userform1 recupere los datos que guarde mediante el userform2 tiene que actualizarse , este es el código que actualiza

Private Sub UserForm_Activate()
ComboBox1.RowSource = "FPA"
ComboBox4.RowSource = "COU"
For por = 2 To 60
If Hoja4.Cells(por, 1) = "" Then
Exit For
Else
ComboBox3.AddItem (Hoja5.Cells(por, 1))
End If
Next
For y = 2 To 6000
If Hoja4.Cells(y, 2) = "" Then
Exit For
Else
ComboBox2.AddItem (Hoja4.Cells(y, 2))
End If
Next
End Sub

Gracias

Jesús

El código que usas para llenar el ComboBox mejor ponlo en un Sub aparte, algo así:

Sub LlenaCombo()
ComboBox1.RowSource = "FPA"
ComboBox4.RowSource = "COU"
For por = 2 To 60
If Hoja4.Cells(por, 1) = "" Then
Exit For
Else
ComboBox3.AddItem (Hoja5.Cells(por, 1))
End If
Next
For y = 2 To 6000
If Hoja4.Cells(y, 2) = "" Then
Exit For
Else
ComboBox2.AddItem (Hoja4.Cells(y, 2))
End If
Next

End Sub

Y en :

Private Sub UserForm_Activate()
LlenaCombo
End Sub

Y en el Código donde Cierras el UserForm2 Agrega esta linea:

LlenaCombo

Siempre es mejor tratar de tener Código Reutilizable, como en este caso que necesitas llenar el combo en diferentes Eventos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como guardar el valor de un textbox dependiendo de la selección de un combobox

Tengo un formulario y dentro de el tengo un textbox vacío y un combobox con varias opciones que toma de la fila 1. Se supone que en este formulario tengo que elegir una opción del combobox y en seguida agregarle una descripción, me gustaría saber...
2 respuestas

Combobox-textbox asociado llevar dato a columna excel

Tengo 5 combobox con las mismas opciones (cada uno tiene 10 materiales) la idea es en el textbox registrar cantidad. Esa cantidad debe llevarse a tabla resumen de excel pero a una columna especifica. No se como se hace pues lo he intentado con if...
1 respuesta

Modificar el Informe Mensual(va dirigida a Dante Amor)

Necesitaría de ser factible dentro del formulario tenemos "Informe mensual" por código, se podrá agregar cuando quieran saber en una determinada fecha el consumo total por cliente un botón de comando nombrado "Informe Clientes" y lo calcule en la...
1 respuesta

Macro para calcular turnos docentes

Como puedo asignarle a un docente un mismo curso en varios turnos pero si que esos turnos ya no hayan sido asignado a otro doce.
1 respuesta

Filtrar datos de una base con combobox

Tengo una base que necesito filtrar mediante 3 combobox eliminando los datos repetidos en cada uno de los combobox, al momento de seleccionar el primer combobox1 debe filtrar los datos de la siguiente columna y agregarla al combobox2 y asi con el...
1 respuesta

8 combobox dependientes enlazados

Estimados expertos tengo el sigiente problema quiero realizar una macro en donde tenga 8 combobox en los cuales quiero desplegar la siguiente informacion tengo el sgte codigo Public ufila As Integer Private Sub ComboBox1_Change() ComboBox2.Clear...
1 respuesta

Userform combobox dependiente

Tengo una hoja columna A, B, C, D, con títulos, necesito que al Código ubicación fecha cantidad BFDAC12 RACK1 10-10-2012 1 FGTED52 RACK2 11-10-2012 2 DFREW34 RACK3 12-10-2012 3 BFDAC12 RACK4 13-10-2012 4 DFREW34 RACK3 14-10-2012 1 FDAC12 RACK4...
1 respuesta

Actualizar mi combobox cuando ingreso datos de otro formulario.

Y colegas: Mi pregunta es la siguiente tengo un Formulario 1 en donde esta un combobox del personal que eso lo jala de una hoja llamada "PERSONAL" y en el mismo formulario tengo un botón con el signo + que hace que abra otro formulario pequeño en...
1 respuesta

Crear Formulario Excel (ayuda a un principiante)

Gurús del excel, estoy trabajando en un formulario de ingreso de datos y mi intención es aprender todo sobre la herramientas de formularios. El objetivo del formulario es entregar un código al usuario que lo ejecute y almacenar en otra hoja los datos...
1 respuesta

Formulario con 2 combobox y guardar datos en diferente libro

Un mega favor esperando que me puedas ayudar Tengo un formulario con 2 combobox los cuales el primero Con el siguiente código Private Sub UserForm_Activate() 'Captura datos y guarda en empresa ws_Count = ActiveWorkbook.Worksheets.Count For i = 1 To...
1 respuesta