Ayuda con código vba en excel
Hola Experto, tengo dos formularios; el userform1 tiene 2 textbox, el textbox1 al hacer enter llama al userform2 el cual tiene un listbox con códigos y detalle(dos columnas), al seleccionar algún código o doble clic se guarda solo el Nº código en el textbox1.
Ahora necesito si digamos hago enter en el textbox1 siga haciendo la misma operación descrita arriba, pero si hago enter en el textbox2 igualmente llame al userform2 y seleccione el código pero que guarde en el textbox2; es decir que guarde la información dependiendo de que textbox fue llamado el userform2.
Gracias por su ayuda.
Atentamente.
Mangel
1 Respuesta
En el UserForm1 en cada textbox tienes que poner este código
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Por.DAM
With UserForm2
.ptext = 1
.Show
End With
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Por.DAM
With UserForm2
.ptext = 2
.Show
End With
End Sub
Ahora, en el userForm2, en la primer línea de código tienes que declarar una variable, esta línea debe ir arriba de todo el código del userform2
Public ptext
Y luego, en el UserForm2, en el evento de doblclick tienes que poner el siguiente código
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Por.DAM
UserForm1.Controls("TextBox" & ptext) = UserForm2.ListBox1.List(UserForm2.ListBox1.ListIndex, 0)
Unload Me
End SubSaludos.Dante Amor
Si es lo que necesitas.
