¿Lista Desplegable Para Ir A Celdas En Excel?
Me surge la siguiente duda.
Tengo un archivo en excel en donde se muestran 12 tablas aprox. Esto provoca que el archivo sea bastante largo y la única manera de pasar de una tabla a otra es bajando manualmente.
Quisiera que al lado de cada tabla hubiera una lista desplegable para desear a dónde ir, a qué tabla pasar. Daré el ejemplo con 4 tablas.
Tabla 1 abarca A1-A50
Tabla 2 abarca A50-A100
Tabla 2 abarca A100-A150
Tabla 2 abarca A150-A200
La idea sería que en en una celda al lado de cada tabla estuviera una celda con la lista desplegable para que me lleve directamente a la tabla deseada.
Agradezco me ayuden =D
1 Respuesta
Prueba este código (el código debe ir en el modulo de la Hoja!):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Listas As Range
Set Listas = Range("G1,G50,G100,G150")
If Not Application.Intersect(Listas, Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case "Tabla 1"
Application.Goto Range("A1"), True
Target.Value = ""
Case "Tabla 2"
Application.Goto Range("A50"), True
Target.Value = ""
Case "Tabla 3"
Application.Goto Range("A100"), True
Target.Value = ""
Case "Tabla 4"
Application.Goto Range("A150"), True
Target.Value = ""
End Select
End If
End SubAjusta según sea necesario. No has dicho que palabras contendrán las listas desplegables así que yo puse "Tabla 1", "Tabla 2"... etc
Tampoco dijiste en que columna estarian las listas, asi que yo las puse en G
Set Listas = Range("G1,G50,G100,G150")
Esas son las celdas donde estaría cada lista, cámbialo a tu conveniencia.
Hola, Muchas gracias por responder
vea que no me funcionó :(
será que estoy haciendo algo mal?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Listas As Range
Set Listas = Range("B1,B45,B89,B133")
If Not Application.Intersect(Listas, Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case "Enero"
Application.Goto Range("B1"), True
Target.Value = ""
Case "Febrero"
Application.Goto Range("B45"), True
Target.Value = ""
Case "Marzo"
Application.Goto Range("B89"), True
Target.Value = ""
Case "Abril"
Application.Goto Range("B133"), True
Target.Value = ""
End Select
End If
End Sub
1-¿Has puesto el código en el modulo de la hoja? Dando click derecho en la pestaña de la hoja y seleccionando "Ver Código" del menú, así:
2-¿Tienes las macros habilitadas?
3-¿Son listas desplegables o comboboxes?
4-¿Quieres mostrarme una imagen de tu hoja? :P
Si señor, está en el código de la hoja.
Esta es la imagen actual
Pero me gustaría que saliera de la siguiente manera. que al yo darle click en una des las opciones me lleve a la tabla indicada las cuales estarían en este caso más abajo
Si si te entiendo, y eso es exactamente lo que hace el codigo. No tengo idea de por que no te funciona. Si quieres me puedes compartir el libro para ver que sucede y te lo devuelvo arreglado.
Puedes subirlo a cualquier drive y me pasas el link para descargarlo.
Que sea en las cajitas (celdas combinadas) debajo de ir
Ya vi, en el código pusiste Set Listas = Range("B1, B45, B89, B133") pero tus listas no están en esas celdas, por eso no te funcionaba, tu primera lista esta en B5 no en B1.
Te lo hice completo.
Descárgalo aquí: descargar Rutina.xlsm
O si quieres solo copiar el código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Listas As Range
Set Listas = Range("B5,B49,B93,B137,B181,B255,B269,B313,B357,B401,B445,B489")
If Not Application.Intersect(Listas, Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case "Enero"
Application.Goto Range("A1"), True
Target.Value = "1"
Case "Febrero"
Application.Goto Range("A45"), True
Target.Value = "2"
Case "Marzo"
Application.Goto Range("A89"), True
Target.Value = "3"
Case "Abril"
Application.Goto Range("A133"), True
Target.Value = "4"
Case "Mayo"
Application.Goto Range("A177"), True
Target.Value = "5"
Case "Junio"
Application.Goto Range("A251"), True
Target.Value = "6"
Case "Mayo"
Application.Goto Range("A265"), True
Target.Value = "7"
Case "Mayo"
Application.Goto Range("A309"), True
Target.Value = "8"
Case "Mayo"
Application.Goto Range("A353"), True
Target.Value = "9"
Case "Mayo"
Application.Goto Range("A397"), True
Target.Value = "10"
Case "Mayo"
Application.Goto Range("A441"), True
Target.Value = "11"
Case "Mayo"
Application.Goto Range("A485"), True
Target.Value = "12"
End Select
End If
End SubAndy
¡Gracias! Super excelente. Muchas gracias por la ayuda, mejor no pudo quedar.
Que Dios lo bendiga =D
Copie y pegue y olvide cambiar el nombre de los últimos 6 meses jajaja fíjate que todos dicen Mayo, arréglalo XD
