Mostrar valor en textbox
Hola ojala me puedas ayudar =)
Tengo un userform donde tengo un combobox que enlista las hojas de calculo que tengo, y quisiera que al seleccionar del combobox la hoja pudieran verse en mis textbox 1 y 2 las celdas a8 y c8 respectivamente
Solo puedo ver los nombres de las hojas por el combobox, no se si es que necesito algún código para que al pulsar la selección del combox se vaya a la hoja y trabaje así como la hoja activa y se puedan ver los valores en los textbox en realidad no se, soy algo nuevo en esto por cierto
gracias =)
Tengo un userform donde tengo un combobox que enlista las hojas de calculo que tengo, y quisiera que al seleccionar del combobox la hoja pudieran verse en mis textbox 1 y 2 las celdas a8 y c8 respectivamente
Solo puedo ver los nombres de las hojas por el combobox, no se si es que necesito algún código para que al pulsar la selección del combox se vaya a la hoja y trabaje así como la hoja activa y se puedan ver los valores en los textbox en realidad no se, soy algo nuevo en esto por cierto
gracias =)
2 Respuestas
Respuesta de prozac
1
Supongo que ya has cargado el Combobox (supongamos Combobox1) con los datos de los nombres de las hojas.
Ahora el código para el ComboBox1 seria así:
Private Sub ComboBox1_Change()
Dim hoja As String
hoja = Me.ComboBox1.List(Me.ComboBox1.ListIndex)
Me.TextBox1.Text = ThisWorkbook.Sheets(hoja).Range("a8").Value
Me.TextBox2.Text = ThisWorkbook.Sheets(hoja).Range("c8").Value
End Sub
Este código presupone que el combobox1 se carga con los nombres de las hojas, no con los índices. Además tampoco selecciona la hoja, simplemente copia los valores de las celdas al formulario.
Ahora el código para el ComboBox1 seria así:
Private Sub ComboBox1_Change()
Dim hoja As String
hoja = Me.ComboBox1.List(Me.ComboBox1.ListIndex)
Me.TextBox1.Text = ThisWorkbook.Sheets(hoja).Range("a8").Value
Me.TextBox2.Text = ThisWorkbook.Sheets(hoja).Range("c8").Value
End Sub
Este código presupone que el combobox1 se carga con los nombres de las hojas, no con los índices. Además tampoco selecciona la hoja, simplemente copia los valores de las celdas al formulario.
Respuesta
1
¿Por qué no cambias el combobox por listbox? Podrás ver más información en él.
Prueba con el listbox y cuando lo tengas pincha en sus propiedades y dile las columnas a ver que quieres "Columncount" y el rango a visualizar "Rowsource".
Prueba y me comentas que tal.
Prueba con el listbox y cuando lo tengas pincha en sus propiedades y dile las columnas a ver que quieres "Columncount" y el rango a visualizar "Rowsource".
Prueba y me comentas que tal.