Macro para mostrar u ocultar imágenes de acuerdo al resultado de la función Buscarv
Para Dante Amor
Buenas noches, tengo un libro de Excel con 7 hojas, en la primera hoja llamada módulos tengo 6 listas desplegables con 7 nombres(imagen 1, imagen 2..., imagen 7), la lista uno está en la celda L7, la lista 2 en L9, la lista 3 en N7, la lista 4 en N9, lista 5 en P7 y la lista 6 en P9; en la hoja 2 llamada Seg. Vial Teoria tengo 7 imágenes, mi intención es que al seleccionar el nombre "imagen 1" en la celda L7 de la hoja "módulos" muestre la imagen llamada "imagen 1" en la hoja llamada Seg. Vial Teoría o si selecciona el nombre "imagen 4", muestre la imagen 4 en la hoja Seg. Vial Teoría; la lista 2 va ligada a la hoja 3 llamada Buses y requiero hacer lo mismo, que al seleccionar de la lista 2 que se encuentra en la hoja módulos el nombre "imagen 1", muestre la imagen 1 en la hoja buses, la lista 3 de la hoja módulos va ligada a la hoja 4 llamada mantenimiento y requiero hacer el mismo procedimiento si selecciono el nombre "imagen 4" de la lista 3 que está en la hoja módulos, que muestre la imagen 4 en la hoja mantenimiento.
1 respuesta
H o l a:
Puedes enviarme tu archivo para adaptar la macro.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Gerardo Reyes” y el título de esta pregunta.
Avísame en esta pregunta cuando me lo hayas enviado.
‘
:)
S a l u d o s . D a n t e A m o r
¡Gracias! Ya te he enviado mi archivo, haber si es posible lo que necesitó :)
H o l a:
Te anexo la macro para las 7 hojas:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor 100% FUNCIONAL
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("L7, L15, L23, P7, P15, P23, T7")) Is Nothing Then
Select Case Target.Address(False, False)
Case "L7": hoja = "Seg. vial Teoria"
Case "L15": hoja = "Buses Seg. vial"
Case "L23": hoja = "Op. Y Mtto. Teoría"
Case "P7": hoja = "Buses Op. Y Mtto"
Case "P15": hoja = "Atn & Serv."
Case "P23": hoja = "Primeros Auxilios"
Case "T7": hoja = "Tacografía"
End Select
Set h = Sheets(hoja)
h.Shapes("Imagen 1").Visible = False
h.Shapes("Imagen 2").Visible = False
h.Shapes("Imagen 3").Visible = False
h.Shapes("Imagen 4").Visible = False
h.Shapes("Imagen 5").Visible = False
h.Shapes("Imagen 6").Visible = False
h.Shapes("Imagen 7").Visible = False
If IsError(h.Range("AG2")) Then Exit Sub
valor = h.Range("AG2").Value
Select Case valor
Case 0
Case 1: h.Shapes("Imagen 1").Visible = True
Case 2: h.Shapes("Imagen 2").Visible = True
Case 3: h.Shapes("Imagen 3").Visible = True
Case 4: h.Shapes("Imagen 4").Visible = True
Case 5: h.Shapes("Imagen 5").Visible = True
Case 6: h.Shapes("Imagen 6").Visible = True
Case 7: h.Shapes("Imagen 7").Visible = True
End Select
End If
End Sub[code]‘ : )
‘Saludos. Dante Amor. Recuerda valorar la respuesta.
