Combo Box y Text Box desde hoja oculta
Tengo una hoja Excel (Hoja3), la que contiene un listado con nombres y profesiones, cada una en una columna. Columna D Nombres y Columna E Profesión. Esta hoja3, permanecerá siempre oculta.
Ahora bien, en la hoja1, tengo un botón que abre un formulario, que contiene un Combo box y un Text box. El Combo Box, lo he cargado en su propiedad Row Source con :Hoja3! D6:d10. Y lo que necesito es como cargar el Text box dependiendo de la selección del combo box. Por ejemplo si selecciono Carlos (Hoja3! D8) en el combo box, el Text box refleje Médico (Hoja3! E8).
Hay un ejemplo de Elsa, buenísimo de interacción con formularios, pero no se puede tener la hoja oculta (en donde están los datos.
Favor solicito si alguien puede ayudarme.
Desde ya agradecido
Hernán
1 respuesta
H o l a:
Te anexo el código para que cuando selecciones un dato del combo en automático se llene el textbox:
Private Sub ComboBox1_Change()
'Por.Dante Amor
TextBox1 = ""
If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub
Set h3 = Sheets("Hoja3")
TextBox1 = h3.Cells(ComboBox1.ListIndex + 6, "E")
End SubTambién te anexo el código para cargar los datos en el combo, de esta forma si tienes más nombres después de la celda D10 los cargará en automático cada que abras el userform. Pon los 2 códigos en el userform. Cambia en ambos códigos "Hoja3" por el nombre de tu hoja oculta.
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h3 = Sheets("Hoja3")
u = h3.Range("D" & Rows.Count).End(xlUp).Row
If u < 6 Then u = 6
ComboBox1.RowSource = h3.Name & "!D6:D" & u
End Sub':) ':)
