Trasladar valor de un combobox a una celda a través de un CommandButton
A ver les pongo un ejemplo:
Userform 1:
Formulario con los siguientes datos
Producto (commandbutton que enlaza a userform 2 en el que tengo combobox para seleccionar las características del producto)
Almacen (commadbutton que enlaza a userform 3 en el que tengo combobox para seleccionar el almacen adecuado)
En ambos userfom secundarios hay un commandbutton para guardar el contenido de los combobox y lo que quiero es que cuando yo de al commandbutton del userfom inicial me guarde a la vez lo guardado en el Userfom 2 y 3.
2 respuestas
Para hacer eso necesitas tener abiertos los tres formularios al mismo tiempo, yo lo haría así en el botoncommand del formulario inicio pondría el siguiente código, cada instrucción manda llamar al valor de los combobox de las páginas secundarias y después los pasa a la hoja activa.
Private Sub CommandButton1_Click()
VALOR = UserForm2.ComboBox1.Value
VALOR2 = UserForm3.ComboBox1.Value
Range("B1") = VALOR1
Range("B21") = VALOR2
End Sub
Primero agradecer su rápida ayuda, voy a probar, ahora le cuento. gracias
Perdone, yo me refiero a lo siguiente:
Userform1 llamado pedido y contiene:
1.- Producto (commandbutton2) : pinchamos y nos enlaza a un userform2 en el que tengo criterios como color (combobox1) y peso (combobox2)
2 . -Almacen (commandbutton3): pinchamos pinchamos y nos enlaza a un userform3 en el que tengo criterios como pueblo (combobox3) y pais(combobox4)
3.- REGISTRAR (Commandbutton 3): aquí quiero que lo que deje marcado en los combobox del userform 2 y 3 se me registre en sus celdas correspondientes
Manejo más variables pero es para simplificar. Gracias
El resultado que esperas es algo así según entiendo, das clic en producto y seleccionas peso y color en cuanto lo haces estos datos son mandados al formulario 1, cierras y das clic en producto seleccionas paus y pueblo e igual estos datos son enviados al formulario 1, estos datos son guardados en etiquetas (label) y de ahí lo mandas a donde lo tengas que capturar por ejemplo range("a1")=label4, range("b2")=label6
y estas son las macros que ocupas tienes que crear etiquetas y asignarlas a los combobox de ambos formularios y en los dos formularios pegar este código, eso le dirá que mande el valor seleccionado en el combo al formulario 1
Private Sub ComboBox1_Change() UserForm1.Label8 = ComboBox1 End Sub Private Sub ComboBox2_Change() UserForm1.Label5 = ComboBox2 End Sub
Esto tal vez aclara más tus dudas
En el botón pon
range ("A"1)= combobox1.value
Visita https://programarexcel.com descarga cientos de ejemplos de macros gratis
suscribe https://www.youtube.com/c/programarexcel?sub_confirmation=1 activa la campana y youtube te avisará cuando se suban nuevos vídeos